Private Sub CommandButton3_Click()
'Private Sub cmdTransferer_Click()
Dim Lig As Integer
Dim Col As Integer
Bonsoir à tous
Pourquoi avec cette macro certaines dates (derniere colonne) sont inversées.
Les dates sont mises dans la base à l'aide d'un calendrier (DTPicker) en extraction dans ListView elles sont toujours correctes.
Est il possible de faire le transfert dans leur etat initial ?
Je vous remercie de votre aide.
With Worksheets("Transfert")
.Range("A3:J" & .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).ClearContents
For Lig = 1 To ListView1.ListItems.Count
.Range("A" & Lig + 2).Value = ListView1.ListItems(Lig).Text
' Détail des autres colonnes
For Col = 1 To 9
.Cells(Lig + 2, Col + 1).Value = ListView1.ListItems(Lig).ListSubItems(Col).Text
Next Col
Next Lig
End With
Unload Me
Sheets("Transfert").Select
End Sub
'Private Sub cmdTransferer_Click()
Dim Lig As Integer
Dim Col As Integer
Bonsoir à tous
Pourquoi avec cette macro certaines dates (derniere colonne) sont inversées.
Les dates sont mises dans la base à l'aide d'un calendrier (DTPicker) en extraction dans ListView elles sont toujours correctes.
Est il possible de faire le transfert dans leur etat initial ?
Je vous remercie de votre aide.
With Worksheets("Transfert")
.Range("A3:J" & .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).ClearContents
For Lig = 1 To ListView1.ListItems.Count
.Range("A" & Lig + 2).Value = ListView1.ListItems(Lig).Text
' Détail des autres colonnes
For Col = 1 To 9
.Cells(Lig + 2, Col + 1).Value = ListView1.ListItems(Lig).ListSubItems(Col).Text
Next Col
Next Lig
End With
Unload Me
Sheets("Transfert").Select
End Sub