S
Santan
Guest
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
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