VBA6 - Excel : convertir date cellule en format texte

[vincent.duveau]

Bonjour à tous,

voilà depuis quelques jours que je cherche à transformer une date au format initial dd/mm/yyyy (ex : 01/05/2011) à un format texte de forme mm yyyy (ex : mai 2011).
Le tout dois se faire sur une colonne entière.

Le résultat des cellules sont que leurs contenus reste identique mais la valeur visuelle change.
Alors que je souhaite que le contenu soit lui aussi modifier au format demandé.
Voici le code :

Sub formatdate()

Columns("I").Select
Selection.NumberFormat = "MMM yyyy"

End Sub

Merci de votre aide.
Pj : le fichier joint.

 

[vincent.duveau]

Re : VBA6 - Excel : convertir date cellule en format texte

merci bien pour cette rapide réponse.
Le code marche, mais sur certaines cellules, le format reste en version 11/11/2011.
je ne sais vraiment pas pourquoi.

en pj la version avec le code proposer et le résultat étonnant.

Vincent:

 

[Ellimac45]

Re : VBA6 - Excel : convertir date cellule en format texte

Bonjour,

En rajoutant un espace cela fonctionne

Sub formadate()
Dim Cell As Range
For Each Cell In Range("I2:I" & Range("I65536").End(xlUp).Row)
a = " " & Format(Cell, "MMM")
b = Format(Cell, "YY")
Cell = a & " " & b
Next
End Sub


Ellimac

 

[vincent.duveau]

Re : VBA6 - Excel : convertir date cellule en format texte

Merci à tous pour votre aide.
Le code marche.