evenement worksheet change plusieurs cellules [Résolu]

[volubiliss]

Bonjour

J'aimerai savoir comment l'on procède pour déclarer plusieurs cellules pour un évenement type worksheet change.
Sur une feuille excel je voudrai que lorsque l'on modifie la cellule A1 OU la cellule A2 celle ci (la cellule modifiée) change de couleur
comment arriver à un résultat à partir d'un

Code :

Private Sub Worksheet_Change(ByVal Target As Range)

Merci d'avance

[bbil]

Bonjour,

tu ne précise pas le nombre de cellules concernées ni comment tu effectue le choix de la couleur...

tiens pour le principe un exemple :

Code :

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  Set c = Intersect(Target, Me.Range("A1"))
  If Not c Is Nothing Then c.Interior.Color = vbRed
  Set c = Intersect(Target, Me.Range("A2"))
  If Not c Is Nothing Then c.Interior.Color = vbGreen
End Sub

[volubiliss]

désolé pour le manque de précision, merci pour l'exemple ca me donne une bonne base de départ pour parvenir à la solution