[Excel VBA] Transformation texte en date

[Résolu/Fermé]
Signaler
Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
-
Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
-
Bonjour,

Je sais pas si ma demande est réalisable, j'ai deux colonnes A et B où les personnes ont rentré des dates de départ et de fin de la manière suivante :

Ex : pour le 20 février 2009 ils ont écris 20090220 ou 10 janvier 1998 ils ont écris 19980110

Bon je sais c'est pas très sensé mais jai ca sur des milliers de colonnes :-(
et je dois travailler avec ces dates là !!!

Donc si vous avez une solution avec une macro je suis preneur :-)

Merci d'avance.

12 réponses

Messages postés
46
Date d'inscription
lundi 16 février 2009
Statut
Membre
Dernière intervention
23 septembre 2009
2
Bonjour,

Il faut que tu sélectionnes la colonne correspondante (cliquer sur "A" par exemple) et faire un clique droit "Format de Cellule" et choisi la catégorie "Date".

Voila j'espère que cela marchera en tout cas moi cela marche sous Excel 2007 ;) mais j'utilisais le 2003 avant ;)

a+
Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
19
Si c'était aussi simple t'inquiètes que je n'aurais pas posé cette question :-)

Même en changeant le format et en le passant en Date ca me marque ############ dans la cellule. Il ne la reconnait pas !!! Il me faudrait une solution pour passer de 20090220 à 20/02/2009.

Mais merci quand meme pour la rapidité de ta reponse ;-)
Messages postés
46
Date d'inscription
lundi 16 février 2009
Statut
Membre
Dernière intervention
23 septembre 2009
2
ha :s en effet ^^ et bien à vrai dire je n'est pas d'autres solutions à te proposées ^^

quelqu'un d'autre sur le forum à une idée ???
Bonjour,
Si ça marque la date te marque ############, je crois que c'est parce que ta colonne est trop petite, agrandis la pour voir.
Boz
Bonjour
Je suppose que tu dois ensuite traiter ces dates et qu'elles doivent absolument avoir un format 'date' .
Si valeur à traiter en A1, créer nouvelle cellule avec format date :

=CNUM(CONCATENER(DROITE(A1;2)&"/"&STXT(A1;5;2)&"/"&GAUCHE(A1;4)))

à condition que la structure de la valeur à traiter soit toujours la même : aaaammjj
Messages postés
11
Date d'inscription
samedi 16 août 2008
Statut
Membre
Dernière intervention
6 mars 2016

Salut Gorion 87
Ta demande m'a intéressé, alors j'ai cherché et sans doute trouvé. Alors accroche-toi. Je suis sur Office 2007.
Par exemple la date entrée est 20090223 pour la date d'aujourd'hui.
1) sélectionne la colonne concernée (par expl, clique gauche sur C)
2) ouvre l'onglet "Données" (en haut)
3) dans le pavé "outils de données", clique sur "Convertir"
4) la fenêtre "assistant conversion" s'ouvre. Dans le cadre "Type de données d'origine", coche le bouton "Délimité"
5) tu fais "Suivant" en bas. Une nouvelle fenêtre s'ouvre.
6) dans le cadre "séparateurs", tu ne laisses cochés que "Espace" et à côté :"Interpréter les séparateurs identiques etc..."
7) Suivant, donc nouvelle fenêtre.
8) dans le cadre "format des données en colonnes" tu sélectionnes "Date" puis tu fais dérouler le menu qui est lié à "Date". Dedans, tu sélectionnes "AMJ" (pour Année, Mois, Jour) à la place de JMA qui est sélectionné par défaut.
9) Terminer (en bas)
Ouf ! Tu dois obtenir, dans ta colonne C : 23/02/2009. C'est déjà plus lisible

Pour obtenir l'affichage suivant : 23-fev-2009, fais ce qui suit.
1) reviens sur l'onglet "Accueil" et dans le pavé "Nombre" ouvre le menu déroulant (à coté de "standard")
2) tout en bas du menu déroulé, choisis "autres formats numériques"
3) dans "catégorie", sélectionne "Date"
4) dans "Type", choisis la dernière ligne : 14-mars-2001 (ou une autre qui te conviendra mieux)
5) OK
et voilà !!!
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
bonjour everybody

regarde si cette macro te convient
départ en ligne 1, date en colonne A et colonne B

Sub lettreendate()
Dim derlig As Long, lig As Long
Dim tablo()
derlig = Range("A65536").End(xlUp).Row
tablo = Range("A1:B" & Range("B65536").End(xlUp).Row)

Application.ScreenUpdating = False
For lig = 1 To UBound(tablo)
    Cells(lig, 1) = CDate(Right(tablo(lig, 1), 2) & "/" & Mid(tablo(lig, 1), 5, 2) & "/" & Left(tablo(lig, 1), 4))
    Cells(lig, 2) = CDate(Right(tablo(lig, 2), 2) & "/" & Mid(tablo(lig, 2), 5, 2) & "/" & Left(tablo(lig, 2), 4))
Next

End Sub


si tu commences à une autre lig X
cells(lig+X,1)= Cdate(etc....
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
Re,
Suite...
si le départ n'est pas en ligne 1
n'oublie pas de modifier l'instruction de définition du tableau:
tablo = Range("AX:B" & Range("B65536").End(xlUp).Row)

et cells(lig+X,1) serait plutôt
cells(lig+X-1)
dans ton 1° message tu parlais: "jai ca sur des milliers de colonnes" j'ai traduit par "milliers de lignes" mais... (des milliers de colonnes m^me sur 2007 ?)
Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
19
Merci à tous pour votre aide !!!

Le metayer, ta solution marche impec hormis pour quelques données mais on va pas chipoter :-)

michel_m ta macro bug jai un message erreur d'execution 13 au niveau de la ligne souligné

Dim derlig As Long, lig As Long
Dim tablo()
derlig = Range("A65536").End(xlUp).Row
tablo = Range("A1:B" & Range("B65536").End(xlUp).Row)

Application.ScreenUpdating = False
For lig = 1 To UBound(tablo)
Cells(lig, 1) = CDate(Right(tablo(lig, 1), 2) & "/" & Mid(tablo(lig, 1), 5, 2) & "/" & Left(tablo(lig, 1), 4))
Cells(lig, 2) = CDate(Right(tablo(lig, 2), 2) & "/" & Mid(tablo(lig, 2), 5, 2) & "/" & Left(tablo(lig, 2), 4))
Next

End Sub
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
Bonjour,

J'ai réessayé, ca marche chez moi.... XL2003

l'erreur 13 se produit si la donnée (ta date) n'est pas de la forme "aaaammjj" comme tu l'as indiqué dans ta demande, par exemple si tu as indiqué l'étiquette de la colonne (date arrivée, machin...) ou date de la forme aammjj...
ci dessous procédure modifiée pour tenir compte de la ligne des premières date (dep)
fais un coiper-coller

Option Explicit
Const dep As Long = 3 ' ligne haute du tableau

Sub ccm()
Dim derlig As Long, lig As Long
Dim tablo()
derlig = Range("A65536").End(xlUp).Row 'ligne basse du tableau
tablo = Range(Cells(dep, 1), Cells(derlig, 2))

Application.ScreenUpdating = False
For lig = 1 To UBound(tablo)
Cells(dep + lig - 1, 1) = CDate(Right(tablo(lig, 1), 2) & "/" & Mid(tablo(lig, 1), 5, 2) & "/" & Left(tablo(lig, 1), 4))
Cells(dep + lig - 1, 2) = CDate(Right(tablo(lig, 2), 2) & "/" & Mid(tablo(lig, 2), 5, 2) & "/" & Left(tablo(lig, 2), 4))
Next

End Sub




Messages postés
55
Date d'inscription
vendredi 20 février 2009
Statut
Membre
Dernière intervention
28 février 2011
19
C'est bon ca marche merci à tous pour vos réponses :-)
Vraiment génial ce forum !!!!