probleme de date

[Mike]

Bonjour,

Dans mon tableau (extraction d'un log), j'ai des dates sous la forme suivante:

10.09.2005
01.06.2005

Pour les transformer dans le bon format, j'utilise le code suivant.

Sub Remplacer()

    Range('A4:B31').Select
    Selection.Replace What:='.', Replacement:='/', LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
End Sub

Le problème est que suivant le cas il m'inverse le mois et le jour.

Par exemple, il va transformer:

10.09.2005 en 10/09/2005
01.06.2005 en 06/01/2005

Est ce que quelqun a une explication

Merci d'avance

Mike

 

[sousou]

Bonjour

C'est toujours un peu difficile entre l'interprétation des dates dans les cellules et dans le code VB
Essaie ceci!

Sub Remplacer()

Range('A1:b31').Select
Selection.Replace What:='.', Replacement:='/', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
For Each i In Selection
i.Value = Format(CDate(i), 'dd/mm/yy')
Next

End Sub

 

[Mike]

Bonjour Sousou.

Ca me fais toujours la meme chose.

Mais merci quand meme pour ton aide.

Si quelqu'un a une autre solution je suis preneur.

Mike