Microsoft 365 Mise en forme date

[ivan27]

Bonjour à tous,

Je reçois régulièrement des fichiers qui peuvent contenir des dates formatées avec un "-" comme séparateur. Exemple 02-05-2023. Pour obtenir un format avec "/" j'utilise ceci :

Sub TransformeDate()
For Each c In Range("A1", "A" & Range("A65000").End(xlUp).Row)
    c.Value = Replace(c.Value, "-", "/")
Next c
End Sub

Le problème c'est que je me retrouve avec des inversions jour / mois et que même les dates qui n'ont pas de tiret sont impactées. 02/05/2023 devient 05/02/2023.

Fichier exemple en pièce jointe.

Merci pour votre aide.

Bien cordialement,

Ivan

 

[Cousinhub]

Bonjour,
Sans formules...
Tu sélectionnes la colonne A, puis ruban "Données", onglet "Outils de données", tu cliques sur "Convertir".
Étapes 1 et 2, tu passes en cliquant sur "Suivant", et à l'étape 3, tu sélectionnes "Date" (en laissant JMA)

Et les dates restent conformes
Bonne journée

 

[Cousinhub]

Re-,
Si tu veux malgré tout conserver ta macro, ajoute CDate..

c.Value = CDate(Replace(c.Value, "-", "/"))

 

[ivan27]

Bonjour Cousinhub,
Effectivement, je souhaite conserver la macro.
Merci pour la correction.
Bonne journée
Ivan