Conversion date quand jour inférieur à 10

[loul03]

Bonjour,

Je suis embêtée car j'ai une cellule sous la forme 2014012 que je voudrais convertir en date, mais comme le 0 n'est pas mis devant le 2 impossible pour moi de faire la séparation

en sachant que j'ai également des dates à 2 chiffres dans mon tableau type 20140123

quelle formule utiliser pour avoir le bon format pour toutes les dates?

par avance merci

 

[Dranreb]

Re : Conversion date quand jour inférieur à 10

Bonjour

Essayer

=DATE(GAUCHE(x;4);STXT(x;5;2);STXT(x;7;2))

 

[Robert]

Re : Conversion date quand jour inférieur à 10

Bonjour Loulou, Bernard, bonjour le forum,

Une autre proposition par macro :

Sub Macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim d As Date

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O (à adapter à ton cas)
Set PL = O.Range("A1:A" & DL) 'définit la palge PL (à adapter à ton cas)
For Each CEL In PL 'boucle sur toutes les celllules CEL de la plage PL
    Select Case Len(CEL.Value) 'agit en fonction du nombre de caractères de la cellule CEL
        Case 6 'cas 6 caractères
            d = DateSerial(Left(CEL.Value, 4), Mid(CEL.Value, 5, 1), Right(CEL.Value, 1)) 'définit la date d (les 4 premiers pour l'année, le 5ème pour le mois, le dernier pour le jour)
            CEL.Value = d 'remplace la valeur par la date
        Case 7, 8 'cas 7 ou 8 caractères
            d = DateSerial(Left(CEL.Value, 4), Mid(CEL.Value, 5, 2), Mid(CEL.Value, 7)) 'définit la date d (les 4 premiers pour l'année, les 5 et 6ème pour le mois, les derniers pour le jour)
            CEL.Value = d 'remplace la valeur par la date
    End Select 'fin de l'action en fonction du nombre de caractères de la cellule CEL
Next CEL 'prochaine cellule de la boucle
End Sub