VBA formatage symbole Rouble

[chifounou]

Bonjour,

J'essaye par une macro de formater mes valeurs avec le symbole monétaire du Rouble russe qui est ₽

En enregistrant une marco, cela m'a conseillé cette instruction
Selection.NumberFormat = "#,##0 [$?-419]"

Mlheureusement ce code formate avec un point d'interrogation ? au lieu de ₽

Une idée ? Merci !

 

[DoubleZero]

Bonjour, chifounou, le Forum,

Comme ceci ?

A bientôt 🙂

 

[DoubleZero]

Re-bonjour,

Je n'avais pas prêté attention à...

... par une macro...

Une suggestion malhabile 😕 en pièce jointe.

A bientôt 🙂

 

[Dranreb]

Bonsoir.
Ceci semble fonctionner :

Selection.NumberFormat = "#,##0 [$" & ChrW$(8381) & "-419]"

 

[chifounou]

Spassiba ! Merci beaucoup. Très bonne soirée

 

[ROGER2327]

Variante :

Selection.NumberFormat = "#.##0 [$" & ChrW$(9773) & "-419]"

D'accord ! Je sors...

 

[chifounou]

Rebonjour,

J'aimerais arriver au même effet (formatage cellule par macro), cette fois pour le symbole Ƀ (bitcoin)

A nouveau, j'appelle au secours. Merci beaucoup

 

[Dranreb]

Bonjour.
Bon. Vous ferez pareil pour le 3ième, 4ième etc.: Copiez le caractère dans une cellule, à coté, formule =UNICODE(LaCellule) et vous aurez le nombre à spécifier comme argument de ChrW$

 

[chifounou]

=UNICODE() me renvoyait #NOM?
Mais j'ai trouvé l'unicode 579 ici https://en.m.wikipedia.org/wiki/Ƀ

Merci encore. Vous avez visé juste pour le procédé d'apprentissage

 

[Dranreb]

Si vous n'avez pas la fonction UNICODE dans votre version d'Excel vous pouvez vous écrire la fonction perso.

Function UniCode(ByVal C As String) As Integer
UniCode = AscW(C)
End Function