Dates inversées

[Bruce68]

Bonsoir à tous
Dans mon fichier quand je fais un etat de mes clients a l'aide de la ListVieW les dates dans la ListView sont conformes à la feuille Factures mais quand je transferf le résultat de la ListView dans la feuille transfert les dates sont inversées.
Que doit on changer dans la macro pour avoir les dates correctes.

Merci de votre aide

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Papou-net]

Re : Dates inversées

Bonsoir Bruce68,

Ton fichier ne fonctionne pas sur mon poste, mais à la lecture de tes macros, il me semble que tu devrais convertir les données de la ListeView1 en date, ex :

.Cells(Lig + 2, Col + 1).Value = [COLOR="Blue"][B]Cdate([/B][/COLOR]ListView1.ListItems(Lig).ListSubItems(Col).Text[COLOR="Blue"][B])[/B][/COLOR]

Ceci t'oblige toutefois à tester la position des colonnes de dates dans ta boucle, ou bien à transférer tes données colonne par colonne en évitant la boucle.

Espérant t'avoir renseigné.

Cordialement.

 

[Bruce68]

Re : Dates inversées

Bonsoir Papou-net bonsoir à tous

Merci Papou-net pour la modif, pour les 2° colonnes cela fonctionne bien vu qu"elles sont pleines (pas de cellule sans date).
Dans la 3° colonnes il peut y avoir des cellules sans date et là la macro se Bug (erreur13, Incompatibilité de Type) .
Je pense qu'il faut mettre une condition pour passer la cellule vide dans la ListView mais là je seche, j'aurais encore besoin d'un petit coup de main.
Je vous remercie de votre aide.

 

[Pierrot93]

Re : Dates inversées

Bonjour Bruce, Papou

essaye d'effectuer un test avec la fonction "isdate", comme dans l'exemple ci-dessous :

If IsDate(Range("A1").Value) Then MsgBox CDate(Range("A1").Value)

désolé, mais je ne peux ouvrir ton fichier, problème de "proxy"...

bonne journée
@+

 

[Bruce68]

Re : Dates inversées

Bonsoir pierrot93 et le forum

Merci pierrot93 pour ta réponse, j'ai trouvé une autre solution, si la cellule de la ListView est vide je passe autrement je copie, voir fichier ci joint.
Bonne soirée à tous

http://cjoint.com/?lkvRggYZxr