Probleme code

[Santan]

Bonjour à tous
j'ai mis se code par au moment de voior le resultat il me met un code erreur '9'
pouvez vous m'aidé svp
merci

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte
Dim k As Integer

k = Sheets('Dépense').Range('A65536').End(xlUp).Row

Application.ScreenUpdating = False
Sheets('Dépense').Activate
Range('A2').Select
Range('A2:J' & k).Sort Key1:=Range('A2'), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets('Dépense').Activate
Application.ScreenUpdating = False

With ListViewCtl1
With .ColumnHeaders
.Clear
.Add , , 'Libéllé', 60
.Add , , 'N°de Facture', 60
.Add , , 'Date', 40
.Add , , 'Espece.', 40
.Add , , 'Chèque', 40
.Add , , 'Total', 40
.Add , , 'TVA', 40
.Add , , 'Total HT', 40
End With

For Each Cell In Sheets('Dépense').Range('A2:A' & Sheets('Dépense').Range('A65536').End(xlUp).Row)
X = X + 1
.ListItems.Add , , Cell
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 2)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 4)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 5)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 6)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 7)
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 8)

Next
End With

End Sub 😱

 

[jeromegmc]

Salut,

Vérifie tout d'abord l'orthographe des noms de tes feuilles dans ton code, VBA est sensible à la présence d'accents et de majuscules.

Si ce n'est pas ca, envois nous ton fichier, < 50kO, zippé et sans accent ni espace.

A+