Changer la couleur d'une cellule avec un click Fermé

Question

Bonjour,

Comment puis-je appliquer ce code à d'autres groupes de deux cellules? 

merci 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D6:E6")) Is Nothing Then
 Range("D6:E6").Interior.Pattern = xlNone
 
    Range(Target.Address).Interior.ColorIndex = 12
End If

End Sub

JCB40 · Answer

Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier, 
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES 
il faut passer par un site de pièce jointe tel que cjoint.com 

Allez sur ce site : https://www.cjoint.com/ 
Clic sur parcourir, 
Cherche ton fichier, 
clic sur ouvrir, 
Clic sur "Créer le lien cjoint", 
Copier le lien, 
Revenir ici le coller dans une réponse... 
Cordialement

Mike-31 · Answer

Bonjour,

si les cellules sont non contiguës exemple A2, D6:E6, G6:K6, A10:K10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union([A2], [D6:E6], [G6:K6], [A10:K10])) Is Nothing Then
Range("A2, D6:E6, G6:K6, A10:K10").Interior.Pattern = xlNone
Range(Target.Address).Interior.ColorIndex = 12
End If
End Sub 

par contre sil s'agit d'une plage de cellules contiguës exemple D6:E20

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D6:E20")) Is Nothing Then
Range("D6:E20").Interior.Pattern = xlNone
Range(Target.Address).Interior.ColorIndex = 12
End If
End Sub

Changer la couleur d'une cellule avec un click

2 réponses

Discussions similaires