Changer la couleur d'une cellule avec un click

Signaler
-
Messages postés
17343
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 mai 2021
-
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

2 réponses

Messages postés
2303
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
9 mai 2021
400
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



Messages postés
17343
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 mai 2021
4 602
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