additem avec range

[oriop]

Bonjourle forum,

J'accumule les problèmes avec ma listbox à plusieurs colonnes :s

J'aimerais faire un additem en utilisant range, ma listbox a 9 colonnes :

j'ai essayé :

userform1.listbox1.additem sheets('zzzz').range('A:I'& dernL)

dernL et la derniere ligne de la feuille zzzz.

evidement ca marche pas 🙂

donc si qqun sait comment je peux faire pour résoudre ce problème ca serait extremement sympa.

merci

 

[oriop]

en plus clair :

je veux faire passer les colonnes de A à I de la derniere ligne de ma feuille zzzz dans ma listbox, est-ce possible?

merci

 

[Hervé]

BOnjour oriop, le forum

🙂

essaye comme ceci :

Dim i As Byte

With ListBox1
    .AddItem Cells(dernL, 1)
    For i = 1 To 9
        .List(.ListCount - 1, i - 1) = Cells(dernL, i)
    Next i
End With

pour faire ceci il faut utiliser list(ligne, colonne), mais il faut d'abord avoir rempli la listbox par additem.

Attention, la premiere ligne et la premiere colonne d'une listbox commence à 0 et non à 1, d'ou les -1 dans le code.

salut

 

[oriop]

Ouah encore trop fort !! ca marche au top 🙂


Merci bcp Hervé pour ton aide precieuse 😉

Ya des des masters sur ce forum B)

merci encore