pb de date : elle est pas dans le bon sens !!

zorg · 22 Octobre 2004

Re-bonjour le forum,
j'ai une fois de plus un souci en vba; j'ai dans toute une colonne des dates sous cette forme:

200107
200106
200101
200204
...
on voit que les 4 premiers chiffres correspondent à l'année et les deux suivants au mois

ce que je souhaiterais c'est inverser année et mois et insérer un "/" entre par une macro

est ce que qqu'un pourrait m'aider ??

Zorg

jmps · 22 Octobre 2004

Bonjour zorg,

Tes dates en colonne A, formule en colonne B :
=DROITE(A1;2)&"/"&GAUCHE(A1;4)
A recopier vers le bas autant que nécessaire.
Si tu veux ensuite remplacer ta colonne A tu fais un copier, collage spécial, valeurs. Puis suppression de la colonne B.

J'espère que ça te convient. Bon week-end,

José

Pascal76 · 22 Octobre 2004

bonjour

essaies ceci

Sub toto()

For x = 1 To Range("A65536").End(xlUp).Row
mavar = Range("A" & x)
Range("A" & x) = Right(mavar, 2) & "/" & Left(mavar, 4)
Next

End Sub

Bonne journée

Pascal

zorg · 22 Octobre 2004

Merci à vous deux pour votre aide
Pascal j'ai adapté ta soluce ; ça marche nickel !!!

Zorg

pb de date : elle est pas dans le bon sens !!

zorg

Guest

jmps

Guest

Pascal76

Guest

zorg

Guest

Discussions similaires