Passage en majuscules d'une date

Le
ericlbt
Bonjour,

Malgré mes recherches je n'ai toujours pas trouvé la solution à mon problème.

En "A1" j'ai une date au format "jj.mm.aaaa"
"A5" est une copie de "A1" mais au format "mmmm aaaa"
"A1" = 01.03.2009
"A5" = mars 2009

Je souhaite créer une macro pour obtenir : MARS 2009

Merci par avance pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18751411
Salut à toi

Date en A1

Pour A5 à mettre en format texte tu peux utiliser ceci :

Range("A5") = UCase(Format(Range("A1"), "mmmm yyyy"))

D'une manière générale pour la cellule active (en format texte) tu peux
mettre :

ActiveCell = UCase(Format(Range("A1"), "mmmm yyyy"))

Celà devrait convenir
Dis moi !!!!!
ericlbt
Le #18751871
Merci FFO, c'est parfait.

"FFO" a écrit :

Salut à toi

Date en A1

Pour A5 à mettre en format texte tu peux utiliser ceci :

Range("A5") = UCase(Format(Range("A1"), "mmmm yyyy"))

D'une manière générale pour la cellule active (en format texte) tu peux
mettre :

ActiveCell = UCase(Format(Range("A1"), "mmmm yyyy"))

Celà devrait convenir
Dis moi !!!!!



Publicité
Poster une réponse
Anonyme