Bonjour,

J'essaie de créer une listview
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Private Sub UserForm_Initialize()
 
 
    Call Actualisation
 
End Sub
 
Sub Actualisation()
Dim f As Worksheet
Dim Lr As Long
Dim Ligne As Integer
Dim w As Variant
 
Set f = ThisWorkbook.Sheets("Cfg")
 
    With LtvPers
        .ListItems.Clear
 
            With .ColumnHeaders
                .Clear
                .Add , , "Réf.", 25, lvwColumnLeft
                .Add , , "Id's", 1, lvwColumnCenter
                .Add , , "Nom, Prénom", 120, lvwColumnLeft
                .Add , , "Fonction", 100, lvwColumnLeft
                .Add , , "Date début de mission", 1, lvwColumnCenter
                .Add , , "Date fin de mission", 1, lvwColumnCenter
                .Add , , "Visite médicale", 68, lvwColumnCenter
                .Add , , "Matricule", 45
                .Add , , "Sexe", 30
            End With
 
        .Gridlines = True
        .View = lvwReport
        .FullRowSelect = True
    End With
 
    Lr = Range("B" & Rows.Count).End(xlUp).Row
    If Lr = 2 Then Exit Sub
 
    Ligne = 1
    For Each w In f.Range("B2:B" & Lr)
        .ListItems.Add , , w
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 1)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 2)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 3)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 4)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 5)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 6)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 7)
        .ListItems(Ligne).ListSubItems.Add , , w.Offset(, 8)
 
        Ligne = Ligne + 1
    Next w
 
    lblNbReg.Caption = LtvPers.ListItems.Count
 
Set f = Nothing
End Sub
Mais quand je veux afficher mon userform j'ai une erreur "référence incorrect ou non qualifié"
Je ne vois pas ce qui manque ?
Pourriez-vous m'aider?
Merci