Transformer des nombres en dates

Bonjour!

Je voudrais transformer une valeur numérique en date: Je m'explique:

des dates de naissance ont été rentrées dans une base sous la forme' mois année' et enregistrées sous forme numerique;

si la personne est née en fev 1972, ca donne 21972.... en novembre 1980, ca donne 111980

J'ai besoin de transormer ce nombre en 01/02/1972 et01/11/1980...

Ca me semble coton! une idée??

Merci d'avance

Bonjour,

Une solution ici

Amicalement

Claude

Merci +++!

re,

autre solution directe en VBA

Sub EnDate()
Dim Lg&, Cel As Range
    Application.ScreenUpdating = False
    Lg = Range("b" & Rows.Count).End(xlUp).Row

    For Each Cel In Range("b3:b" & Lg)
        If Not IsEmpty(Cel) Then
            If Mid(Cel, 1, Len(Cel) - 4) < 13 Then
                Cel.Offset(0, 1) = Format(CDate(1 & "/" & Mid(Cel, 1, Len(Cel) - 4) & _
                "/" & Right(Cel, 4)), "m/d/yyyy")
            End If
        End If
    Next Cel
End Sub

dubois a écrit :

Bonjour,

Une solution ici

Amicalement

Claude

Bonjour

La solution marche bien mais je n'arrive pas a passer du format date ( colonne F) a date copié en valeur (H).

C'est quoi le truc?

Merci d'avance

Bonjour,

Le mieux est d'envoyer la structure réelle de ta feuille,

pas besoin de toutes les lignes.

on adaptera la macro

Amicalement

Claude

Ci joint le fichier. en fait je voudrais simplement prendre la colonne f ou H après transformation, puis la cop col dans le fichier final

re,

ici, on remplace la valeur inscrite en date,

à tester et dis ce qui ne va pas

Sub EnDate()
Dim Lg&, Cel As Range
    Application.ScreenUpdating = False
    Lg = Range("b" & Rows.Count).End(xlUp).Row

    For Each Cel In Range("b3:b" & Lg)
        If Not IsEmpty(Cel) Then
            If Mid(Cel, 1, Len(Cel) - 4) < 13 Then
                Cel = Format(CDate(1 & "/" & Mid(Cel, 1, Len(Cel) - 4) & _
                "/" & Right(Cel, 4)), "m/d/yyyy")
            End If
        End If
    Next Cel
End Sub

Claude

Bonjour tous,

Tu dois copier la colonne <F> en "Collage spécial" -> valeur.

Ensuite mettre la colonne au format Date

A+

Merci a tous!!

ca marche au top.