[Excel VBA] Transformation texte en date

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+

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 ;-)

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

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à !!!

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....

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 ?)

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

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

C'est bon ca marche merci à tous pour vos réponses :-)
Vraiment génial ce forum !!!!