Discussion :

[bigboss60]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jean-Pierre49]

Bonjour,

A tu essayé Format et touche F1 ?

Jean Pierre

[ouskel'n'or]

Tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

Bonjour

Essaye cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bigboss60]

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

Cordialement