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

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é

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é

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é

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é

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é

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é

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é

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é

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é

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é