XL 2010 insérer le symbole du shekel sur un nombre

RichardS

XLDnaute Junior
Bonjour à tous,
je butte sur un problème de représentation symbolique. Je m'explique :
Je dispose d'un fichier contenant des nombres (entre autre) et en fonction d'un code currency, je souhaite que certains nombres (pas tous) prennent le symbole monétaire du code currency. Par exemple :
-43,50 €​
0,00 €​
EUR
483,37 €​
Mais aussi :
₪ 37,44​
₪ 0,00​
ILS
₪ 37,44​
Dans le premier cas,le code est :
Range("E12,F12,K12").Select
Range("K12").Activate
Application.CutCopyMode = False
Selection.NumberFormat = "#,##0.00 $"
Range("K12").Select
Mais dans le deuxième cas, cela se gâte car il ne reconnait pas le code du shekel et il me met un point d'interrogation à la place.
Range("E6,F6,K6").Select
Range("K6").Activate
Selection.NumberFormat = "[$?-he-IL] #,##0.00"
Range("L6").Select

Je tourne en rond.
Si vous pouviez m'aider vous aurez droit à un immense sourire de soulagement
A bientôt
 

Dranreb

XLDnaute Barbatruc
Bonjour.
VB:
Selection.NumberFormat = ChrW$(8362) & " #,##0.00"
Remarque : pour reproduire le format personnalisé retenu quand on choisi l'hébreu (après avoir fini par réussir à trouver que c'en était) :
VB:
Selection.NumberFormat = "[$"& ChrW$(8362)& "-he-IL] # ##0,00"
 
Dernière édition:

RichardS

XLDnaute Junior
Super merci beaucoup, ça marche et que cela soit devant ou derrière le nombre.
Range("E6,F6,K6").Select
Range("K6").Activate
Selection.NumberFormat = ChrW$(8362) & " #,##0.00"
Range("L6").Select

Range("E7,F7,K7").Select
Range("K7").Activate
Selection.NumberFormat = " #,##0.00" & ChrW$(8362)
Range("L6").Select
Allez, comme je suis dans de bonnes dispositions, je vais quand même poser une autre question : Où puis je trouver ce type de codification ?
De toute façon un grand merci
 

Statistiques des forums

Discussions
312 165
Messages
2 085 882
Membres
103 010
dernier inscrit
Sys974