Inversé les dates en dd/mm/y en mm/dd/y

Bonjour,

Je vous explique mon problème, j'ai des données qui viennent du presse papier et une macro qui vient coller mon presse papier et faire des traitements derrière. Mais voilà, chaque que je passe par la fonction
"activesheet.paste", les jours compris entre le 1 et le 12 s'inverse avec le mois pour les passés au format américain et me laisse tout le reste en français. J'ai essayer de court circuité ce défaut en faisant cette macro mais elle ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim f As Single f = 1 Do While Cells(f, 1).Value <> "" If Cells(f, 1).Value < "12/MM/YYYY" Then Selection.NumberFormat = "MM/DD/YYYY" f = f + 1 End If Loop End Sub

---

elle m'inverse tout au lieux de se limiter au jour compris entre 1 et 12.
Si quelqu'un a une idée. Merci d'avance.

Bonjour,

A tu essayé Format et touche F1 ?

Jean Pierre

Tu peux tester

Code:

---

1 2	If Cells(f, 1) < CDbl(CDate("10/1/2008")) Then _ Cells(f, 1).NumberFormat = "MM/DD/YYYY"

---

Bonjour

Essaye cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test() Dim f As long dim w as string f = 1 Do While Cells(f, 1).Value <> "" If day(Cells(f, 1)) < 13 then w = format(cells(j,1),"DD/MM/YYYY") cells(f,1) = cdate(mid(x,4,2) & "/" & left(w,2) & "/" & right(w,4)) end if f = f + 1 Loop end sub

---

Edit : Bonjour ouskel'n'or

Merci à toi ouskelnor et merci a tout le monde de vos réponses. Problème résolu.

Cordialement