Date US a passé en FR

[djstroubi]

Bonjour,

Je voudrais réussir à mettre des date US en FR mais il s'avère que cela est plus difficile que ce que je croyais. J'ai lu ce qu'il y avait dans les forum mais rien ne m'a permit d'y arriver.

Cordialement

Merci d'avance

 

[Tibo]

Re : Date US a passé en FR

Bonjour,

A tester avec une colonne intermédiaire :

en C2 :

=SI(ESTNUM(A2);A2;DATE(MOD(SUBSTITUE(A2;"/";"");10000);GAUCHE(A2;2);MOD(ENT(SUBSTITUE(A2;"/";"")/10000);100)))

à recopier vers le bas

@+

 

[djstroubi]

Re : Date US a passé en FR

Merci Tibo,

le problème dans mon cas c'est que j'ai un mélange de date en format texte et date qui sont sous la forme US. Dès lors que je veux mettre le numéro de semaine en face, pas possible, il me met des choses abbérantes

merci

 

[kiki29]

Salut, à tester , j'ai placé les dates converties dans la 3eme colonne
mais est-ce que le 07/08 doit devenir le 08/07 par exemple ?

Option Explicit

Sub Tst()
Dim i As Long
Dim LastRow As Long
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        Feuil1.Cells(i, 3) = CDate(Feuil1.Cells(i, 1))
    Next i
End Sub

 

[djstroubi]

Re : Date US a passé en FR

Merci,

Mais le problème reste le même, Il y a qu'une partie des dates qui se convertissent

 

[kiki29]

Re,si TOUTES les dates sont au fromat US mm/dd/yyyy alors bestialement qqch comme

Sub Tst2()
Dim i As Long
Dim LastRow As Long
Dim j As String, m As String, a As String

    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        j = Mid$(Feuil1.Cells(i, 1), 4, 2)
        m = Mid$(Feuil1.Cells(i, 1), 1, 2)
        a = Mid$(Feuil1.Cells(i, 1), 7, 4)
        Feuil1.Cells(i, 3) = CDate(j & "/" & m & "/" & a)
    Next i
End Sub

 

[djstroubi]

Re : Re: Date US a passé en FR

Merci beaucoup, Ca fonctionne parfaitement

 

[chris]

Re : Date US a passé en FR

Bonjour

Le problème quand on importe des dates au mauvais format, c'est qu'une partie va être considérée comme dates au format français et les dates ne correspondront pas (inversion mois-jour) et les autres au format texte.

Si tu as moyen de régler le problème en amont, c'est nettement plus faible : dans quel format de fichier récupères-tu les données sources ?

 

[hoerwind]

Re : Date US a passé en FR

Bonjour,

Sélectionner la colonne A
Menu Données - Convertir - Suivant - Suivant - cocher "Dates" - choisir "MJA" dans la liste déroulante - Terminer.

 

[kiki29]

Re,pour info un tuto sur les Dates Comprendre et grer les dates sous Excel et en VBA