Bonjour le forum,
je viens chercher un peu d'aide aujourd'hui, j'essaie de créer une listview mais j'ai plusieurs erreurs récurrentes et après avoir écumé le forum je ne vois plus de solutions.

Le but de ma macro est d'envoyer le contenu d'une feuille excel dans une listview. Voici mon code pour l'instant :

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
Public Sub FillListview()
 
Dim i As Long, j As Long
Dim FinPage As Long
 
Sheets("stock").Activate
FinPage = Sheets("stock").Cells(Rows.Count, 1).End(xlUp).Row
 
With Stock.ListView1
 
    With .ColumnHeaders
        .Clear
        .Add , , "Code CME", 140
        .Add , , "Désignation", 200
        .Add , , "Qua. actuelle", 140
        .Add , , "Qua. minimum", 140
    End With
 
    For i = 2 To FinPage
        .ListItems(i).Text = "essai"
        '.ListItems(i - 1).ListSubItems(2).Text = "stock"
        '.ListItems(i - 1).ListSubItems(3).Add , , Sheets("stock").Cells(i, 3).Value
    Next
 
End With
 
End Sub
J'ai plusieurs erreurs différentes mais l'erreur actuelle est "index hors limite" et apparait sur la ligne n°20.

Quelqu'un aurait-il une idée ?