XL 2010 Convertir une date US [RESOLU]

[Fbsworld]

Bonjour à tous,
Je dois convertir plusieurs dates qui sont actuellement sous le format anglais suivant:

10 Apr 2019

26 Mar 2019

20 Feb 2019

dans le format US suivant (MM/JJ/AA):
4/10/19
3/26/19
2/20/19

Sauriez-vous comment faire?

Merci pour votre aide!

 

[Jean-Eric]

Bonjour,
Un exemple dans le fichier joint.
A te relire.
Cdlt.

 

[Fbsworld]

Merci mille fois Jean-Eric!!! 😀

 

[job75]

Bonjour Fbswold, Jean-Eric,

Même en VBA il faut utiliser des tableaux de correspondance, voyez le fichier joint et cette macro :

Sub Conversion()
Dim a, b, tablo, resu(), i&, x$, j%
a = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
b = Array("Janv", "Fév", "Mars", "Avr", "Mai", "Juin", "Juil", "Août", "Sept", "Oct", "Nov", "Déc")
With [A1].CurrentRegion
    tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
    ReDim resu(1 To UBound(tablo), 1 To 1)
    For i = 1 To UBound(tablo)
        x = tablo(i, 1)
        For j = 0 To 11
            x = Replace(x, a(j), b(j))
            If IsDate(x) Then resu(i, 1) = CDbl(CDate(x)): Exit For
    Next j, i
    .Columns(2).NumberFormat = "mm/dd/yyyy"
    .Columns(2) = resu
End With
End Sub

Pour tester j'ai recopié le tableau A2:A5 sur 100 000 lignes : la macro s'exécute chez moi en 8,4 secondes.

A+