Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

remplir une combobox à la main avec AddItem(une liste de constante)

11 réponses
Avatar
Alfred WALLACE
Bonjour ;-)

j'ai cherch=E9 sans trouv=E9 de solutions.

je voudrais =E9crire :

Worksheets("Criteres").ComboBox2.AddItem "valeur01"
Worksheets("Criteres").ComboBox2.AddItem "valeur02"


mais sur une seule ligne. dans le style :

Worksheets("Criteres").ComboBox2.AddItem
("valeur01","valeur02","valeur03")


est-ce possible ? sans utliser une boucle ?

Merci de votre aide
Jos=E9

1 réponse

1 2
Avatar
JB
Syntaxe formulaire:

Me.ComboBox1.RowSource = "Feuil2!B2:B5" ' autre feuille
Me.ComboBox1.RowSource = "Feuil2!B2:B" &
Sheets("Feuil2").[B65000].End(xlUp).Row
Me.ComboBox1.RowSource = "liste4" ' nom de champ
Me.ComboBox1.List = Application.Transpose([liste4] )
' nom de champ

Pour Combo dans feuille:

Sheets(1).ComboBox1.RowSource = "Feuil2!B2:B5" ' autre feuille
Sheets(1)..ComboBox1.RowSource = "Feuil2!B2:B" &
Sheets("Feuil2").[B65000].End(xlUp).Row
Sheets(1)..ComboBox1.RowSource = "liste4" ' nom de
champ


JB



JB wrote:
On doit trouver ça dans ce fichier: cliquer sur Accueil

http://cjoint.com/?jtjUl8kFxt

JB


Bonjour

ce que je n'arrive pas à trouver c'est remplir une combo avec des
données qui sont sur une autre feuille.
Je crois qu'il faut utiliser with pour éviter les select... mais je
n'y arrive pas....

Comment je peux faire ?

Merci

José



1 2