Excel : pb de format date lors d'extraction Résolu/Fermé

Question

Bonjour à tous,

J'ai récupéré un tableau excel extrait d'un logiciel particulier (dont je ne connais ni le nom ni la nature) et je rencontre un problème étrange avec le format des dates : certaine sont au format français (jj/mm/aa) et d'autres sont au format anglais (genre 5-août-2006) mais le jour et le mois ont été inversés(devrait être 8-mai-2006 pour continuer sur le même exemple).

Conséquence : impossible d'uniformiser le format des dates, que j'ai manipulé en long en large et en travers.
J'ai juste réussi, en imposant un format anglais, à remettre les jours et mois dans le bon ordre pour les dates anglaises sans modifier les formats français. Reste que les dates anglaises sont au format jj/mm/aaaa et qu'il me les faudrait en jj/mm/aa et que je n'y arrive pas sans retomber sur le problème d'inversion jour/mois.
(le tableau fait plusieurs milliers de lignes et j'ai beaucoup de manipulation à effectuer dessus, donc impossible tant que je n'ai pas le bon format de date).

Bref, c'est vraiment un problème à la noix mais qui m'empêche de bosser.
J'espère avoir été suffisamment précis dans mes explications.

Voici un extrait du tableau : https://www.cjoint.com/?gzlEdaRN4R
(1ère colone : format d'origine ; 2ème colonne : modifié par mes soins, avec le jour et le mois dans le bon ordre).

Merci d'avance de votre aide.

Cordialement.

michel_m · Accepted Answer

j'avais complètement plané tout à l'heure... vivement les vraies vacances!

Sub dater_fr()
Dim derlig As Long

derlig = Range("B65536").End(xlUp).Row
For cptr = 3 To derlig
    If Application.IsNonText(Cells(cptr, 2)) Then
        Cells(cptr, 2) = CDate(Month(Cells(cptr, 2)) & "/" & Day(Cells(cptr, 2)) & "/" & Year(Cells(cptr, 2)))
   Else
        Cells(cptr, 2) = CDate(Cells(cptr, 2))
    End If
Next
Range("B3:B" & derlig).NumberFormat = "dd/mm/yy;@"
End Sub

michel_m · Answer

Bonjour
pour transformer cellule B6: 3-aout-2009 en 08/03/2009
=DATE(ANNEE(B6);JOUR(B6);MOIS(B6))

maintenant pour détecter le format fr ou uk, peut-^tre vba mais...

michel_m · Answer

Bonjour
pour transformer cellule B6: 3-aout-2009 en 08/03/2009
=DATE(ANNEE(B6);JOUR(B6);MOIS(B6))

maintenant pour détecter le format fr ou uk, peut-^tre vba mais...

michel_m · Answer

Oui,J'y avais pensé en buvant mon jus et puis...

sur le classeur que tu as joint
les dates fr sont du texte (=estexte(la cellule)) et les uk sont des nombres (=estnum(lacellule))
si c'est pareil sur ton original, une petite macro règlera l'affaire
donc, j'attends ta confirmation

michel_m · Answer

Bon D..., mais c'est bien sûr!
C'était tout c... simple
dans une cellule vide dans ta page tu saisis 1
copier
tu sélectionnes ta colonnes de dates
edition -collage spécial- multiplier
dans déselectionner, tu mets au format date que tu veux (format-cellule-nombre)

Larson · Answer

Alléluia !

Ca fonctionne impec. Merci Michel.
Tu m'enverras ta photo pour la statue ; )

Bonne journée.

Alex · Answer

COOOOOL !!!!!

Merci pour cette macro, elle me sauve la vie, cela fait des semaines que je bataille à temps perdu pour trouver une solution à ces maudits formats de date.

Bravo Michel !