Changer couleur de remplissage de cellules

A-G -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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