XL 2010 Alimenter Combo via une plage ( nom)

[herve62]

Bonsoir
Il me semble qu'au lieu d'une boucle ( avec additem) on peut alimenter une Combo via une plage définie par son nom ?
Je retrouve pas la syntaxe ?
Merci

 

[Dranreb]

Si l'ordre exact de la plage convient, par exemple :

ComboBox1.List = Feuil1.[NomListe].Value

 

[vgendron]

Bonsoir
s'il s'agit d'utiliser la colonne "NOM" d'une table structurée "Tab_BDD"
combobox.list=sheets("Nomfeuille").listobjects("Tab_BDD").listcolumns("NOM").range.value

range..et pas databodyrange comme j'ai l'habitude d'écrire par défaut...

 

[job75]

Bonsoir herve62, Bernard, vgendron,

Attention si la plage source ne comporte qu'une cellule la méthode avec .List crée un bug.

Përso je fais toujours en sorte qu'il y ait au moins 2 cellules, sur une ComboBox d'une colonne :

ComboBox1.List = [MaPlage].Resize(, 2).Value 'au moins 2 cellules

A+

 

[herve62]

Merci bien à vous tous
mais bon ?
ma combo s'appelle GRADE ma plage définie > GRD ( feuille CP > E2:E15)
donc je fais GRADE.list = GRD et j'ai l'erreur jointe ?
Bonne fin de soirée

 

[Dranreb]

Entre crochets droits le nom de la plage, suivi de .Value
Ou bien Worksheets("CP").Range("GRD").Value

 

[job75]

Les gens qui ont pris la peine de lire mon post #4 écriront bien sûr :

GRADE.List = [GRD].Resize(, 2).Value

 

[herve62]

Merci Bernard ( solution : Ou bien )
sinon j'ai affichage microscopique ??? bon c'est le fichier de mon pote que je complète
moi j'ai jamais eu ça ?? j'ai juste créé la combo dans l'usf déjà existant

 

[herve62]

Oh !!mes plates excuses Gérard
J'étais en streaming entre FOOT , HANDBALL et ....... Excel et donc répondu au + vite
Oui ton truc fonctionne aussi merci ! pourquoi le RESIZE (,2) ?? je ne pige pas
reste juste ce truc de "miniatures" ???
Bonne nuit à vous !!!

 

[TooFatBoy]

Bonjour,

Oui ton truc fonctionne aussi merci ! pourquoi le RESIZE (,2) ?? je ne pige pas

Il me semble qu'il a dit que c'était pour être sûr d'avoir au moins deux cellules, pour éviter l'erreur au cas où il n'y ait qu'une seule ligne.

 

[job75]

Bonjour herve62, le forum,

sinon j'ai affichage microscopique ???

Augmenter la taille de la police :

GRADE.Font.Size = 20 'ou plus

A+

 

[CortoXls]

Les gens qui ont pris la peine de lire mon post #4 écriront bien sûr :

GRADE.List = [GRD].Resize(, 2).Value

Bonjour
Pouvez-vous préciser pourquoi exactement il faut écrire ce code ?
J'essaie de faire quelques programmes en VBA et parfois je coince sur des choses toutes bêtes...

 

[job75]

Bonsoir,

Vous voulez dire pourquoi mettre .Resize(, 2) ?

Je l'ai dit : si la source n'a qu'une cellule => bug.

Avec .Resize(, 2) la source a 2 colonnes donc au moins 2 cellules.

A+

 

[CortoXls]

Bonsoir,

Vous voulez dire pourquoi mettre .Resize(, 2) ?

Je l'ai dit : si la source n'a qu'une cellule => bug.

Avec .Resize(, 2) la source a 2 colonnes donc au moins 2 cellules.

A+

Et que contient la 2ème colonne ?
Elle n'est là que pour éviter le bug ?

 

[job75]

La 2ème colonne de la plage source contient ce qu'il s'y trouve.

Mais la ComboBox n'ayant qu'une colonne elle ne sert à rien d'autre qu'à éviter le bug.