Microsoft 365 vba insérer symbole spécifique

dysorthographie

XLDnaute Accro

• 5 Avril 2023

• #2

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 !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Avril 2023

• #3

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Avril 2023

• #4

Bonjour.

Code:

=UNICAR(HEXDEC("1F6A9"))

C'est ""
En VBA

VB:

ChrW$(&H1F6A9)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Avril 2023

• #5

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

 

Vote positif 0 Vote négatif

S

Superemi

XLDnaute Junior

• 5 Avril 2023

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Avril 2023

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Avril 2023

• #8

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

 

Vote positif 0 Vote négatif

Solution

S

Superemi

XLDnaute Junior

• 5 Avril 2023

• #9

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

 

Vote positif 0 Vote négatif