additem avec range

O

oriop

Guest
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
 

Hervé

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 843
Messages
2 092 755
Membres
105 523
dernier inscrit
mouki62530