cellule en couleur Résolu/Fermé

Question

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

Mike-31 · Answer

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.

Mike-31 · Answer

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

Mike-31 · Answer

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

narvalot · Answer

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

Mike-31 · Answer

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

narvalot · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

narvalot · Answer

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

Cellule en couleur

9 réponses

Discussions similaires