Private Sub CommandButton3_Click()
Dim Lig As Long
Dim Col As Long
[COLOR="red"]Dim derLig As Long[/COLOR]
With Worksheets("Transfert")
.Range("A4:J" & .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).ClearContents
For Lig = 1 To ListView1.ListItems.Count
.Range("A" & Lig + 3).Value = ListView1.ListItems(Lig).Text
' Détail des autres colonnes
For Col = 1 To 8
.Cells(Lig + 3, Col + 1).Value = ListView1.ListItems(Lig).ListSubItems(Col).Text
Next Col
If IsDate(ListView1.ListItems(Lig).ListSubItems(9).Text) Then
.Cells(Lig + 3, Col + 1).Value = CDate(ListView1.ListItems(Lig).ListSubItems(9).Text)
End If
Next Lig
[COLOR="red"]derLig = .Range("A" & Cells.Rows.Count).End(xlUp).Row
If derLig > 3 Then[/COLOR]
.Range("A3:J" & derLig).Sort _
Key1:=.Range("A4"), Order1:=xlAscending, _
Key2:=.Range("J4"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
[COLOR="Red"]End If[/COLOR]
End With
Unload Me
Sheets("Transfert").Select
End Sub