Cellule en couleur

Résolu

narvalot Messages postés 117 Date d'inscription Statut Membre Dernière intervention -
narvalot - 25 mai 2013 à 12:47

Bonjour à vous et O Forum

J'aimerais savoir si il est possible de mettre une cellule en couleur en cliquant dessus

ceux ci sur plusieurs cellules et plusieurs colonnes

Par avance, merci de votre aide si précieuse

Cordialement

Afficher la suite

A voir également:

Cellule en couleur
Excel cellule couleur si condition texte - Guide
Excel compter cellule couleur sans vba - Guide
Boite a couleur - Télécharger - Divers Photo & Graphisme
Proteger cellule excel - Guide
Diviser une cellule excel en deux horizontalement ✓ - Forum Excel

9 réponses

Réponse 1 / 9

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Salut,

Regarde cette discussion, tu y trouveras deux code

https://forums.commentcamarche.net/forum/affich-27873415-changer-la-couleur-de-la-cellule#p27873902

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

narvalot

Salut Mike,

C'est ça, mais il faudrait qu'il y ai plusieurs couleur et que chaque couleurs correspondent à une colonnes, tu vois et ça je ne sais pas faire, les macros c'est trop chaud pour moi

Réponse 2 / 9

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

plus compliqué, mais ça doit se faire, donne moi le numéro de colonne et la couleur souhaitée dans la colonne

exemple colonne A bleu
colonne B vert
etc
N'exagère pas tout de même sinon bonjour le code

narvalot

ok

en colonne "J" rouge
en colonne "K" vert
en colonne "L" bleu
et colonne "N" jaune

je te remercie

Réponse 3 / 9

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

bon me revoilà, clic droit sur l'onglet de ta feuille concernée et colle ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range([J:L], [N:N]).Interior.ColorIndex = xlNone
If Not Application.Intersect(Selection, Range("J:J")) Is Nothing Then
Target.Interior.ColorIndex = 3
End If
If Not Application.Intersect(Target, Range("K:K")) Is Nothing Then
Target.Interior.ColorIndex = 4
End If
If Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
Target.Interior.ColorIndex = 8
End If
If Not Application.Intersect(Target, Range("N:N")) Is Nothing Then
Target.Interior.ColorIndex = 6
End If
End Sub

Réponse 4 / 9

narvalot

c'est ok mais les couleurs ne reste pas quand je click sur une autre cellule, cela ne se fige pas et je n'ai pas le jaune

quand je click sur la cellule "J1' la couleur est là mais je re-click sur "K1", la cellule "j1" disparait

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Normal j'avais compris que tu voulais simplement avoir la couleur sous la cellule active,
donc tu clic et tu veux fixer la couleur
doit on prévoir l'annulation d'une cellule colorisée par erreur

Réponse 6 / 9

narvalot

oui, si c'est possible que la couleur soit fixée ce serait Génial

Réponse 7 / 9

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

alors il faut passer par un double clic sinon ton tableau va devenir très rapidement en couleur, le simple fait de passer la souris sur une cellule elle se colorisera

ou si tu préfère un clic droit.
ce code, double clic colorise la cellule et si elle est colorisée elle redevient claire

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Selection, Range("J:J")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range("K:K")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then Target.Interior.ColorIndex = 4 Else Target.Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range("L:L")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then Target.Interior.ColorIndex = 8 Else Target.Interior.ColorIndex = xlNone
End If
If Not Application.Intersect(Target, Range("N:N")) Is Nothing Then
If Target.Interior.ColorIndex = xlNone Then Target.Interior.ColorIndex = 6 Else Target.Interior.ColorIndex = xlNone
End If
End Sub

narvalot

C'est super c'est exactement cela que je voulais, tu m'as parlé de l'annulation d'une cellule colorisée par erreur, si tu pouvais me le faire ce serait plus que parfait

Réponse 8 / 9

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

Je l'ai prévue dans le code , il suffit de refaire un double clic sur la cellule colorisée

si tes attentes sont satisfaites confirme le moi que je passe le statut de la discussion en résolu

Réponse 9 / 9

narvalot

Mille merci à Toi Mike,

Tu es super sympa de m' aider,
sur ce Forum, ce n'est que du bonheur

Oui je suis satisfait et tu peux mettre en résolu

Un grand merci à Toi

Discussions similaires

sertissage des cables rj45

Colorer une cellule quand une autre est non vide

Changer la couleur de fond d'un en-tête

Si couleur, alors...

Couleur transparente

Votre réponse

Discussions similaires