Changer couleur de remplissage de cellules

Signaler
-
Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021
-
Bonjour,

J’aimerais savoir le code qui pourrait effectuer le changement de remplissage de deux ou trois cellules avec un click.

Exemple: j’ai trois cellules A1, A2 et A3. J’aimerais que si je click sur A1, elle devienne bleu.
Ensuite si je click sur A2, A1 redevienne sans remplissage mais que A2 devienne bleu à son tour.
Donc peut importe sur quel cellule entre A1 et A3 que je click, celle-si devient bleu et que les autres sont sans remplissage.

Merci

1 réponse

Messages postés
7359
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
1 mai 2021
630
Bonjour,

Faire Alt F11 sur la feuille concernée et mettre ce code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
 Range("A1:A3").Interior.Pattern = xlNone
    Range(Target.Address).Interior.ColorIndex = 41
End If
End Sub


Voilà