Activer macro suivant choix dans userform

[BZH56]

Bonjour au fil
Je souhaiterais faire apparaitre une box qui propose 2 choix( choix1 , choix 2) et en fonction de la réponse de l'utilisateur j active la macro 1 ou la macro 2
j ai trouve ces bouts de code mais je bloque encore avec le mot cle "me"

'Private Sub choix_Initialize()
       
    With Me.ListBox1
    .AddItem "choix1"
    .AddItem "choix2"
    End With
End Sub

Private Sub ListBox1_Click()
  
    Select Case Me.ListBox1.ListIndex
      
        Case 0
            macro1
        Case 1
            macro2
        
    End Select
End Sub

je patauge un peu entre " additem et selectcase" et un coup de pouce pour prendre la bonne direction sera le bienvenu.
merci a tous

 

[Fred0o]

Re : Activer macro suivant choix dans userform

Bonjour BZH56,

Peut être en remplaçant Choix_Initialize par UserForm_Initialize. Cela fonctionne chez moi :

Private Sub UserForm_Initialize()
    With Me.ListBox1
        .AddItem "choix1"
        .AddItem "choix2"
    End With
End Sub

Private Sub ListBox1_Click()
    Select Case Me.ListBox1.ListIndex
        Case 0
            macro1
        Case 1
            macro2
    End Select
End Sub

A+

 

[Grand Chaman Excel]

Re : Activer macro suivant choix dans userform

Bonjour BZH56,

Tu sembles bien parti... Premier problème que je vois, est que tu dois remplacer :

Private Sub choix_Initialize()

par

Private Sub Userform_Initialize()

pour que ton userform s'initialise correctement.


Pour ce qui est du mot cle "Me", il représente l'instance en cours. Dans ton cas, c'est ton userform "choix" (si tu l'as appelé "choix"). Au lieu de "Me.", tu pourrais aussi utiliser "choix."

Voir fichier joint :

A+

 

[BZH56]

Re : Activer macro suivant choix dans userform

merci de vos réponses
effectivement , je devais utiliser userform initialize qui permet la création mais en recopiant le code, l userform ne s'affiche pas et je génère une erreur de compilation avec membre de méthode ou données introuvables...

Private Sub UserForm_Click()

End Sub

Private Sub Userform_Initialize()
       
    
    With Choix.ListBox1
    .AddItem "choix1"
    .AddItem "choix2"
    End With
    
End Sub

Private Sub ListBox1_Click()
      
    
    Select Case Choix.ListBox1.ListIndex
      
        Case 0
            Macro1
        Case 1
            macro2
        
    End Select
End Sub

le code est bon mais je dois avoir un conflit ailleurs,ou chercher ce bug ?
a suivre- merci

 

[Grand Chaman Excel]

Re : Activer macro suivant choix dans userform

Bonjour BZH56,

Peux-tu joindre ton fichier?

Merci.

 

[Fred0o]

Re : Activer macro suivant choix dans userform

Bonjour BZH56,

A mon avis, tu as renommé également ta ListBox1, donc il te faut remplacer dans le code ListBox1 par le nom que tu lui as donné. Si ça ne marche pas, on en revient au principe de base : postes non ton fichier sans données confidentielles, ainsi on pourra réellement t'aider.

A+

 

[BZH56]

Re : Activer macro suivant choix dans userform

merci a vous deux de votre suivi
ci joint le fichier expurge avec le bug en activant le bouton qui doit me permettre de choisir le mode de calcul de congé pour le troisième tour.
il n y a pas de MDP (a blanc)
a+

 

[Fred0o]

Re : Activer macro suivant choix dans userform

Salut BZH56,

Je viens d'ouvrir ton fichier et quelle n'a pas été ma surprise de découvrir que dans ton UserForm "Choix", il n'y a rien !!!

Alors bien sûr, quand tu cherches à créer des items dans une ListBox qui n'existe pas ...

A+

 

[BZH56]

Re : Activer macro suivant choix dans userform

Salut BZH56,

Je viens d'ouvrir ton fichier et quelle n'a pas été ma surprise de découvrir que dans ton UserForm "Choix", il n'y a rien !!!

Alors bien sûr, quand tu cherches à créer des items dans une ListBox qui n'existe pas ...




A+

Plus c ' est gros, moins on voit ...Confucius est confus... merci fred0o