Discussion :

[catsur]

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

[fred65200]

bonjour,
tu peux essayer ça

Code :

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

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

[catsur]

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!

[catsur]

Je viens de tester ce code :

Code :

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

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!

[drakkar_agfa]

Bonjour,

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

Code :

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

Private Sub ComboBox1_Change()

Place plustot ton code dans

Code :

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

Private Sub UserForm_Activate()

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

Ça devrait fonctionner!