Souci de variables avec option explicit

bonjour a tous

j'ai option explicit en tête de module et cela fonctionnait très bien avant hier seulement il y a eu une mise a jour de windows et office

et maintenant j'ai un bug dans une listview sur un userform voici le code

Private Sub UserForm_Initialize()
    Dim T As Byte, X As Byte, J As Byte
    Dim C As Range
    Dim fournisseur As Variant
    With LVchoixarticles
    .View = lvwReport: .FullRowSelect = True: .Gridlines = True
    With .ColumnHeaders
    .Add , , "référence", 220
    .Add , , "pu", 40
    .Add , , "unité", 50
    .Add , , "quantité", 50
    End With
    End With
    With Me.LVchoixarticles
    .ListItems.Clear
        For Each C In Range("d19:d" & Range("d65536").End(xlUp).Row)
            X = X + 1
            .ListItems.Add , , C
            For J = 1 To 3
                .ListItems(X).ListSubItems.Add , , C.offset(0, J)
            Next J
    Next C
End With
   

ca bug a cette ligne

 .View = lvwReport: .FullRowSelect = True: .Gridlines = True

où excel vba me dit qu'il manque une variable a .view et .fullrowselt et .true et la je ne sais plus

bonsoir,

je ne vois pas que la variable lvwReport soit définie.

bonsoir H2so4

merci de ta réponse , justement il manque la variable rien que depuis la maj et avant elle s'en passait comment je sais pas mais ça fonctionnait comme cela, mai depuis ce matin je ne peux plus utiliser mon fichier a cause de ce bug et je ne sais pas s'il faut mettre en integer, long, booleen, byte

bonsoir h2so4

bon j'ai extrait l'userform de son fichier afin de le joindre mais le gag est qu'il fonctionne sans le reste du classeur et quand je le remet j'ai le bug, a cette informatique quand elle nous tiens ....

bonsoir h2so4 et forum

bon j'ai trouvé la variable qui permet d'ouvrir l'userform avec sa listview, mais l'affichage est désorganiser comme vous aller le voir sur l’aperçu joint donc j'ai mis Dim lvwReport As Byte comme variable

ah oui j'ai supprimer la listview dès foi que et remis une autre pour retrouver la même chose

tout devrai etre aligné a gauche comme la vue de dessous

bonsoir tout le monde

j'ai fini par trouvé mon souci

en dessous de la déclaration de la variable

Dim lvwReport As Byte

lvwReport=3

merci a h2so4 de l'aide apportée