Bonjour à tous,
Y a t'il une astuce pour dépasser la 9 ème colonne dans une listbox
en effet j'ai bien utilisé l'aide et il est dit que la listbox n'accepte qu'un seul index soit de 0 à 9 mais en utilisant une boucle pour remplir jusqu'à la colonne 11 soit 10 existe t'il un moyen de contourner ce problème ?
Merci par avance pour vos aides
Amicalement
Zephir94
Y a t'il une astuce pour dépasser la 9 ème colonne dans une listbox
en effet j'ai bien utilisé l'aide et il est dit que la listbox n'accepte qu'un seul index soit de 0 à 9 mais en utilisant une boucle pour remplir jusqu'à la colonne 11 soit 10 existe t'il un moyen de contourner ce problème ?
VB:
Private Sub UserForm_Initialize()
vj = Sheets(2).Range("A65536").End(xlUp).Row
For p = 2 To vj
UserForm1.ListBox1.ColumnWidths = "50;50;160;60;60;60;60;60;60;60;60;60;60;60"
ListBox1.AddItem
toto = ListBox1.ListCount - 1
ListBox1.List(toto, 0) = Sheets(2).Range("D" & p).Value
ListBox1.List(toto, 1) = Sheets(2).Range("F" & p).Value
ListBox1.List(toto, 2) = Sheets(2).Range("G" & p).Value
ListBox1.List(toto, 3) = Sheets(2).Range("H" & p).Value
ListBox1.List(toto, 4) = Sheets(2).Range("I" & p).Value
ListBox1.List(toto, 5) = Sheets(2).Range("J" & p).Value
ListBox1.List(toto, 6) = Sheets(2).Range("S" & p).Value
ListBox1.List(toto, 7) = Format(Sheets(2).Range("AM" & p).Value, "0.00")
ListBox1.List(toto, 8) = Format(Sheets(2).Range("AR" & p).Value, "0.00")
ListBox1.List(toto, 9) = Format(Sheets(2).Range("AT" & p).Value, "0.00")
ListBox1.List(toto, 10) = Format(Sheets(2).Range("AU" & p).Value, "0.00")
ListBox1.List(toto, 11) = Format(Sheets(2).Range("AV" & p).Value, "0.00")
Next
End Sub
Merci par avance pour vos aides
Amicalement
Zephir94