récupérer valeur combobox

[Florian53]

Bonjour à tous,

Je souhaite récupérer via un bouton de commande toutes les valeurs des combobox ( 4 au total) avec une boucle.
Je souhaiterais avoir crit1 = combobox1.value , crit2=Combobox2.value ....

J'ai essayé de faire ce code mais sa ne fonctionne pas.

Private Sub CommandButton1_Click()
Dim crit(4)
For i = 1 To 4
    ComboBox & i.Value = "crit"( i)
Next i
End Sub

Le code ci dessous fonctionne, mais je voudrais utilisé une boucle afin de ma familiarisé avec :

Private Sub CommandButton1_Click()
Dim crit1, crit2, crit3,crit4 as string

    crit1= ComboBox1.Value
    crit2= ComboBox2.Value
    crit3= ComboBox3.Value
    crit4= ComboBox4.Value    

End Sub

Merci de votre aide.

 

[pierrejean]

Bonjour Florian

A tester:

Dim crit(4)
For i = 1 To 4
    UserForm1.Controls("ComboBox" & i).Value = "crit"( i)
Next i
End Sub

 

[Florian53]

Bonjour et merci Pierre Jean,

J'ai une erreur de syntaxe sur la ligne :

 UserForm1.Controls("ComboBox" & i).Value = "crit"( i)

Edit: je viens de rajouter le symbole " & " et je n'ai plus l'erreur:

 UserForm1.Controls("ComboBox" & i).Value = "crit" & (i)

 

[Florian53]

Je voudrais savoir si cette syntaxe est bonne:

crit(i) = UserForm3.Controls("ComboBox" & i).Value