Discussion :

[Basicnav]

Bonjour à tous,

Voilà mon problème, j'ai une listbox dans un UF; cette listbox va chercher les items dans un feuille excel du même classeur.

Le soucis, c'est que si je sélectionne une plage genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
 
    ListBox1.ColumnHeads = False
       ListBox1.RowSource = "Feuil2!A1:A256"
End Sub

où j'ai volontairement mis A256 (trop grand en prévision d'un agrandissement) je me retrouve avec un tas de champ vides dans ma listbox.

Comment puis-je dire a ma listbox de prendre en comptre toute les lignes (et uniquement celle là) de ma colonne A qui sont remplies ???
J'éviterais ainsi les champs vides...

Merci de vos propositions !

PS : J'ai regardé dans les tutos et le forum...nada.(ou j'ai mal cherché )

[rvtoulon]

Slt
et as-tu essayé comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ListBox1.RowSource = Sheets ("Feuil2").Range("a1:a" & Range("a65536").End(xlUp).Row)

A+

[jijie]

ou encore ds la fenetre propriété de la listbox, à rowsource du indique Feuil2!A1:A256

[patricktoulon]

Slt
et as-tu essayé comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ListBox1.RowSource = Sheets ("Feuil2").Range("a1:a" & Range("a65536").End(xlUp).Row)

A+

si je peut je pense que la solution de rvtoulon est la meilleure dans ta situation le .End(xlUp).Row) determine la limite du nombre de ligne de maniere clair et explicite sans embiguité

[Basicnav]

Bonjour,

J'ai bien essayé la solution proposée par RVToulon, mais je me retrouve avec une erreur 70 que je ne comprends pas.
la ligne en cause après débogage est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SlctAgence.Show

[rvtoulon]

slt, Basicnav
Peut-on en savoir un peu plus sur ton code, stp..
Merci

[Basicnav]

Bien sûr, en tous cas, merci de ton interêt.

J'ai un menu avec 4 boutons qui ouvrent chacuns un UF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
 
Private Sub CommandButton4_Click()
ListAg.Show
End Sub
 
Private Sub Label1_Click()
Aide.Show
End Sub
 
Private Sub Label2_Click()
AProposDe.Show
 
End Sub

Jusque là tout va bien sauf pour le ListAg.Show

Ce UF est très basique, il y a un bouton avec un unload ListAg et une ListBox qui doit prendre ses données dans un feuille excel du classeur.
Si je mets dans le code de mon UF (et là je te renvoie au début du post) ça fonctionne mis à part les champs vides
Lorsque je mets dans le même UF ton code j'ai ma fameuse erreur sur l'UF Menu.

Je te joins le classeur ce sera plus explicite.