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
Supporter XLD
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

Membres actuellement en ligne

Statistiques des forums

Discussions
300 761
Messages
1 987 020
Membres
209 681
dernier inscrit
Excelcrable