menu deroulant

yohann · 4 Avril 2003

slt tt le monde

J'ai un petit pb dans un menu deroulant. J'ai comme RowSource une colonne avec des données. Le pb est que lorsque j'utilise le menu j'ai bien mes données mais j'ai aussi mes 65000 case vide aussi.

Dans ma colonne j'ai un nombre de données qui varie.

Je voudrais donc savoir comment avoir que les case non vide.

Merci bcp pour vos reponses.

yohann

@+Thierry · 4 Avril 2003

Re: menu deroulant => ListBox RowSource Plage Variable

Salut Yohann et le Forum

Si tu parles bien d'une ListBox (ou d'une ComboBox) sur un UserForm et si ta colonne de données est bien structurée (c'est à dire que tes données ne contiennent pas de cellules vides entres elles) ce code devrait faire l'affaire pour remonter dans une ListBox1 toutes les données jusqu'à la dernière ligne non-vide de manière variable à chaque intialisation de ton UserForm.

Private Sub UserForm_Initialize
Dim VarDerLigne As Integer
Dim VarPlage As String

VarDerLigne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
VarPlage = Sheets("Feuil1").Range("A1:A" & VarDerLigne).Address
ListBox1.RowSource = "Feuil1!" & VarPlage
End Sub

Bon App
@+Thierry

hurricane · 4 Avril 2003

Salut

tu colles sa dans ta macro

Long_colonne= Sheets("feuil1").Range("A65536").End(xlUp).Row
Plage = Sheets("feuil1").Range("a1:a" & Long_colonne_B)

@+

@+Thierry · 4 Avril 2003

Synchro Hurricane !!

@+Thierry

yohann · 4 Avril 2003

Merci bcp ça marche
yohann

menu deroulant

yohann

Guest

@+Thierry

Guest

hurricane

Guest

@+Thierry

Guest

yohann

Guest

Discussions similaires