Format date
Bonjour,
J'ai un souci, je reçois régulièrement un fichier excel que je dois travailler.
J'ai constitué une macro afin d'avoir une présentation et un classement optimum.
Je suis bloqué sur une colonne "date", le tri ne se fait pas car en élargissant la colonne en question ; les dates apparaissent à droite et à gauche dans la même colonne.Il semblerai que 2 formats ont été renseignés (format texte et format date), malgré la fonction format date, rien ne se passe.Je suis contrains à retaper chaque date (figurant à gauche)avant de lancer la macro qui fait bien son travail.
Existe t'il une formule qui permette de retaper les dates (en automatique)en sorte que la macro fonctionne.
Merci de vos bons soins.
J'ai un souci, je reçois régulièrement un fichier excel que je dois travailler.
J'ai constitué une macro afin d'avoir une présentation et un classement optimum.
Je suis bloqué sur une colonne "date", le tri ne se fait pas car en élargissant la colonne en question ; les dates apparaissent à droite et à gauche dans la même colonne.Il semblerai que 2 formats ont été renseignés (format texte et format date), malgré la fonction format date, rien ne se passe.Je suis contrains à retaper chaque date (figurant à gauche)avant de lancer la macro qui fait bien son travail.
Existe t'il une formule qui permette de retaper les dates (en automatique)en sorte que la macro fonctionne.
Merci de vos bons soins.
2 réponses
-
Bonjour
dans ta macro tu peux metre Un Cdate
ex: Range("A1").Value = CDate(Range("A1").Value)
sinon donne un modele de ton fichier pour voir ton probleme
A+
aurice-
Bonsoir Maurice,
Merci mais je n'ai pas réussi avec ta méthode.
Je ne sais pas comment envoyer un fichier excel.
Date
22-juin-15 a
30-juin-15 b
09 juil. 2015 c
18-juin-15 d
Voilà comment se présente ma feuille sur 2 colonnes:
la première avec les dates (3 à droites et une à gauche), la deuième "a,b,c,d.
Merci de ton aide. -
Contributeur@mimiexcelBonjour
pour joindre un classeur:
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente -
-
@michel_mMerci Michel
Bonne soirée
-
-
Bonjour
Voila la macro a mettre dans un moduleSub ModifDate() Derlig = Range("A" & Rows.Count).End(xlUp).Row For L = 2 To Derlig If Range("A" & L).Value <> "" Then Range("A" & L).Value = DateValue(Range("A" & L).Value) End If Next End Sub
A+
Maurice
