VBA mois sans accent

[Macpoy]

bonsoir le forum,

je parcoure les archives depuis un (trop long) moment pour ne pas vous embêter.
Mais les quelques réponses que j'ai trouvé me semble bien compliquées (lourdes) par rapport à mon besoin.
description :
pour faire fonctionner une deuxième macro ( macro qui permet d'ouvrir des classeurs du genre :"FEVRIER 2010" et non pas "février 2010"), j'ai besoin d'inscrire en majuscule et sans accent le mois de l'année dans une cellule grâce à une première macro.

pour ce qui est des majuscules, pas de problème !!
mais enlever les accents pour les mois de février, août, décembre j'y arrive pas. ????

Range("L88").FormulaR1C1 =  "=UPPER(TEXT(R[-1]C[-11],""mmmm""))"

=MAJUSCULE(TEXTE(A87;"mmmm"))[CODE]

merci d'avance d'apporter vos connaissances.
@plus jacques

 

[Tibo]

Re : VBA mois sans accent

Bonsoir,

Dans l'écriture des mois, on ne trouve au final que deux types d'accent :

- é : pour février et décembre
- û : pour août

Avec un double SUBSTITUE, ça devrait fonctionner :

=MAJUSCULE(SUBSTITUE(SUBSTITUE(TEXTE(A87;"mmmm");"é;"e");"û";"u"))

Je te laisse le soin d'incorporer le tout dans du VBA.

@+

 

[Macpoy]

Re : VBA mois sans accent

re le forum, Tibo,

j'ai beau essayer d'utiliser votre formule dans VBA, dans une cellule, ou l'enregistrer avec l'enregistreur de macro, pas moyen d'obtenir l'effet voulu.

Range("L88").FormulaR1C1 = "=UPPER(TEXT(A88,""mmmm""))"

en supposant que la valeur de A88 soi 02/02/10 j'obtiens en L88 FÉVRIER mais ces accents ne permettent pas d'ouvrir des classeurs dont les noms n'ont pas d'accent.

 

[ROGER2327]

Re : VBA mois sans accent

Bonjour Macpoy, Tibo

Essayez :

[COLOR="DarkSlateGray"][B]Range("L88").FormulaR1C1 = "=UPPER(SUBSTITUTE(SUBSTITUTE(TEXT(R88C1,""mmmm""),""é"",""e""),""û"",""u""))"[/B][/COLOR]

ROGER2327
#3176

 

[Macpoy]

Re : VBA mois sans accent

bonsoir le forum, ROGER2327, Tibo,

j'suis pas doué ce soir, ça marche pô !!!

je reviendrais plus tard, pour le moment c'est barbecu !!
bonne soirée
@ plus jacques

 

[Tibo]

Re : VBA mois sans accent

Bonsoir,

Sans y connaître grand chose en VBA, le problème pourrait provenir du contenu de la cellule A88

Que contient cette cellule ? Une "vraie" date ? ou autre chose ?

A te (re)lire

@+

 

[ROGER2327]

Re : VBA mois sans accent

Re...

bonsoir le forum, ROGER2327, Tibo,

j'suis pas doué ce soir, ça marche pô !!!

je reviendrais plus tard, pour le moment c'est barbecu !!
bonne soirée
@ plus jacques

Bon appétit !

Le classeur joint montre que la ligne de code est fonctionnelle.
(Le code est dans le module de la feuille "Feuil1".)​

ROGER2327
#3190

 

[Macpoy]

Re : VBA mois sans accent

bon(soir)jour ???

merci beaucoup ROGER2327, Tibo, ça fonctionne très bien.
j'avais pas les yeux en face des trous !!!
une erreur de recopie !
@plus jacques