Discussion :

[Kimaos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Antoniom]

Hello,

Comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Kimaos]

Merci Antoniom

Impec !

Bien à toi, Kim.