Format date us et fr

[Mappie]

Bonjour,

J'ai un fichier avec 2 formats de date dans une même colonne (fichier ci-joint) : j'ai bien un format date normal et des dates en anglais qui sont au format standard.
Est-il possible de mettre ces dates en anglais au format date afin d'avoir un format de cellule uniforme?

J'ai essayé avec la fonction CNUM et TEXTE mais cela ne fonctionne pas.

Je vous remercie par avance pour votre aide.

 

[xhudi69]

Re : Format date us et fr

Bonjour Mappie, le Forum,

Par code:

Sub FormatDate()
Dim i As Integer, Drl As Integer

With Sheets("Feuil1")
        Drl = .Range("B65500").End(xlUp).Row
    For i = 3 To Drl
        .Cells(i, 5) = Format(.Cells(i, 2), "dd/mm/yyyy")
    Next i
End With
End Sub

@+

 

[Staple1600]

Re : Format date us et fr

Bonjour à tous

Par formule

=SI(ESTTEXTE(B3);DATE(DROITE(B3;4);EQUIV(STXT(B3;4;3);{"jan";"feb";"mar";"apr";"may";"jun";"jul";"aug";"sept";"oct";"nov";"dec"};0);GAUCHE(B3;2));B3)

Avec un format Date appliqué à la colonne recevant la formule

 

[xhudi69]

Re : Format date us et fr

Bonjour Mappie, le Forum,

Bonjour "Prisoner of the Grid"

Ou alors appel d'une "Function" :

Function DateUs(Place_a)
Dim LaDate, c As Range
LaDate = ""
For Each c In Range("MOIS_US")
    If Mid(Place_a, 4, 3) = c.Value Then
        LaDate = Replace(Place_a, Mid(Place_a, 4, 3), c.Offset(, 1))
        LaDate = Replace(LaDate, "-", "/")
    End If
Next c
If LaDate <> "" Then
    DateUs = LaDate
Else
    DateUs = Format(Place_a, "dd/mm/yyyy")
End If
End Function

A placer dans un module, puis en "F3" tapez => =dateus(B3) et tirez vers le bas.

EDIT: Je vais joindre le fichier car j'ai oublié de dire que j'avais créé un Range MOIS_US,

@+

 

[Staple1600]

Re : Format date us et fr

Re

Dissertation
"La voie macrotique se justifie-t-elle dans le cas présent alors qu'une formule fait le job?."
Vous avez un quart d'heure
Réponse sur papier à petits carreaux (marge à trois centimètres)

 

[xhudi69]

Re : Format date us et fr

Bonjour Mappie, le Forum

Re Staple1600



@+

 

[Mappie]

Re : Format date us et fr

Merci xhudi69 et Staple1600 pour votre aide!