menu deroulant

[yohann]

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]

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]

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]

Synchro Hurricane !!



@+Thierry

 

[yohann]

Merci bcp ça marche
yohann