Changer la couleur d'une cellule avec un click
agsxr
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
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
-
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
