Format date

Bonjour,

Je n'ai pas trouvé réponse à mon interrogation, alors je poste ici. Si le problème a déjà été traité, je m'en excuse par avance.

Sur excel 2016, j'ai un format personnalisé pour une date

31 jan. 72

17 oct. 77

10 juil. 78

01 sep. 83

Or j'aimerais les convertir en format plus classique, du genre 31/01/1972....Ni la conversion de données ni le changement de format en date ne fonctionne. Et ca m'handicape vraiment pour le traitement de données....Quelqu'un peut-il m'aider ?

Merci infiniment par avance.

Harun

Bonjour,

Tes dates sont des dates (valeur numériques) ou du texte ?

Joins un petit fichier pour une aide adaptée.

Cdlt.

Voilà? Elles semblent en format date, mais pas celui que je voudrais (31/01/1999)

Bonjour Harun,

Je te retourne ton fichier Excel modifié :

Si besoin, tu peux demander une adaptation.

Merci de me dire si ça te convient.

dhany

Milles merci, c'est exactement cela !!!!

Je vais enfin pouvoir faire mes traitements ! Infiniment merci, je reviens vers vous si d'éventuels soucis !!

Encore bravo et merci.

Très bonne journée à vous les amis.

Harun

Bonjour,

Essaie ainsi et adapte la formule pour les mois manquants.

D1 : =DATE(DROITE(D1;2)+1900;RECHERCHEV(STXT(D1;4;TROUVE(".";D1)-TROUVE(" ";D1));{"jan.".1;"juil.".7;"sep.".9;"oct.".10};2;FAUX);GAUCHE(D1;2))

@Harun

Merci pour ton retour, je suis ravi que ma solution te convienne !

Très bonne journée à toi aussi !

dhany

Bonjour

avec une macro

et tu peux changer les mois

a voir

Sub TestDate()
Moi = Array("jan.", "fev.", "mar.", "avr.", "mai.", "Juin.", "juil.", "aou.", "sep.", "oct.", "nov.", "dec.")
    For L = 1 To Range("A" & Rows.Count).End(xlUp).Row
        Text = Range("D" & L).Value
        Jour = Split(Text, " ")(0)
        Mois = Split(Text, " ")(1)
        An = Split(Text, " ")(2)
            For I = 0 To UBound(Moi)
                If Moi(I) = Mois Then Tmois = I + 1: Exit For
            Next I
        Range("F" & L).Value = DateSerial(An, Tmois, Jour)
    Next
End Sub

A+

Maurice