Menus déroulants à Choix multiples - Excel

Bobby75 -  
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!

2 réponses

  1. michel_m Contributeur
    bonjour

    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
    0
    1. coco
      Tu peux m'aider qd il s'agit de plus de deux menus?
      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
      0