Microsoft 365 vba insérer symbole spécifique

[Superemi]

Bonjour à tous, le forum,

Je souhaiterai insérer dans 1 cellule ce caractère :
Il se trouve dans Segoe UI emoji et le code caractère est : 1F6A9

Avec Chr(), je ne peux pas car le code a des lettres.

Comment faire ?

PS : cela faire1h que je cherche 1 astuce sur internet et les forums, je n'ai rien trouvé.

 

[dysorthographie]

Bonjour,
sur ton ordinateur tu devrais trouver une calculatrice.
Il faut passer la calculatrice en mode cientifique et choisir octet tu tapes 1F6A9 puis tu passes ta calculette en desc.

Notes que CHR(&h1F6A9) devrait faire l'affaire !

 

[sylvanu]

Bonjour Superemi, Dysorthographie,
Le problème, me semble t-il, c'est que CHR est limité à 255, et CHRW à 65535.
Or 1F6A9 est supérieur à 65535.

 

[Dranreb]

Bonjour.

=UNICAR(HEXDEC("1F6A9"))

C'est ""
En VBA

ChrW$(&H1F6A9)

 

[sylvanu]

Re, bonjour Dranreb,
Ou encore CHR(79) ou CHR(80) en police Wingdings.

 

[Superemi]

Bonjour Dysorthographie, Sylvanu et Dranreb,

Dysorthographie, le code ne fonctionne pas effectivement.
Dranreb, j'ai 1 message d'erreur sur ton code : Argument ou appel de procédure incorrect.
Sylvanu, c'est obligatoirement le drapeau que j'ai indiqué que je souhaite, dsl.

Voici mon code :
Sub InsererCaractere()
Drapeau = ChrW$(&H1F6A9)
MsgBox Drapeau
End Sub

 

[sylvanu]

Re,
Pour moi CHRW est limité à 65535 ( HFFFF ), voir lien.
Et H1F6A9 vaut 128681.

 

[Dranreb]

En effet, je n'avait pas remarqué que ça n'allait pas au delà de &HFFFF&.
Il ne reste qu'à utiliser WorksheetFunction.Unichar(&H1F6A9)

 

[Superemi]

Dranreb je n'avais pas penser à ça, ça fonctionne !
Merci à tous pour votre temps et votre réactivité