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

Question

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 ? :-)


Configuration: VGN-cs21S, windows 7 professionnel 64bits

PHILOU10120 · Answer

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

eriiic · Answer

Bonjour,

ou bien sélectionner la colonne ou la plage et 'données / convertir...', choisir Date JMA à l'étape 3

eric

Miura564 · Answer

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

michel_m · Answer

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

yacleouf · Answer

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

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

5 réponses

Votre réponse

Discussions similaires