Format date

mimiexcel Messages postés 51 Statut Membre -  
mimiexcel Messages postés 51 Statut Membre -
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.
A voir également:

2 réponses

Maurice
 
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
0
mimiexcel Messages postés 51 Statut Membre
 
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.
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318 > mimiexcel Messages postés 51 Statut Membre
 
Bonjour
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
0
mimiexcel Messages postés 51 Statut Membre > michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention  
 
Merci Michel
Bonne soirée
0
mimiexcel Messages postés 51 Statut Membre
 
Voila le lien pour le fichier
https://www.cjoint.com/c/EHkqM5IQwYf
J'espère que cela fonctionnera
0
Maurice
 
Bonjour
Voila la macro a mettre dans un module
Sub 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
0
mimiexcel Messages postés 51 Statut Membre
 
Merci Maurice,
Mais les dates ressortent bien à droite dans la colonne mais non classées.
Bonne soirée
0
mimiexcel Messages postés 51 Statut Membre
 
Bonsoir Maurice.
J'ai la solution.
Il suffisait d'utiliser la formule remplacer par.
Remplacer . (point) par - (Tiret)
et sensuite la macro s'éxécute el les dates sont triées.
Au plaisir
0