récupérer la valeur de la combobox

bonjour,
je débute en vba
j'ai une feuille sur laquelle j'aimerai mettre 2 boutons:
un bouton n°1 qui en cliquant dessus m'affiche ma combobox
un bouton n°2 qui, en cliquant dessus execute un programme selon la valeur de la combobox. Pour programmer ce qui doit etre executé par le bouton n°2 lors du click, je fais une "CommandButton2_Click()" qui doit faire appel à UserForm3.Combobox1.value.
Cependant, lorsque je lui met msgbox (UserForm3.Combobox1.value), il m'affiche une msgbox vide.
je voudrais donc savoir comment "mettre en memoire" la valeur de ma combobox pour la reutiliser...

As-tu essayé la propriété Text de ton ComboBox ?

c'est à dire...?

Code:

---

Valeur = ComboBox2.Text

---

ça ne marche pas non plus, le résultat est le même:une msgbox vide
le code de ma userform était:

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() ComboBox1.AddItem "Echelon à échelon" ComboBox1.AddItem "A indice égal ou immédiatement supérieur" ComboBox1.AddItem "A indice strictement supérieur" End Sub

---

peut-etre que le probleme est la...

Il se situe ou ton 2e bouton ? sur la feuille excel ou sur l'userform ?
Sinon tu peux utiliser un combobox1.listindex et faire un test suivant la valeur qui ressort (Attention ça commence à 0, non pas à 1)

je peux voir le code de CommandButton2_Click() ?

ça donne :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton2_Click() Dim (toutes sortes de variables) If UserForm3.ComboBox1.Value = "Echelon à échelon" Then For k = 1 To UserForm2.SpinButton1 etc. (c'est tres long) End if If UserForm3.ComboBox1.Value = "A indice majoré égal ou immédiatement supérieur" then For k = 1 to UserForm2.Spinbutton etc... End if

---

mais ça ne marche pas...il ne reconnait pas "UserForm3.ComboBox1.Value"..sans m'afficher d'erreurs pour autant mais quand, pour tester, je mets : MsgBox (UserForm3.ComboBox1.Value) avant le if, il m'affiche messagebox vide

essaie de mettre ton code dans userform_activate plutôt et fait en sorte de ne pas unloader ton userform dans ton code ou que ce soit .. sinon le plus simple c'est de poster ton fichier ...

Code:

---

If UserForm3.ComboBox1.Text = "Echelon à échelon" Then

---

tu peux aussi tester sur la propirété ListIndex de ton ComboBox

Code:

---

1 2 3 4 5 6 7 8 9 10

Select Case ComboBox1.ListIndex Case 0 ' Premier choix de la liste ' action 1 Case 1 ' Second choix de la liste ' action 2 Case 2 ' Troisième choix de la liste ' action 3 Case Else ' Aucun choix ' autre action End Select

---