XL 2019 Userform.

[RichardS]

Bonjour à tous,
Et d'avance merci pour votre réponse que j'attends impatiemment.
Mon fichier Excel se compose d'une seule feuille "Feuil1" qui contient une liste dans la colonne A. Mon programme permet d'augmenter ou de diminuer le nombre de ligne de la liste.
J'ai créé une Userform "Usf1". Dans Usf1, j'ai une zone de liste déroulante dans laquelle je souhaite que s'affiche la liste de Feuil1.
Si j'utilise l'option "RowSource" des propriétés de la liste et que j'y mets "Feuil1!A:A", ma liste comportera toutes les lignes non remplie de la colonne de Feuil1. Pas facile à travailler.
Si par contre j'y inscrit "Feuil1!A1:A50" il n'affichera que les 50 première lignes. Ce qui peut être trop ou pas assez.
En fait je souhaite un affichage dynamique qui varie en fonction du nombre de lignes de ma liste.
Pouvez vous m'aider ?

RichardS

 

[xUpsilon]

Bonjour,

A essayer
"Feuil1!A1:A" & Range("A" & Rows.Count).End(xlUp).Row

Bonne continuation

 

[RichardS]

"Feuil1!A1:A" & Range("A" & Rows.Count).End(xlUp).Row

Bonjour,

A essayer
"Feuil1!A1:A" & Range("A" & Rows.Count).End(xlUp).Row

Bonne continuation

J'ai un message "Impossible de définir la propriété RowSource. Valeur de propriété non valide"

 

[xUpsilon]

Re,

Effectivement au temps pour moi, à essayer :

Listbox1.List() = Worksheets("Feuil1").Range("Feuil1!A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value

Bonne continuation

 

[job75]

Bonjour RichardS, xUpsilon,

C'est quand même archi classique !

En supposant qu'il y a une ligne d'en-têtes en Feuil1 définissez le nom Liste par :

=DECALER(Feuil1!$A$1;1;;NBVAL(Feuil1!$A:$A)-1)

Et renseignez la propriété RowSource de la ComboBox par le texte Liste

Edit : coquille, manquait un point-virgule...

A+

 

[job75]

Bah petite coquille, manquait un point-virgule dans la formule...

 

[RichardS]

Si je renseigne la propriété RowSource de la ComboBox par le texte Liste, j'ai droit à l'erreur : valeur de propriété invalide

 

[RichardS]

Peut être la dim de Liste n'est pas acceptée. J'en perd mon latin.
HELP... s'il vous plait

 

[RichardS]

Je me demande si nous parlons de la même chose. Lorsque je suis dans la Userform, je clique dans la liste déroulante et sur propriétés. Le Rowsource est une des options de Propriétés.
Et bien ce rowsource là me dit valeur de propriété non valide.
POURQUOI ?

 

[JM27]

bonjour
si tu avais fourni un fichier exemple , cela ferait belle lurette que cela serait résolu
sais tu que l'on pouvait utiliser la méthode additem pour alimenter ta combo box ?

 

[RichardS]

Il s'agit d'un programme de gestion d'un club de tir.
La Userform1 contient la liste des adhérents. Cette liste est dynamique par un autre programme non présent.
Le but est de faire en sorte que la Userform1 affiche la totalité de la liste de la feuille Liste et non seulement une partie.
Les listes sont confidentielles, c'est pour cela que je ne vous ai pas immédiatement communiqué le fichier. J'ai supprimé les listes pour les remplacer par quelques prénoms.

 

[patricktoulon]

bonsoir
jolie la formule tableau job75

mais dans rowsource ou en utilisation (.list) ca ne fonctionne pas même avec evaluate

que ca me plait le end(xlup) "=NBVAL(Feuil1!$A:$A)-1)

 

[patricktoulon]

re

Dim tablo
tablo = Evaluate("A2:A" & Evaluate("COUNTA(Feuil1!$A:$A)"))
ComboBox1.List = tablo

ou bien encore

tablo = Feuil1.[A2].Resize(Evaluate("COUNTA(Feuil1!$A:$A)") - 1, 1)
ComboBox1.List = tablo

amusant
je la garde dans ma collection evaluate

 

[job75]

Bah les formules étant en notation L1C1 et sans ligne d'en-têtes définir le nom Liste par :

=DECALER(Liste!L1C1;;;NBVAL(Liste!C1))

Par ailleurs dans UserForm1 et UserForm3 il ne s'agit pas de ComboBox mais de ListBox.

Comme dans le fichier joint renseigner leur propriété RowSource par Liste

Salut JM27, patricktoulon.

 

[patricktoulon]

ok en rowsource mais comment l'utiliser en vba

tablo = Evaluate("DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))")
MsgBox TypeName(tablo)' Return error