Menus déroulants à Choix multiples - Excel

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

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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...
    0