ListBox champ vides

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:

---

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é :mrgreen:)

Slt
et as-tu essayé comme ça:

Code:

---

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

---

A+

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

Citation:

---

Envoyé par rvtoulon

Slt
et as-tu essayé comme ça:

Code:

---

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é

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:

---

1 2	SlctAgence.Show

---

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

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

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

Code:

---

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.

Code:

---

ListBox1.RowSource = Sheets("Feuil2").Name & "!" & Sheets("Feuil2").Range("a1:a" & Sheets("Feuil2").Range("a65536").End(xlUp).Row).Address

---

plus lisible:

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() With Sheets("Feuil2") ListBox1.RowSource = .Name & "!" & .Range("A1:A" & .Range("A65536").End(xlUp).Row).Address End With End Sub

---

Re Edit
et mieux ceci:

Code:

---

1 2 3

Private Sub UserForm_Initialize() ListBox1.RowSource = "Feuil2!A1:" & Sheets("Feuil2").Range("A65536").End(xlUp).Address End Sub

---

Bonjour à tous,

Mercatog, tes deux solutions fonctionnet à merveilles, mais pour n pas mourir idiot, quelqu'un peut-il m'expliquer mon erreur ?
Je ne comprends pas pourquoi j'avais cette erreur sur le ListAg.Show...

l'erreur vient de cette ligne, quand tu appelle ton usf, l'erreur se produit sur initialisation de ce usf

Code:

---

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

---

le .RowSource devrait être de cette manière "NomFeuille!A1:A10"
F1:

Citation:

---

Spécifie la source de données fournissant une liste à un contrôle ComboBox ou ListBox.

Syntaxe

object.RowSource [= String]

---

ps: j'ai rédité mon précédent post
ça devient plus concis t plus clair

Re,
Basicnav désolé pour mon erreur, je savais que dans les propiriétés de la listbox a rowsource il fallait écrire comme ceci "Feuil2!A1:A10",
mais je ne savais pas qu'il fallait faire de même en code, ce qui finalement est logique :marteau:

Merci Mercatoq pour tes explications.
A+