lancement macro au click de cellules et plages

Bonsoir à tous,

Dans le code suivant il y a lancement d'une macro dès qu’il y a click sur la cellule A1 ou B1

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:B1")) Is Nothing Then 'ici se trouve le code de la macro End If End Sub

---

Quelqu'un pourrait-il m’indiquer la façon d’écrire ce même code pour le cas où il y a click sur plusieurs cellules et/ou plages de cellules ?

Par exemple : « O4 » , « J6 » , « F16 :F24 » , « O57:O63 ».

Merci, Kim.

Hello,

Comme ceci

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:B1, C3, C7, G5:G8, E2, H7")) Is Nothing Then 'ici se trouve le code de la macro End If End Sub

---

Cdt, Antoniom.

Merci Antoniom :ccool:

Impec !

Bien à toi, Kim.