TopNotch63
XLDnaute Nouveau
Bonjour,
Je mets à jour un classeur qui va chercher ses données dans d'autres classeurs. Toutes ces données sont raptriées dans la feuille "Liste".
J'ai un userform avec un listbox à l'intérieur qui doit afficher ces données.
Jusque là pas de problème. Mon problème est que je veux limiter la grosseur de mon listbox(le nombre de ligne) à celui du nombre de ligne de données de la feuille "Liste".
Je ne trouve pas la façon de définir ce nombre de ligne maximum du listbox.
Merci de votre aaide.
Voici essentiellement le code.
Dim Myarrayliste(20000, 25)
sub RemplirUF
Ligne = 1
LigneArray = 0
Do
For Colonne = 1 To 13
Myarrayliste(LigneArray, Colonne - 1) = Worksheets("Liste").Cells(Ligne + 1, Colonne).Text
Next Colonne
Ligne = Ligne + 1
LigneArray = LigneArray + 1
Loop Until Worksheets("Liste").Cells(Ligne, 1).Value = ""
Liste.ListBox1.List() = Myarrayliste
UF.Show
End Sub
Je mets à jour un classeur qui va chercher ses données dans d'autres classeurs. Toutes ces données sont raptriées dans la feuille "Liste".
J'ai un userform avec un listbox à l'intérieur qui doit afficher ces données.
Jusque là pas de problème. Mon problème est que je veux limiter la grosseur de mon listbox(le nombre de ligne) à celui du nombre de ligne de données de la feuille "Liste".
Je ne trouve pas la façon de définir ce nombre de ligne maximum du listbox.
Merci de votre aaide.
Voici essentiellement le code.
Dim Myarrayliste(20000, 25)
sub RemplirUF
Ligne = 1
LigneArray = 0
Do
For Colonne = 1 To 13
Myarrayliste(LigneArray, Colonne - 1) = Worksheets("Liste").Cells(Ligne + 1, Colonne).Text
Next Colonne
Ligne = Ligne + 1
LigneArray = LigneArray + 1
Loop Until Worksheets("Liste").Cells(Ligne, 1).Value = ""
Liste.ListBox1.List() = Myarrayliste
UF.Show
End Sub