bonjour,
j'ai bien pris connaissances de cette page là : http://silkyroad.developpez.com/VBA/ListView/
et sur mon pc (XP avec MO basique 2003) il y a plein de choses qui ne marche pas, tel que "listsubitems" ou les "with"

En fait voilà, je m'explique, j'ai 2 colonnes d'un tableau excel, et je voudrais les mettre dans une listview.
voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
Private Sub UserForm_Initialize()
 
Dim debut_col As Integer, ligne As Integer, fin_col As Integer, i As Integer, entete1 As String, entete2 As String
 
    'recherche de la fin de la colonne 1
    debut_col = 2
    ligne = debut_col
    While Worksheets("Feuil1").Cells(ligne, 1) <> ""
        ligne = ligne + 1
    Wend
    fin_col = ligne - 1
 
    entete1 = Worksheets("Feuil1").Cells(1, 1)
    entete2 = Worksheets("Feuil1").Cells(1, 2)
 
    'Le première ligne des colonne A et B contiennent les entetes
    ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add , , entete1, 70
    ListView1.ColumnHeaders.Add 1, , entete2, 70
 
    'Les autres lignes contiennent les données
    For i = debut_col To fin_col
        donnee1 = Worksheets("Feuil1").Cells(i, 1)
        donnee2 = Worksheets("Feuil1").Cells(i, 2)
        ListView1.ListItems.Add i, , donnee1
        ListView1.ListItems.Add i, , donnee2
    Next i
 
End Sub
Ca bloque au niveau de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ListView1.ListItems.Add i, , donnee1
. Ca me met une erreur d'éxecution 35600 qui me dit " Index out of bounds".
Quelqu'un a-t-il une idée pour m'aider? (car là c'est vraiment la panne sèche :/)
Je vous en remercie d'avance.
Beralienne