Discussion :

[jurta]

Bonjour bonjour!

Alors j'ai cherché partout sur le forum (et d'autres évidemment) et n'ai trouvé aucune solution satisfaisante à mon problème.

J'aimerai créé un bouton qui ajout le symbole ☎ au contenu d'une textbox.. Seulement voilà j'ai bien essayé d'utiliser la fonction Chr(9742) (9742 étant le code ASCII de ☎ ) mais
je reçoit en réponse le message d'erreur suivant:

Invalid procedure call or argument

À la suite de quoi j'ai fait l'opération inverse, c'est à dire récupérer le caractère (que j'avais au préalable bêtement copier/coller dans la textbox) avec la fonction Asc() et m'en transmette le code ASCII en msgbox mais il me renvoi le code pour le symbole "?" .Je suis bien tombé sur un forum où le type disait de changer l'éditeur de texte de code VBA (Tools/Options/Editor Format/Font) mais je suis sûre qu'il y a une autre solution.

Peut-être une référence à ajouter..

Enfin, voilà.. Si quelqu'un a une idée de comment résoudre ce problème, j'accepterai avec grand plaisir son savoir

Cordialement,

Jurta

[marot_r]

Bonjour.

Les codes ACSII sont compris entre 0 et 255 (1 octet). Ceci n'est pas le code ASCII mais un code Windows étendu sur 2 octets (désolé, je ne me rappelle pas le nom du codage).

Essaye en changeant le type de champ pour texte enrichi et tu devras peut-être passer le code sous sa forme html entre <>.

Sinon tu peux peut-être utiliser une image au lieu d'un caractère.

A+

[User]

Bonjour,

La fonction dont parle Marot est ChrW:

Il faut passer la propriété format du texte de la zone de texte en texte enrichi et utiliser un code de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Texte1.Value = ChrW(9742)

Cdlt,

[jurta]

Yes! ça marche! Merci à vous deux! Vive les modos!!

Sujet résolu et savoir nourri! (le mien en tout cas)

EDIT: ça marche très bien mais j'ai un caractère (oridnateur) qui a pour code "128187" soit plus que 2 octets et qui est donc trop grand pour la fonction ChrW . J'ai bien essayé de mettre la valeur en exa (&H1F4BB) mais même problème et je n'arrive pas à trouver une fonction qui accepte des valeurs de 3 octets.. des idées?

Jurta

[User]

Bonsoir,

Il faudrait regarder du côté de cette fonction (pris sur le net) pour gérer plus de 2 octets pour les symboles unicode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Hex2Uni(HexCode As String) As String
  Dim b() As Byte, i&, j&, s$
  s = Replace(HexCode, " ", "")
  s = Replace(s, "0x", "")
  j = Len(s)
  If j <= 4 Then
    ReDim b(1 To 4)
    b() = ChrW("&H" & s)
  Else
    ReDim b(1 To 8)
    b() = ChrW("&H" & Mid$(s, 1, j - 4)) & ChrW("&H" & Mid$(s, j - 3))
  End If
  Hex2Uni = b()
End Function

Utilisable comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Texte1.Value = Hex2Uni(&H1F4BB)

Sans garantie

Cdlt,

[jurta]

Bonjour,

Désolé du temps que j'ai mis avant de répondre mais j'ai été assez occupé ces jours..

Alors j'ai essayé d'appliquer ta fonction mais malheureusement cela ne marche pas du tout, il m'ajoute deux symboles (un symbole de double flèches haut et bas + [FONT=SimSun]膇)..[/FONT]J'ai ensuite essayé de décortiquer le code mais sans vraiment comprendre comment il compte réussir à en tirer le caractère demandé et j'ai fini par décidé d'être un peu souple et de prendre un symbole un peu plus commun et qui passe dans 2 octets^^

Une autre solution qui m'est venue à l'esprit serait de placer la lettre dont le code de police est le même que le symbole désiré de la police Wingdings et d'en changer la police comme dans ce post-ci mais je ne vois vraiment pas comment faire cette manipulation.

Cordialement,


Jurta

[User]

Bonjour,

C'est sûr que le format texte enrichi sous Access, n'est pas aussi complet que sous Word

Il faudrait peut-être déjà essayer de voir s'il s'affiche sous Excel en définissant une police spéciale dans une cellule, en copiant la fonction dans un module sous Excel (ALT+F11) et enfin, en mettant à jour la cellule avec le résultat de la fonction...

Cdlt,

[jurta]

Oui ça serait a essayer mais je n'ai malheureusement plus de temps à mettre sur ce problème.

Quoi qu'il en soit je tag tout de même le problème comme résolu car vous m'avez fourni la réponse à mon problème de base!

Encore merci!


Jurta