Menus déroulants à Choix multiples - Excel
Bobby75
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai créer deux menus déroulants en utilisant des codes VBA sous Excel 2007.
Malheureusement le code que j'utilise ne me permet pas de faire apparaitre les deux menus dans la même feuille excel:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L2:L36")) Is Nothing Then
Exit Sub
Else
Target.Value = ""
Load UserForm1
UserForm1.Show
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("N2:N36")) Is Nothing Then
Exit Sub
Else
Target.Value = ""
Load UserForm2
UserForm2.Show
End If
End Sub
L'erreur se situe dans ce code.
Quelqu'un pourrait-il m'aider?
Merci!
J'ai créer deux menus déroulants en utilisant des codes VBA sous Excel 2007.
Malheureusement le code que j'utilise ne me permet pas de faire apparaitre les deux menus dans la même feuille excel:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L2:L36")) Is Nothing Then
Exit Sub
Else
Target.Value = ""
Load UserForm1
UserForm1.Show
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("N2:N36")) Is Nothing Then
Exit Sub
Else
Target.Value = ""
Load UserForm2
UserForm2.Show
End If
End Sub
L'erreur se situe dans ce code.
Quelqu'un pourrait-il m'aider?
Merci!
A voir également:
- Menus déroulants à Choix multiples - Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Excel liste déroulante en cascade - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
2 réponses
bonjour
dans la m^me feuille tu ne peux pas employer 2 fois le m^événement....
Michel
dans la m^me feuille tu ne peux pas employer 2 fois le m^événement....
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L2:N36")) Is Nothing Then Exit Sub
Target = ""
If Not Intersect(Target, Range("L2:L36")) Is Nothing Then
UserForm1.Show
Else
UserForm2.Show
End If
End Sub
Michel
Salut Michel_M,
Comment va?
En plus de ça... doublon
+ MP envoyé...
Son prof va pas être content s'il tombe sur un de ces sujets...
Comment va?
En plus de ça... doublon
+ MP envoyé...
Son prof va pas être content s'il tombe sur un de ces sujets...
J'ai:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("AC6:AF2000")) Is Nothing Then
Exit Sub
ElseIf Intersect(Target, Range("AC6:AC2000")) Is Nothing Then
Target.Value = ""
Load UserForm3
UserForm3.Show
ElseIf Intersect(Target, Range("AD6:AD2000")) Is Nothing Then
Target.Value = ""
Load UserForm2
UserForm2.Show
ElseIf Intersect(Target, Range("AE6:AE2000")) Is Nothing Then
Target.Value = ""
Load UserForm3
UserForm3.Show
ElseIf Intersect(Target, Range("AF6:AF2000")) Is Nothing Then
Target.Value = ""
Load UserForm4
UserForm4.Show
End If
End Sub
https://www.commentcamarche.net/infos/25855-charte-d-utilisation-de-commentcamarche-net-respect-d-autrui/#politesse