Renseigner Combobox dans un UserForm

Bonjour à tous,

Après avoir cherché sur Internet et essayé d’adapter plusieurs codes, je n’arrive toujours pas à résoudre mon problème, qui est le suivant.

Je voudrais renseigner une combobox d’une liste de valeurs. Cette combobox se trouve dans un Userform. Il est impératif que les valeurs ne soient pas dans la feuille Excel, mais bien écrite dans la macro en VBA.

Alors voilà, j’ai vu plein de choses différentes sur les combobox dans les Userforms, mais aucune méthode que j’ai vu n’est la même et aucune ne marche.

Mes questions sont donc les suivantes :

-Quel est le code à mettre pour insérer des valeurs dans une combobox qui se trouve dans un Userform
-Où doit-on placer ce code ?


Je remercie par avance la ou les personnes qui voudront bien me venir en aide.

catsur

bonjour,
tu peux essayer ça

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize()   Dim tabDonnées As Variant tabDonnées = Array("un", "deux", "trois", "quatre") ComboBox1.List() = tabDonnées ComboBox1.ListRows = UBound(tabDonnées) + 1 ComboBox1.ListIndex = 0 '-1 ComboBox1.SelStart = 0 ComboBox1.SelLength = Len(ComboBox1.Value) End Sub

---

Cordialement

Bonjour,

Tout d'abord merci de m'avoir répondu.

Donc j'ai testé votre exemple une première fois, et il a parfaitement marché. J'ai essayé de le mettre tel quel dans ma feuille Excel, et ça n'a jamais voulu remarcher!

Du coup j'ai essayer de le refaire dans une feuille vierge, mais ça ne marche toujours pas!

Je ne comprends pas ce que j'aurais pu faire la première fois qui l'aurait fait marché et ce que je pourrais faire maintenant qui ne le fait pas marché, car j'ai tout fait dans la foulée!!

Je ne comprend vraiment pas!!!

Juste une question : où faut-il mettre ce code? Dans le code du Userform? Dans le Workbook?

Quelqu'un as-t-il une explication?

Merci!

Je viens de tester ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Change() Dim tabDonnées As Variant tabDonnées = Array("un", "deux", "trois", "quatre") ComboBox1.List() = tabDonnées ComboBox1.ListRows = UBound(tabDonnées) + 1 ComboBox1.ListIndex = 0 '-1 ComboBox1.SelStart = 0 ComboBox1.SelLength = Len(ComboBox1.Value)   End Sub

---

Il ne marche pas du premier coup, par contre il marche quand je tape quelque chose dans la combobox. Donc quand j'ai tapé quelque chose il me marque les valeurs de tabDonnées....

Voilà si ça peut en aider à m'aider...(...)

Merci!

Bonjour,

C'est normal qu'il ne fonctionne seulement quand tu écris quelque chose dedans

Code:

---

Private Sub ComboBox1_Change()

---

Place plustot ton code dans

Code:

---

Private Sub UserForm_Activate()

---

Le code s'exécutera à l'activation de ton usf.

Ça devrait fonctionner!