Ouvrir Userform en cliquant plages cellules

[yves03]

Bonjour à tous,

J'arrive à ouvrir un userform quand je clique sur une cellule avec le code suivant:

If target.address = "$B$21" Then
Call calendrier.show
End if

Par contre je n'arrive pas a le faire fonctionner pour une plage de cellules
Je voudrais B21 a M42
Merci d'avance de votre aide

 

[Guest]

Re : Ouvrir Userform en cliquant plages cellules

bonjour Yves,

Essaie ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("B21:M42")) Is Nothing Then
       Calendrier.Show
   End If
End Sub

A bientôt

 

[skoobi]

Re : Ouvrir Userform en cliquant plages cellules

Bonjour,

If Not Intersect(Target, [B21:M42]) Is Nothing Then

Edit: arfff, plus rapide Hasco, salut! 🙂

 

[yves03]

Re : Ouvrir Userform en cliquant plages cellules

Merci beaucoup à tous les 2
😉