Convertir un nombre en 6 chiffres a une date

Résolu
Salim159 -  
 Salimi159 -
Bonjour,

J'ai une colonne de centaines de nombres de 6 chiffres comme par exemple : 020415 que j'ai obtenu par convertir un fichier pdf en excel.
Je veux un astuce qui me permet de convertir ces chiffres en date sous la forme 02/04/2015

2 réponses

  1. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Re bonjour

    et en VBA cela peut donner ceci :
    Sub ChaineVersDate()
        Dim ligne As Integer
        Dim valeur As String
        For ligne = 1 To 200 ' adapter les bornes
            valeur = Cells(ligne, 1) ' adapter le numéro de colonne
            Cells(ligne, 1) = DateSerial("20" & Right(valeur, 2), Mid(valeur, 3, 2), Left(valeur, 2))
        Next ligne
    End Sub

    1
  2. pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    si par exemple les 6 chiffres sont en A1:
    la formule =DATE("20"&DROITE(A1;2);STXT(A1;3;2);GAUCHE(A1;2))
    le transforme en date
    A condition que l'année tronquée soit bien 2015 est que l'ordre soit
    jjmmaa

    la formule est à recopier ver le bas.
    Cordialement,
    0
    1. Salimi159
       
      Votre réponse m'a été très utile. La formule marche même si l'année n'est pas 2015. Toutefois, il m'a fallu quelques modifications lorsque le chiffre est condtitué de 5 éléments (comme 5022015 =====> 05/02/2015).
      Merci
      0