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.
Code:
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.
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