Changer couleur de remplissage de cellules

Fermé
A-G - 19 avril 2021 à 03:34
cs_Le Pivert Messages postés 7860 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 2 décembre 2022 - 19 avril 2021 à 08:57
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

cs_Le Pivert Messages postés 7860 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 2 décembre 2022 723
19 avril 2021 à 08:57
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à
0