OVH Cloud OVH Cloud

probleme avec dropdown en vba

2 réponses
Avatar
lolotele2
bonsoir à tous
j'ai un souci avec le dropdown de 2 combobox:
voila dans un userform j'ai 2 combobox lorsque je selectionne un item dans
le premier combo je voudrais que le 2eme s'affiche directement avec la liste
apparente.celui se remplit bien mais il ne se deploie que si je clique sur
la fleche du 2 eme combo
si je rajoute un bouton sur l'userform où je met simplement
cbolist2.dropdown cela marche bien par contre si je le mets dans le code du
premier combo cela ne marche pas ? pourquoi?
si vous connaisez un fichier exemple sur internet je suis preneur
merci de votre aide
laurent

2 réponses

Avatar
michdenis
Bonsoir lolotele2,

Je ne sais pas si c'est ce que tu recherches ...

Supposons qu'à la suite d'une sélection d'un item du combobox1 que ce soit la suite des opérations qui se passent ... ce
n'est qu'un exemple !

'--------------------------
Private Sub ComboBox1_Change()

Me.ComboBox2.RowSource = "Feuil3!A1:A10"

With Me.ComboBox2
.SetFocus
SendKeys "%{up}"
.ListIndex = 3
End With

End Sub
'--------------------------


Salutations!



"lolotele2" a écrit dans le message de news:%mSoc.44872$
bonsoir à tous
j'ai un souci avec le dropdown de 2 combobox:
voila dans un userform j'ai 2 combobox lorsque je selectionne un item dans
le premier combo je voudrais que le 2eme s'affiche directement avec la liste
apparente.celui se remplit bien mais il ne se deploie que si je clique sur
la fleche du 2 eme combo
si je rajoute un bouton sur l'userform où je met simplement
cbolist2.dropdown cela marche bien par contre si je le mets dans le code du
premier combo cela ne marche pas ? pourquoi?
si vous connaisez un fichier exemple sur internet je suis preneur
merci de votre aide
laurent
Avatar
lolotele2
merci beaucoup
ça marche mais pas à l'interieur d'une boucle with/ end with en effet j'ai
un drole de message comme celui ci:
"erreur d'éxecution '-2147417848(80010108)':

Erreur Automation
L'objet invoqué s'est déconnecté de ses clients" fin du message d'erreur
en fait c'etait l'astuce du sendkey qui me manquait
merci et à bientot
laurent

"michdenis" a écrit dans le message de
news:
Bonsoir lolotele2,

Je ne sais pas si c'est ce que tu recherches ...

Supposons qu'à la suite d'une sélection d'un item du combobox1 que ce soit
la suite des opérations qui se passent ... ce

n'est qu'un exemple !

'--------------------------
Private Sub ComboBox1_Change()

Me.ComboBox2.RowSource = "Feuil3!A1:A10"

With Me.ComboBox2
.SetFocus
SendKeys "%{up}"
.ListIndex = 3
End With

End Sub
'--------------------------


Salutations!



"lolotele2" a écrit dans le message de
news:%mSoc.44872$

bonsoir à tous
j'ai un souci avec le dropdown de 2 combobox:
voila dans un userform j'ai 2 combobox lorsque je selectionne un item dans
le premier combo je voudrais que le 2eme s'affiche directement avec la
liste

apparente.celui se remplit bien mais il ne se deploie que si je clique sur
la fleche du 2 eme combo
si je rajoute un bouton sur l'userform où je met simplement
cbolist2.dropdown cela marche bien par contre si je le mets dans le code
du

premier combo cela ne marche pas ? pourquoi?
si vous connaisez un fichier exemple sur internet je suis preneur
merci de votre aide
laurent