VBA formatage symbole Rouble

DoubleZero

XLDnaute Barbatruc

• 18 Août 2016

• #2

Bonjour, chifounou, le Forum,

Comme ceci ?



A bientôt 🙂

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Août 2016

• #3

Re-bonjour,

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

chifounou à dit:

... par une macro...

Cliquez pour agrandir...

Une suggestion malhabile 😕 en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - chifounou - Format Rouble appliquer.xlsm

  73.4 KB · Affichages: 53

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Août 2016

• #4

Bonsoir.
Ceci semble fonctionner :

VB:

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

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 18 Août 2016

• #5

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 19 Août 2016

• #6

Variante :

VB:

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

D'accord ! Je sors...

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 27 Août 2016

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Août 2016

• #8

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$

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 27 Août 2016

• #9

=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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Août 2016

• #10

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

VB:

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

 

Vote positif 0 Vote négatif