Changer la couleur d'une cellule avec un click

Fermé
agsxr - 29 avril 2021 à 07:25
Mike-31 Messages postés 18357 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 6 février 2025 - 29 avril 2021 à 10:10
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
A voir également:

2 réponses

JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 464
29 avril 2021 à 10:01
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



0
Mike-31 Messages postés 18357 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 6 février 2025 5 114
29 avril 2021 à 10:10
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
0