Petite question : Comment lancer un Userform dans une feuille, lorsque l'on clique dans une plage de cellules choisies ??
Dans mon cas, c'est la plage "A1:G5" et "A30:G60" ...
L'idée serait de lancer le Userform lorsque on clique sur une cellule dans la plage, mais que l'on puisse tout de même sellectionner plusieur cellule dans cette dite plage ....
Re : Lancement UserForm dans une plage de cellules
Bonjour
voici un bout de code à ajouter dans la feuille concernée en supposant que le UserForm s'appelle "UserForm1"
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("A1:G5")) Is Nothing And Intersect(Target, Range("A30:G60")) Is Nothing) Then
UserForm1.Show
End If
End Sub
Re : Lancement UserForm dans une plage de cellules
Salut,
un peu plus court :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Union(Range("A1:G5"), Range("A30:G60"), _
Range("J3:K67"))) Is Nothing) Then
UserForm1.Show
End If
End Sub
Re : Lancement UserForm dans une plage de cellules
Bonjour karinette, jms31,
Juste un détail jms31, on peut simplifier en :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [COLOR="Red"]Range("A1:G5,A30:G60")) [/COLOR]Is Nothing Then UserForm1.Show
End Sub