Problème avec Listview

Version imprimable

Bonjour à tous et encore meilleurs voeux pour 2015

je me suis lancé dans la création d'un userform avec Listview en m'étant inspiré de plusieurs discussion.
cependant au lancement de l'userform j'obtiens un message d'erreur 13 "Inompatibilité de type" et je ne comprends pas bien où se trouve l'erreur si vous aviez une idée

mon code

Code:

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
Private Sub UserForm_Initialize()
With Me.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Commune", 60
        .Add , , "N° PV", 150
        .Add , , "Entrée", 80
        .Add , , "RD", 60
        .Add , , "Cat", 40
        .Add , , "Situation", 60
        .Add , , "Demandeur", 60
        .Add , , "Ref. Interne", 60
        .Add , , "Pétitionnaire", 60
        .Add , , "Adresse travaux", 60
    End With
End With
Dim cel As Range, plage As Range
With Sheets("PM")
    Set plage = .Range("A5:A" & .Range("A65000").End(xlUp).Row)
    For Each cel In plage
        With ListView1
            .ListItems.Add , , cel
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 3)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 4)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 5)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 6)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 7)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 9)
        End With
    Next
End With
 
End Sub

pourtant les exmples que je télécharge fonctionnent bien
cordialement

04/01/2015, 12h04
Kagoume

Bonjour Pierre67

Vérifies le nom de la feuille si c'est bien "PM" que tu as dans ton fichier.
Meilleurs vœux pour 2015 à toi et au forum
A bientôt
04/01/2015, 12h09
Pierre67

bONJOUR kAGOUME

Oui le nom de la feuille est correct

Essaies comme ça voir

Code:

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
With Me.ListView1
    With .ColumnHeaders
        .Clear
        .Add , , "Commune", 60
        .Add , , "N° PV", 150
        .Add , , "Entrée", 80
        .Add , , "RD", 60
        .Add , , "Cat", 40
        .Add , , "Situation", 60
        .Add , , "Demandeur", 60
        .Add , , "Ref. Interne", 60
        .Add , , "Pétitionnaire", 60
        .Add , , "Adresse travaux", 60
    End With
End With
Dim cel As Range, plage As Range
With Sheets("PM")
    Set plage = .Range("A5:J" & .Range("A65000").End(xlUp).Row)
    For Each cel In plage
        With ListView1
            .ListItems.Add , , cel
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 1)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 3)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 4)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 5)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 6)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 7)
            .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Offset(0, 8)

        End With
    Next

A+

04/01/2015, 14h01
Pierre67

j'ai recopié intégralement ton code et j'obtiens la même erreur