Microsoft 365 Déclencher un userform depuis plusieurs cellules

[kulas11]

J'aimerais déclencher un userform depuis plusieurs cellule, j'ai trouvé cette écriture. Mais je voudrais avoir une ligne au lieu de trois !

Avez-vous des idées ? merci d'avance

 

[Cousinhub]

Bonjour,
En définissant une plage préalablement, puis l'Intersect?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range
If Target.CountLarge > 1 Then Exit Sub
Set Plg = Union(Range("A8"), Range("A12"), Range("A18"))
If Not Intersect(Plg, Target) Is Nothing Then UserForm1.Show
End Sub

Bon appétit

 

[Dranreb]

Bonjour.
Ceci devrait quand même marcher aussi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Intersect(Me.[A8;A12;A18], Target) Is Nothing Then UserForm1.Show False
   End Sub

 

[kulas11]

Bonjour,
En définissant une plage préalablement, puis l'Intersect?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range
If Target.CountLarge > 1 Then Exit Sub
Set Plg = Union(Range("A8"), Range("A12"), Range("A18"))
If Not Intersect(Plg, Target) Is Nothing Then UserForm1.Show
End Sub

Bon appétit

Merci pour ton aide !