Bonjour à tous,

Après avoir été voir mon meilleur ami Google.., je n'ai pas trouvé de solution....
Voici l'histoire, lorsque j'ouvre mon fichier, un user form s'affiche avec une liste déroulante
Je souhaiterais que lorsque je sélectionne un choix dans la liste déroulante et que je clique sur ok, il renvoie vers un code VBA
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub CommandButton1_Click() 'Valider
 
With Sheets("Listes")
.Range("B1") = UserForm1.ComboBox1
End With
 
If ComboBox1.Value = "text1" Then
Call Macro1
ElseIf ComboBox1.Value = "text2" Then
Call Macro2
ElseIf ComboBox1.Value = "text3" Then
Call Macro3
End If
End Sub
 
Private Sub CommandButton2_Click() 'Quitter
 
Unload Me
 
End Sub
 
 
Private Sub cmdAnnuler_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
 
ComboBox1.RowSource = "Listes!B2:B4" 'Récupération des Données
 
End Sub