Changer la couleur d'une cellule avec un click
agsxr
-
Mike-31 Messages postés 19571 Statut Contributeur -
Mike-31 Messages postés 19571 Statut Contributeur -
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
A voir également:
- Changer la couleur d'une cellule avec un click
- Changer dns - Guide
- Excel cellule couleur si condition texte - Guide
- Changer la couleur de la barre des taches - Guide
- Excel somme si couleur cellule - Guide
- Aller à la ligne dans une cellule excel - Guide
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
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
par contre sil s'agit d'une plage de cellules contiguës exemple D6:E20
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
