Activer macro selon changement cellule

Bonjour,

J'arrive sans problème à activer une macro selon le changement d'une cellule avec le code :

Note : J'ai nommé une cellule selection1 et une autre selection2

If Not Application.Intersect(Target, Range("selection1")) Is Nothing Then

Par contre, je voudrais que mon code se déclanche si selection 1 ou selection 2 change. J'ai esseyé ce code, mais j'ai toujours un message d'erreur :

If Not Application.Intersect(Target, Range("selection1")) Or Application.Intersect(Target, Range("selection2")) Is Nothing Then

Est-ce possible?

Merci d'avance et bonne fin de journée !

Bonsoir

Testes

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Union(Range("selection1"), Range("selection2"))) Is Nothing Then
    MsgBox ("Enfin ça marche")
  End If
End Sub

Bonsoir Banzai,

Ça fonctionne!

Merci beaucoup de ton aide. Je vais éviter de toujours doubler ou trippler mon code...

Merci à tous.

Vincent

Rechercher des sujets similaires à "activer macro changement"