Discussion :

[ced0802]

Bonjour a tous,

J'ai passe pas mal de temps a comprendre pourquoi ma macro bug en cours de route mais en vain.
Je souhaite remplacer mes dates en format 04.04.2017 dans le format suivant : 04/04/2017.

Le resultat est positif pour les premieres dates, mais arrive a Mai, il y a un inversement des jours et mois qui s'effectue (pourquoi..je ne sais pas).
J'en appelle donc a votre aide.

Ci-joint le fichier pour que vous puissiez tester.

En vous remerciant par avance de votre aide précieuse.

Book1.xlsm

[unparia]

Bonjour

Ci-joint le fichier pour que vous puissiez tester.

Lis donc ma signature.
Si tu souhaites mon aide, montre donc ton code (entre balises code).

[ced0802]

Bonjour Unparia,

Merci pour ton retour.

Ci dessous le code :

Code :

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

1
2
3
4
5
6
7
8
Sub Remplacement()
 
For y = 1 To 140
ThisWorkbook.Sheets("Sheet1").Cells(1, y) = Replace(Cells(1, y), ".", "/")
 
Next y
 
End Sub

Fichier attache dans mon premier message.

Merci.

[unparia]

regarde ce que fait ceci, par exemple :

Code :

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

Range("A1").Value = CDate(Replace(Range("A1").Value, ".", "/"))

et extrapole
N'oublie pas de formater en date la colonne concernée.

[ced0802]

C'est parfait, ca fonctionne.
Un grand merci pour ton aide si rapide.

Bonne soiree.