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

Le
Alfred WALLACE
Bonjour ;-)

j'ai cherch sans trouv de solutions.

je voudrais crire :

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
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #3851381
Bonjour,

Me.ComboBox1.List = Array("aaa", "bbb", "ccc")

Cordialement JB


Bonjour ;-)

j'ai cherché sans trouvé de solutions.

je voudrais écrire :

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é


Alfred WALLACE
Le #3851311
JB wrote:
Bonjour,

Me.ComboBox1.List = Array("aaa", "bbb", "ccc")

Cordialement JB


clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap
! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap !
clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap
! clap ! clap ! clap ! clap !

Array converti en 'tableau' ? parceque en fait, je me demande ce que je
peux
mettre dans .list ?

est-ce que Me.ComboBox1.List = [a1:a10] ou [a1:t1] est valable ?

Je me demande la différence entre un tableau et un variant ..... (oui,
je sais.... çà bien mélangé tout çà....)

en tout cas Merci !

José

JB
Le #3851241
Bonjour,

List attend un tableau (Array) vertical ou horizontal:

Me.ComboBox1.List = Application.Transpose([A1:A10])

Cordialement JB


JB wrote:
Bonjour,

Me.ComboBox1.List = Array("aaa", "bbb", "ccc")

Cordialement JB


clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap
! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap !
clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap ! clap
! clap ! clap ! clap ! clap !

Array converti en 'tableau' ? parceque en fait, je me demande ce que je
peux
mettre dans .list ?

est-ce que Me.ComboBox1.List = [a1:a10] ou [a1:t1] est valable ?

Je me demande la différence entre un tableau et un variant ..... (oui,
je sais.... çà bien mélangé tout çà....)

en tout cas Merci !

José



Alfred WALLACE
Le #4056441
JB wrote:
Bonjour,

List attend un tableau (Array) vertical ou horizontal:

Me.ComboBox1.List = Application.Transpose([A1:A10])

Cordialement JB


ma syntaxe plante, j'ai écris :

Sheets(nomfeuille).CBB_champ_de_page.AddItem = "Processus"

message propriété ou méthode non gérée par cet objet....

d'ailleur, si j'essaye de faire :
Sheets(nomfeuille).CBB_champ_de_page.Clear
Sheets(nomfeuille).CBB_champ_de_page.List = Array("Processus")
' ok
Sheets(nomfeuille).CBB_champ_de_page.ListIndex = 1

mais là j'ai le message "erreur execution 380, valeur de propriété
incorecte"

lorsque je met listindex = 0 j'ai pas d'érreur. comment je peux lui
dire de se positionner sur la valeur "processus" et l'afficher ?

Merci
José

JB
Le #4056101
Sur mon fichier de test, je ne constate pas d'anomalie:

http://cjoint.com/?jsvvesNOex

Sub essai()
Sheets(1).CBB_champ_de_page.Clear
'Sheets(1).CBB_champ_de_page.AddItem "xx"
'Sheets(1).CBB_champ_de_page.List = Array("aa", "bb", "cc")
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")
End Sub

JB


JB wrote:
Bonjour,

List attend un tableau (Array) vertical ou horizontal:

Me.ComboBox1.List = Application.Transpose([A1:A10])

Cordialement JB


ma syntaxe plante, j'ai écris :

Sheets(nomfeuille).CBB_champ_de_page.AddItem = "Processus"

message propriété ou méthode non gérée par cet objet....

d'ailleur, si j'essaye de faire :
Sheets(nomfeuille).CBB_champ_de_page.Clear
Sheets(nomfeuille).CBB_champ_de_page.List = Array("Processus")
' ok
Sheets(nomfeuille).CBB_champ_de_page.ListIndex = 1

mais là j'ai le message "erreur execution 380, valeur de propriété
incorecte"

lorsque je met listindex = 0 j'ai pas d'érreur. comment je peux lui
dire de se positionner sur la valeur "processus" et l'afficher ?

Merci
José



Alfred WALLACE
Le #4055711
JB wrote:
Sur mon fichier de test, je ne constate pas d'anomalie:

http://cjoint.com/?jsvvesNOex

Sub essai()
Sheets(1).CBB_champ_de_page.Clear
'Sheets(1).CBB_champ_de_page.AddItem "xx"
'Sheets(1).CBB_champ_de_page.List = Array("aa", "bb", "cc")
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")
End Sub

JB
Je suis désolé de t'avoir fait perdre ton temps, surtout à une heure

aussi tardive !
effectivement, chez moi çà marchait pas à cause de la propriété
.visible qui etait
restée à FALSE ....

Si je peux me permettre, j'aimerai faire une fonction qui me retourne
le fameux array.... par exemple, au lieu de :
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")

j'aurai
Sheets("feuil1").CBB_champ_de_page.List =
F_remplissage(num_champ,colonne)

et F_remplissage me retournerai le contenu d'une zone
de ma feuille parametre, par exemple B100:B200


est-ce compliqué ?

Merci

José

JB
Le #4055651
http://www.google.com/url?sa=D&q=http://cjoint.com/%3FjsvcFMMMY2

JB


JB wrote:
Sur mon fichier de test, je ne constate pas d'anomalie:

http://cjoint.com/?jsvvesNOex

Sub essai()
Sheets(1).CBB_champ_de_page.Clear
'Sheets(1).CBB_champ_de_page.AddItem "xx"
'Sheets(1).CBB_champ_de_page.List = Array("aa", "bb", "cc")
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")
End Sub

JB
Je suis désolé de t'avoir fait perdre ton temps, surtout à une heure

aussi tardive !
effectivement, chez moi çà marchait pas à cause de la propriété
.visible qui etait
restée à FALSE ....

Si je peux me permettre, j'aimerai faire une fonction qui me retourne
le fameux array.... par exemple, au lieu de :
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")

j'aurai
Sheets("feuil1").CBB_champ_de_page.List =
F_remplissage(num_champ,colonne)

et F_remplissage me retournerai le contenu d'une zone
de ma feuille parametre, par exemple B100:B200


est-ce compliqué ?

Merci

José



JB
Le #4055521
On doit trouver ça dans ce fichier: cliquer sur Accueil

http://cjoint.com/?jtjUl8kFxt

JB


JB wrote:
Sur mon fichier de test, je ne constate pas d'anomalie:

http://cjoint.com/?jsvvesNOex

Sub essai()
Sheets(1).CBB_champ_de_page.Clear
'Sheets(1).CBB_champ_de_page.AddItem "xx"
'Sheets(1).CBB_champ_de_page.List = Array("aa", "bb", "cc")
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")
End Sub

JB
Je suis désolé de t'avoir fait perdre ton temps, surtout à une heure

aussi tardive !
effectivement, chez moi çà marchait pas à cause de la propriété
.visible qui etait
restée à FALSE ....

Si je peux me permettre, j'aimerai faire une fonction qui me retourne
le fameux array.... par exemple, au lieu de :
Sheets("feuil1").CBB_champ_de_page.List = Array("aa", "bb", "cc")

j'aurai
Sheets("feuil1").CBB_champ_de_page.List =
F_remplissage(num_champ,colonne)

et F_remplissage me retournerai le contenu d'une zone
de ma feuille parametre, par exemple B100:B200


est-ce compliqué ?

Merci

José



Alfred WALLACE
Le #4055461
JB wrote:
On doit trouver ça dans ce fichier: cliquer sur Accueil

http://cjoint.com/?jtjUl8kFxt

JB


Il me semble que tu me l'avais deja montré, mais, effectivement, je
n'avais pas su le transposer à mon probleme.
comme je n'accède pas à cjoint derriere mon parefeu je vais voir çà
chez moi à midi.


Merci
José

Alfred WALLACE
Le #3855301
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é

Publicité
Poster une réponse
Anonyme