Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…