Discussion :

[Pierre67]

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 :

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
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

[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

[Pierre67]

bONJOUR kAGOUME

Oui le nom de la feuille est correct

[Kagoume]

Essaies comme ça voir

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
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+

[Pierre67]

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