erreur vba sur format date

[GHISLAIN]

bonjour a tous

With Feuil20
.Range("A3:j65000").ClearContents
DernLign = .Cells(.Rows.Count, 1).End(xlUp).Row
For Lign = 0 To ListBox1.ListCount - 1
[highlight] .Cells(DernLign + Lign + 1, 8) = ListBox1.List(Lign, 7)[highlight]
Next Lign
End With


cette ligne
.Cells(DernLign + Lign + 1, 8) = ListBox1.List(Lign, 7)
me sert a recuperer une valeur de la listbox1 pour l'ecrire dans la feuil20 le souci etant , c est que cette valeur est une date et lors de la recuperation la date est inversée ex : le 04/07/2011 est transformé en 07/04/2011.


j'ai donc transformé le code ainsi qui fonctionne si il existe une valeur
.Cells(DernLign + Lign + 1, 8) = CDate(ListBox1.List(Lign, 7))


si il n'y a pas de valeur j'ai une erreur d'incompatibilité 13
je cherche la bonne syntaxe pour eviter cette erreur si c est vide

merci a tous de votre aide

amicalement

ghislain

 

[cecileg]

Re : erreur vba sur format date

Comment fait on pour mettre une PJ?

 

[cecileg]

Re : erreur vba sur format date

J'ai trouvé mais le fichier est trop volumineux, meme si j'ai déja supprimé pas mal d'informations