Discussion :

[ouardia]

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...

[zazaraignée]

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

[ouardia]

c'est à dire...?

[zazaraignée]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Valeur = ComboBox2.Text

[ouardia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[peaceandloveman01]

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)

[zazaraignée]

je peux voir le code de CommandButton2_Click() ?

[ouardia]

ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[peaceandloveman01]

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 ...

[zazaraignée]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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