[VBA] Transformer une chaîne de caractère en Date

Résolu

yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention -
yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention - 24 mai 2013 à 10:39

Bonjour,

je suppose que c'est pas quelque chose de compliqué mais je dois avouer que je sèche ...

je m'explique, en entrée j'ai une chaîne de caractère du type "déc2013", "janv2013" etc ...
et j'aimerais en récupérer la date (premier du mois) sous forme JJ/MM/AAAA
j'ai essayé le format(maDate , "DD/MM/YYYY") mais ça n'est pas passé ... en passant mon curseur dessus, la chaîne contient toujours une string ...

j'espère que j'ai été explicite ? :-)

Afficher la suite

A voir également:

Vba convertir texte en date
Convertir audio en texte word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Convertir epub en kindle - Guide
Excel cellule couleur si condition texte - Guide
Convertir youtube en mp3 avec audacity - Guide

5 réponses

Réponse 1 / 5

PHILOU10120 Messages postés 6445 Date d'inscription Statut Contributeur Dernière intervention 824

Bonjour

Avec une formule

En A4 l'information à traiter "janv2013 ou "déc2013"

=CNUM(GAUCHE(A4;3)&"/"&DROITE(A4;4)) formater la cellule jj/mm/aaaa

C'est en forgeant que l'on devient forgeron. - C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs

Réponse 3 / 5

Miura564 Messages postés 13404 Date d'inscription Statut Membre Dernière intervention 1 509

bonsoir,

ton problème peut être réglé dans une simple formule. en supposant que tes chaines de caractères se trouvent en colonne A. la formule est :

=TEXTE(DATEVAL(GAUCHE(A1;NBCAR(A1)-4)&"/"&DROITE(A1;4));"jj/mm/aaaa;@")

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Bonjour,

Pourquoi retransformer en texte ?
eric

Miura564 Messages postés 13404 Date d'inscription Statut Membre Dernière intervention 1 509

pour l'afficher en format date JJ/MM/AAAA

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Ca c'est fait par le choix du format d'affichage, il faut laisser la valeur au format date excel.

Miura564 Messages postés 13404 Date d'inscription Statut Membre Dernière intervention 1 509

non, lorsque j'utilise DATEVAL, le resultat est sous forme ordinale. Pour obliger l'affichage sous un format date JJ/MM/AAAA j'ai utilisé la fonction TEXTE()

avec ma formule, pas besoin de formater la cellule, ça se fait tout seul

regarde cet exemple (Excel 2010)

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

avec ma formule, pas besoin de formater la cellule, ça se fait tout seul
Et tu fais pareil lorsque tu veux 2 décimales fixes ?

Sauf que c'est du texte (une conversion en trop), et qu'à chaque fois que veux l'utiliser excel doit refaire à nouveau une conversion en sens inverse.
Et si je veux changer le format d'affichage je ne peux pas.

Juste une question d'efficacité.
Excel connait le format date, autant l'utiliser.

eric

Réponse 4 / 5

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315

Bonjour

Si dans une cellule j'écris janv2013 , excel transforme automatiquement janv2013 en date

mais si dans un code j'ai une variable par ex "janv2014" l'envoi dans une cellule ne produit pas la transformation en date

donc si on est dans un code comme semble l'indiquer yacleouf

Function transfo_date(date_txt As String) As Date
Dim anne As Integer, mois_txt As String, mois(), mois_num As Byte
     annee = Right(date_txt, 4)
     mois_txt = Left(date_txt, Len(date_txt) - 4)
     mois = Array("janv", "fév", "mars", "avr", "mai", "jun", "juil", "aout", "sept", "oct", "nov", "déc")
     For cptr = 0 To 11
          If mois(cptr) = mois_txt Then mois_num = cptr + 1
          Exit For
     Next
     transfo_date = DateSerial(annee, mois_num, 1)
End Function

Sub test()
Range("B2") = transfo_date("fév2014")

End Sub

attention à vérifier mon orthographe des mois dans l'array !!!

Michel

Miura564 Messages postés 13404 Date d'inscription Statut Membre Dernière intervention 1 509

salut,

pourquoi démarrer ton compteur CPTR à zéro pour lui rajouter 1 après ?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Salut michel,

donc si on est dans un code comme semble l'indiquer yacleouf
Ah, faut lire les titres aussi ? :-)
eric

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315

Bonjour Miura,

Parce que un array a comme base 0
fais un essai avec "janv": l'array te renvoie zéro

Ca va Eric? ;o)

Réponse 5 / 5

yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention 39

Oua tant de réponses !
merci à vous tous pour vos contributions !
les solutions de formules ne sont pas envisageable dans mon cas (code vb) et je n'ai pas envie de faire du formula ou autres :-)

d'ailleurs pour solutionner mon problème (au travers d'une formule !) un simple

=DATEVALUE(A1)

est amplement suffisant et me donne mon résultat attendu,

ce que j'aimerais c'est justement trouver une solution aussi "simple" et "rapide" que celle ci mais au travers de code VB !?

Merci encore,

@michel_m, pourrais tu m'expliquer comment est ce que tu modifierais ton tableau "mois" si les données de ce tableau sont contenu dans une range Excel (par ex : A1:A12) ?

merci :-)

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 276

Bonjour,

autre proposition :
d = "janv2014"
[A1] = CDate("1 " & Left(d, Len(d) - 4) & " " & Right(d, 4))

eric

Miura564 Messages postés 13404 Date d'inscription Statut Membre Dernière intervention 1 509

DATEVAL te donne le résultat sous forme ordinale

yacleouf Messages postés 438 Date d'inscription Statut Membre Dernière intervention 39

@eriiic, merci ta solution est nickel !

Discussions similaires

Remplir un tableau excel via VBA

Erreur Automation VBA

CTRL+A en VBA

Fonction Evaluate dans VBA

Selectionner plusieurs feuilles avec VBA

NB.SI critère couleur

Votre réponse

Discussions similaires