OVH Cloud OVH Cloud

tableau et listbox ?

1 réponse
Avatar
romain
Voila j'ai un soucis , j'aimerai recuper des valeurs a=20
partir d'une feuille excel (range("A13:B22")) pour les=20
enregistrer dans une variable tableau ensuite renvoyer ces=20
valeurs dans une listebox =E0 2 colonnes , pour par la suite=20
pouvoir faire un tri dans cette derniere (bon pour le tri=20
ca va je me debrouille plutot bien , vu mes connaissances=20
en vb) . Donc une fois le tri terminer re-renvoyer ma=20
liste directement dans la range("A13:B22") sur la feuille=20
excel , si vous aviez juste une petite explication de=20
comment passer mon tableau a 2 dimension dans ma listbox=20
ce serai super gentil..(je demande pas le code entier lol)=20

Merci et @+ tard .

romain

1 réponse

Avatar
Denis Michon
Bonjour Romain

Tu peux modifier d'autres propriétés de ton listbox au besoin ...

Private Sub UserForm_Initialize()

Dim Tblo as variant, Rg as range

With worksheets("Feuil1")
set rg = .range("A13:B22")
tblo = rg
with userform1.listBox
.ColumnCount = 2
.ColumnWidths = "40;40"
.BoundColumn = 1
.MultiSelect = fmMultiSelectMulti
.List = Tblo
End With
set Rg = Nothing

End sub


Salutations!


"romain" a écrit dans le message de news:084801c3ae8b$f9fe5df0$
Voila j'ai un soucis , j'aimerai recuper des valeurs a
partir d'une feuille excel (range("A13:B22")) pour les
enregistrer dans une variable tableau ensuite renvoyer ces
valeurs dans une listebox à 2 colonnes , pour par la suite
pouvoir faire un tri dans cette derniere (bon pour le tri
ca va je me debrouille plutot bien , vu mes connaissances
en vb) . Donc une fois le tri terminer re-renvoyer ma
liste directement dans la range("A13:B22") sur la feuille
excel , si vous aviez juste une petite explication de
comment passer mon tableau a 2 dimension dans ma listbox
ce serai super gentil..(je demande pas le code entier lol)

Merci et @+ tard .

romain