Comment mettre un caractère spécial

bonsoir,

j'aimerais mettre un caractère "interdiction" en VBA dans une cellule, Jean-Paul m'avais donner ce site http:// avec unicode-table et le .com sur une autre discution. je suis aller voir et j'ai trouver se symbole http:// avec unicode-table avec le .com/fr/1F6AB/ ce qui est ceci 🚫 mais je ne sais pas comment le transformer en ChrW(U+1F6AB).... sa me mets une erreur. pourriez vous me donner l'astuce SVP?

et petite précision je l'aimerais en rouge comme le petit icone montré

merci bien

Cordialement

Bonjour,

Une réponse ?

Cdlt.

merci pour votre réponse super rapide.

et en code VBA sa donnerais quoi en ChrW(....)?

Salut LOKi,
Salut Jean-Eric,

... en encodant son équivalent décimal...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
[A1] = ChrW(8416)
[A1].Font.Color = RGB(255, 0, 0)
'
End Sub

A+

Bonjour...

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  'effet bascule
  R = IIf(R = "", "x", "")
  'inutiles si cellule déjà formatée
  R.Font.Name = "Webdings": R.Font.Color = vbRed: R.Font.Bold = 1
  'sortie
  Cancel = 1
End Sub

merci beaucoup pour votre réponse curulis5

maintenant pour continuer dans le sujet, pour le symbole que j'ai trouver avec la valeur dans l'Unicode (U+1F6AB), cela me donne en décimal ceci (128683)

pourquoi donc si je code ChrW(128683) en VBA si je suit votre logique, sa ne fonctionne pas et me met une erreur?

bonjour, Ordonc, je pense que vous vous êtes tromper de post, votre réponse est surement pour une autre personne.

Cdlt

Salut LOKi,

voici le site où je pêche au besoin mes Unicodes : le décimal s'affiche quand on pointe la souris sur l'item désiré...

Collection Unicode

Et le symbole que tu recherches correspond au décimal 8416...

A+

salut curulis5

merci pour le lien, et je suis allé exactement au même endroit mais je n'ai pas choisi le même symbole je pense,

je n'arrive pas a mettre de lien t'en que j'ai pas posté plus de 30 message, mais sur votre lien mettez a la fin "/fr/1F6AB/" et vous arriverez sur le symbole que je souhaiterais, et que je parlais dans mes messages.

encore merci

Cdlt

Salut LOKi,

je vois que ce symbole est dans la section "Pour FaceBook".
Ceci explique sans doute cela...

Essaie donc avec 8416...

A+

salut curulis57,

merci pour ta réponse, mais j'ai aussi utilisé le signe étoile vide qui est le nombre dans l'Unicode U+2606, ce qui donne ChrW(&H2606) ce qui me donnais bien le signe voulu.

après quelque recherche j'ai trouvé peut-être une réponse à mon problème, c'est que Excel est bloquer à FFFF en hexadécimal ce qui veut dire que les icone qui sont après se plafond ne pourrons pas être lu et transcrit, comme le symbole que je voulais est plus grand 1F6AB donc sa me mets une erreur.

je ne sais pas si c'est correct si mes recherche sont juste ou non mais sa me semble plausible car avec le code que tu m'as donné sa fonctionne très bien et c'est ce que j'ai gardé d'ailleurs.

alors merci bien pour ton aide et à voir si vraiment Excel bloque après la valeur maxi en hexa de FFFF...

bon week-end

Cdlt