Bonjour forum,

J'ai un problème, lorsque mon userform s'initialise, je désire alimenter une listview selon un tableau qui peut contenir différent nombre de variable.

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
With Me.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Contrat", 30
        .Add , , "Nb jours", 30
        .Add , , "Départ.", 30
        .Add , , "Date Prod", 30
    End With
 
    If last > 2 Then
        j = 1
        For i = 3 To last
            .ListItems.Add j, , Sheets("Feuil1").Range("AL" & i).Value                  'Contrat
            .ListItems(j).ListSubItems.Add , , Sheets("Feuil1").Range("AM" & i).Value  'Nb jours
            .ListItems(j).ListSubItems.Add , , Sheets("Feuil1").Range("AO" & i).Value  'Produit
            .ListItems(j).ListSubItems.Add , , Sheets("Feuil1").Range("AP" & i).Value  'Date Prod
        j = j + 1
        Next i
    End If
.View = lvwList
End With
1) Mes entêtes ne s'affiche pas
2) La seule colonne qui s'affiche dans ma listview est la première colonne, donc seulement les contrats.

Merci de votre aide