[XL-2003] Modifier un caractère dans une cellule [Résolu]

[FCL31]

Dans une colonnes, j'ai des cellules au fomat date.
Sauf que suite a des erreurs de saisi, j'ai certaines date au bon format : jj/mm/aaaa et d'autre avec un mauvais format "jj.mm.aaaa".

Dans ce derniercas, les cellules ne sont donc pas reconues en tant que date et sa me pose un gros probléme

Je voudrais donc savoir comment faire pour remplcer les "." par des "/" et que se soit donc reconnu comme date.


Merci

[laetitia]

bonjour FCL31 le forum regarde du cote de l'instruction replace

un exemple

Code :

Cells(i, 1) = Replace(Cells(i, 1), ".", "/")

[FCL31]

Merci mais n'etant pas trés fort, je ne sais pas comment appliquer ce code même avec l'aide

[laetitia]

re je suppose la colonne A a adapter a ta colonne

Code :

1
2
3
4
5
6
7
Sub essai()
Dim i As Long
 Application.ScreenUpdating = False
 For i = 1 To Range("A65535").End(xlUp).Row
 Cells(i, 1) = Replace(Cells(i, 1), ".", "/")
 Next i
End Sub

[FCL31]

Merci

Sa a l'air de marcher sauf que sa me tranforme le format de date de jj/mm/aaaa en mm/jj/aaaa

[laetitia]

re, teste comme cela pour voir !!!

Code :

1
2
3
4
5
6
7
8
Sub essai1()
Dim i As Long
 Application.ScreenUpdating = False
 For i = 1 To Range("A65535").End(xlUp).Row
 If Cells(i, 1) Like "##.##/####" Or Cells(i, 1) Like "##/##.####" Or Cells(i, 1) Like "##.##.####" Then
 Cells(i, 1).NumberFormat = "@": Cells(i, 1) = Replace(Cells(i, 1), ".", "/"): Cells(i, 1).NumberFormat = "m/d/yyyy"
 End If: Next i
End Sub

[FCL31]

Merci c'est cool sa a l'air de bien marcher