Microsoft 365 Déclencher un userform depuis plusieurs cellules

kulas11 · 16 Avril 2024

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 · 16 Avril 2024

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

VB:

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 · 16 Avril 2024

Bonjour.
Ceci devrait quand même marcher aussi :

VB:

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 · 17 Avril 2024

Cousinhub à dit:
Bonjour,
En définissant une plage préalablement, puis l'Intersect?

VB:

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 !

Microsoft 365 Déclencher un userform depuis plusieurs cellules

kulas11

XLDnaute Nouveau

Cousinhub

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

kulas11

XLDnaute Nouveau

Discussions similaires