XL 2010 Alimenter Combo via une plage ( nom)

Dranreb

XLDnaute Barbatruc

• 23 Janvier 2023

• #2

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

VB:

ComboBox1.List = Feuil1.[NomListe].Value

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Janvier 2023

• #3

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...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2023

• #4

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 :

VB:

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

A+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 23 Janvier 2023

• #5

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

 

Pièces jointes

• combo.jpg

  9.6 KB · Affichages: 11

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Janvier 2023

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2023

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 23 Janvier 2023

• #8

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

 

Pièces jointes

• taille.jpg

  6.1 KB · Affichages: 11

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 23 Janvier 2023

• #9

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 !!!

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 24 Janvier 2023

• #10

Bonjour,

herve62 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2023

• #11

Bonjour herve62, le forum,

herve62 à dit:

sinon j'ai affichage microscopique ???

Cliquez pour agrandir...

Augmenter la taille de la police :

Diff:

GRADE.Font.Size = 20 'ou plus

A+

 

Dernière édition: 24 Janvier 2023

Vote positif 0 Vote négatif