Cellule en couleur

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.

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

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

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

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

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

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

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

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