Bonjour à tous !
Je suis étudiant en licence en alternance. Dans le cadre de mon projet professionnel, je dois réaliser un outil de planification de production sous Excel.
J'ai un gros problème avec une macro vba qui doit remplacer des . par des /
En fait je récupère des dates sous le format suivant :
01.06.2012
Mais Excel ne les reconnait pas comme date mais comme nombre et ça me pose des problèmes lorsque je fais des tableaux croisés par la suite.
Bref l'objectif de ma macro est d'obtenir le format suivant :
01/06/2012
En manuel ça fonctionne parfaitement lorsque j'utilise la fonction remplacer. Mais dès que j'utilise une macro ça fait n'importe quoi !
En fait la macro me place le nombre le plus grand en premier. Dans l'exemple que j'ai cité ça donnera ça :
01.06.2012 --> 06/01/2012
La misère !
Quelqu'un a une idée d'où pourrait provenir ce problème ?
J'ai déjà essayé de modifier les formats etc mais rien n'y fait...
Voilà ma macro :
Sub slash()
Range("C2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Replace what:=".", replacement:="/"
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Bonne journée à vous !
Franck
Je suis étudiant en licence en alternance. Dans le cadre de mon projet professionnel, je dois réaliser un outil de planification de production sous Excel.
J'ai un gros problème avec une macro vba qui doit remplacer des . par des /
En fait je récupère des dates sous le format suivant :
01.06.2012
Mais Excel ne les reconnait pas comme date mais comme nombre et ça me pose des problèmes lorsque je fais des tableaux croisés par la suite.
Bref l'objectif de ma macro est d'obtenir le format suivant :
01/06/2012
En manuel ça fonctionne parfaitement lorsque j'utilise la fonction remplacer. Mais dès que j'utilise une macro ça fait n'importe quoi !
En fait la macro me place le nombre le plus grand en premier. Dans l'exemple que j'ai cité ça donnera ça :
01.06.2012 --> 06/01/2012
La misère !
Quelqu'un a une idée d'où pourrait provenir ce problème ?
J'ai déjà essayé de modifier les formats etc mais rien n'y fait...
Voilà ma macro :
Sub slash()
Range("C2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Replace what:=".", replacement:="/"
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Bonne journée à vous !
Franck