Damien0507
XLDnaute Nouveau
Bonjour,
J'aurais besoins de vos lumières pour un petit truc qui me chagrine:
Je copie des infos d'une listbox dans une feuille excel.
Soucis: ma date se transforme en texte...... alors qu'à la base elle est bien en Date
Pouvez-vous m'aider SVP?
Merci d'avance.
Damien.
Ci-dessous la macro:
Private Sub CommandButtonEXP_Click()
Dim i As Integer
Dim x As Integer
For i = 0 To ListBox1.ListCount - 1
x = Range("a500000").End(xlUp).Row + 1
If Me.ListBox1.Selected(i) = True Then
Sheets("Planning").Cells(x, 3) = ListBox1.List(i, 0)
Sheets("Planning").Cells(x, 4) = ListBox1.List(i, 1)
Sheets("Planning").Cells(x, 5) = ListBox1.List(i, 2)
Sheets("Planning").Cells(x, 6) = ListBox1.List(i, 3)
Sheets("Planning").Cells(x, 7) = ListBox1.List(i, 4)
Sheets("Planning").Cells(x, 8) = ListBox1.List(i, 5)
Sheets("Planning").Cells(x, 9) = ListBox1.List(i, 6)
Sheets("Planning").Cells(x, 10) = ListBox1.List(i, 7)
Sheets("Planning").Cells(x, 11) = ListBox1.List(i, 8)
Sheets("Planning").Cells(x, 12) = ListBox1.List(i, 9)
Sheets("Planning").Cells(x, 13) = ListBox1.List(i, 10)
End If
Next i
End Sub
J'aurais besoins de vos lumières pour un petit truc qui me chagrine:
Je copie des infos d'une listbox dans une feuille excel.
Soucis: ma date se transforme en texte...... alors qu'à la base elle est bien en Date
Pouvez-vous m'aider SVP?
Merci d'avance.
Damien.
Ci-dessous la macro:
Private Sub CommandButtonEXP_Click()
Dim i As Integer
Dim x As Integer
For i = 0 To ListBox1.ListCount - 1
x = Range("a500000").End(xlUp).Row + 1
If Me.ListBox1.Selected(i) = True Then
Sheets("Planning").Cells(x, 3) = ListBox1.List(i, 0)
Sheets("Planning").Cells(x, 4) = ListBox1.List(i, 1)
Sheets("Planning").Cells(x, 5) = ListBox1.List(i, 2)
Sheets("Planning").Cells(x, 6) = ListBox1.List(i, 3)
Sheets("Planning").Cells(x, 7) = ListBox1.List(i, 4)
Sheets("Planning").Cells(x, 8) = ListBox1.List(i, 5)
Sheets("Planning").Cells(x, 9) = ListBox1.List(i, 6)
Sheets("Planning").Cells(x, 10) = ListBox1.List(i, 7)
Sheets("Planning").Cells(x, 11) = ListBox1.List(i, 8)
Sheets("Planning").Cells(x, 12) = ListBox1.List(i, 9)
Sheets("Planning").Cells(x, 13) = ListBox1.List(i, 10)
End If
Next i
End Sub