Problème sur fonction me.control VBA EXCEL
Résolu
goku13127
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
goku13127 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
goku13127 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
2 réponses
Bonjour,
A première, vue, ce n'est pas le Me (qui représente ta Form courante) qui pose problème.
Le problème se situe sur tes boucles For.
Tu veux utilisé le contrôle "ComboBox2" & i.
Pour i =1 ça donne ComboBox21
Pour i =2 ça donne ComboBox22
Pour i =3 ça donne ComboBox23
Hors, il m'étonnerait que tu ais un contrôle qui s'appelle ComboBox21, ComboBox22 ou bien ComboBox23.
Pour remédier au problème, dans tes parenthèses après Controls tu ne mets pas ("ComboBox2" & i) mais ("ComboBox2").
Ça devrait fonctionner.
Cdt
A première, vue, ce n'est pas le Me (qui représente ta Form courante) qui pose problème.
Le problème se situe sur tes boucles For.
Tu veux utilisé le contrôle "ComboBox2" & i.
Pour i =1 ça donne ComboBox21
Pour i =2 ça donne ComboBox22
Pour i =3 ça donne ComboBox23
Hors, il m'étonnerait que tu ais un contrôle qui s'appelle ComboBox21, ComboBox22 ou bien ComboBox23.
Pour remédier au problème, dans tes parenthèses après Controls tu ne mets pas ("ComboBox2" & i) mais ("ComboBox2").
Ça devrait fonctionner.
Cdt
Bonjour gregouz62,
Merci pour ta réponse elle fonctionne parfaitement. Pour ceux qui seraient interressés voici le code que j'ai mis :
Private Sub ComboBox1_Change()
If ComboBox1 = "ALGERIA" Then
Me.Controls("ComboBox2").RowSource = _
"feuil1!t235:t235"
ElseIf ComboBox1 = "ANGOLA" Then
Me.Controls("ComboBox2").RowSource = _
"feuil1!t236:t236"
ElseIf ComboBox1 = "ARGENTINA" Then
Me.Controls("ComboBox2").RowSource = _
"feuil1!t237:t237"
Ainsi de suite pour toutes les valeures qui se trouvent dans mon combobox 1.
Encore merci
Merci pour ta réponse elle fonctionne parfaitement. Pour ceux qui seraient interressés voici le code que j'ai mis :
Private Sub ComboBox1_Change()
If ComboBox1 = "ALGERIA" Then
Me.Controls("ComboBox2").RowSource = _
"feuil1!t235:t235"
ElseIf ComboBox1 = "ANGOLA" Then
Me.Controls("ComboBox2").RowSource = _
"feuil1!t236:t236"
ElseIf ComboBox1 = "ARGENTINA" Then
Me.Controls("ComboBox2").RowSource = _
"feuil1!t237:t237"
Ainsi de suite pour toutes les valeures qui se trouvent dans mon combobox 1.
Encore merci