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
311 730
Messages
2 081 981
Membres
101 855
dernier inscrit
alexis345