[Excel VBA] Transformation texte en date

Résolu/Fermé

Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 - 23 févr. 2009 à 15:52
Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 - 24 févr. 2009 à 14:01

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.

Posez votre question

A voir également:

[Excel VBA] Transformation texte en date
Liste déroulante excel - Guide
Formule excel si contient texte alors texte ✓ - Forum Excel
Excel cellule couleur si condition texte - Guide
Formule excel - Guide
Excel si cellule contient texte alors ✓ - Forum Excel

12 réponses

Réponse 1 / 12

info4ever Messages postés 46 Date d'inscription lundi 16 février 2009 Statut Membre Dernière intervention 23 septembre 2009 2
23 févr. 2009 à 15:59

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+

Réponse 2 / 12

Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 19
23 févr. 2009 à 16:17

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

Réponse 3 / 12

info4ever Messages postés 46 Date d'inscription lundi 16 février 2009 Statut Membre Dernière intervention 23 septembre 2009 2
23 févr. 2009 à 16:24

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

Réponse 4 / 12

Boz
23 févr. 2009 à 16:33

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 12

Zizag
23 févr. 2009 à 16:52

Bonjour
Je suppose que tu dois ensuite traiter ces dates et qu'elles doivent absolument avoir un format 'date' .

Réponse 6 / 12

Zizag
23 févr. 2009 à 17:02

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

Réponse 7 / 12

Le metayer Messages postés 11 Date d'inscription samedi 16 août 2008 Statut Membre Dernière intervention 6 mars 2016
23 févr. 2009 à 17:25

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

Réponse 8 / 12

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 févr. 2009 à 18:48

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

Réponse 9 / 12

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 févr. 2009 à 19:57

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

Réponse 10 / 12

Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 19
23 févr. 2009 à 21:08

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

Réponse 11 / 12

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 févr. 2009 à 09:09

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

Réponse 12 / 12

Gorion87 Messages postés 55 Date d'inscription vendredi 20 février 2009 Statut Membre Dernière intervention 28 février 2011 19
24 févr. 2009 à 14:01

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

Posez votre question

Discussions similaires

[VBA]Convertir un string en date

greenthumb - 18 mars 2009 à 10:44
Oli - 18 févr. 2018 à 10:22

12 réponses

un petit texte pour dire joyeux anniversaire

nicoine - 28 nov. 2008 à 23:16
moietctt - 18 avril 2010 à 17:41

4 réponses

Formule Excel pour afficher les mois (chiffres) en lettre

castelc - 10 juin 2009 à 14:54
-2-2 - 17 févr. 2023 à 12:36

23 réponses

comment extraire des dates format excel

abdouwahi - 15 oct. 2008 à 15:54
abdouwahi - 17 oct. 2008 à 11:22

8 réponses

SQL Server Convert champ texte en Date

soleil_levant - 24 juil. 2009 à 11:19
soleil_levant - 24 juil. 2009 à 13:28

6 réponses

Formule date + texte dans cellule excel

Hakim - 11 août 2008 à 12:05
abuammar - 12 mai 2015 à 18:37

3 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire

Discussions similaires

Newsletters