date inversé lors du transfert listbox vers feuille

[GHISLAIN]

j ai un souvi de date que je ne parviens pas a resoudre

effectivement mes date sont inversés
ex : date correct dans la listbox 11/08/2012 deviens 08/11/2012 une fois mis dans la feuille excel

j'utilise ce code pour transferer mes données

dim i as integer
Dim c As Range
Set c=Sheets("toto").Range("f26")
For i=0 to ListBox1.Listcount-1
c.offset(i)=listbox1.list(i)
Next


je trouve sur le forum pour regler le probleme dans la listbox mais pas quand l envoie est fait sur la feuille

merci a tous de votre aide

amicalement

ghislain

 

[Pierrot93]

Re : date inversé lors du transfert listbox vers feuille

Bonjour,

essaye la fonction "cdate" :

c.offset(i)=CDate(listbox1.list(i))

bonne soirée
@+

 

[GHISLAIN]

Re : date inversé lors du transfert listbox vers feuille

bonsoir Pierrot93,

merci de ta solution qui fonctionne impec

bonne soiree

amicalement

ghislain

 

[BOISGONTIER]

Re : date inversé lors du transfert listbox vers feuille

Bonsoir,

Voir PJ

Private Sub CommandButton1_Click()
 [b2].Resize(Me.ListBox1.ListCount) = Application.Transpose(Application.Transpose(Me.ListBox1.List))
End Sub

JB