Problème de convertion de date

Question

J'ai dans une colonne des dates; je veux trouver la date la plus éloingée et la date la plus proche ; donc j'utilise min et max; par contre ça ne marche pas car les dates sont sous forme "12.02.2019" J'ai donc fais une macro qui remplace les "." par des "/", et ensuite quoi convertit en format européen; cela marche pour les dates avec jours inférieurs à 12 mais ensuite ça ne marche pas . qulequ'un peut-il m'aider merci. mes dates d'origine: 12.07.2019 17.07.2019 12.07.2019 09.07.2019 17.07.2019 18.07.2019 19.07.2019 11.07.2019 11.07.2019 09.07.2019 19.07.2019 18.07.2019 17.07.2019 17.07.2019 11.07.2019 11.07.2019 09.07.2019 11.07.2019 09.07.2019 12.07.2019 09.07.2019 10.07.2019 17.07.2019 11.07.2019 11.07.2019 ma macro : With Sheets("import") For x = 2 To 100 .Cells(x, 5) = Replace(.Cells(x, 5), ".", "/") .Cells(x, 5) = Format(.Cells(x, 5), "dd/mm/yy") Next x End With le résultat: ( les dates en "2019" sont bien au format date; les autres sont au format "standard") 12/07/2019 17/07/19 12/07/2019 09/07/2019 17/07/19 18/07/19 19/07/19 11/07/2019 11/07/2019 09/07/2019 19/07/19 18/07/19 17/07/19 17/07/19 11/07/2019 11/07/2019 09/07/2019 11/07/2019 09/07/2019 12/07/2019 09/07/2019 10/07/2019 17/07/19 11/07/2019 11/07/2019...

archer · Accepted Answer

Peux être comme ca a voir With Sheets("import") For x = 2 To 100 .Cells(x, 5) = CDate(Replace(.Cells(x, 5), ".", "/")) ' '' .Cells(x, 5) = Format(.Cells(x, 5), "dd/mm/yy") Next x End With A+ Maurice...

Steelson · Answer

Vérifie quand même que si c'est &lt;= à 12 tu ne retrouve pas avec des jours et mois inversés ! Cela peut dépendre de tes paramètres excel .....