Caractère unicode dans un "caption" d'un bouton

Question

Bonjour,

Pour un formulaire, j'essaye d'ajouter ce symbole ⯆ dans la zone de texte d'un bouton. 

Toutefois il arrive que le symbole disparaisse de mon bouton.

J'ai essayé d'ajouter le symbole via VBA pour qu'il soit toujours chargé à l'ouverture du formualaire.

J'ai indiqué son code unicode mais je n'ai pas la flèche qui apparait :

Private Sub UserForm_Initialize()

    Dim x() As Byte

    x = StrConv("U+2BC6", vbFromUnicode)

    Me.CommandButton1.Caption = x

End Sub

Pour trouver le code de ce symbole, je me suis aidé de cette page : https://fr.wikipedia.org/wiki/Table_des_caract%C3%A8res_Unicode/U2B00

Du coup je me tourne vers vous car cela m'embête que ce symbole puisse disparaître de mon formulaire.  

Merci d'avance pour votre aide :)

Baptiste.

Answer 1

Mets :

Private Sub UserForm_Initialize()

  x = Chr(54)

  Me.CommandButton1.Caption = x

  Me.CommandButton1.Font = "Webdings"

  Me.CommandButton1.Font.Size = 12

  Me.CommandButton1.Font.Bold = True

End Sub

Daniel

Answer 2

Bonjour Daniel,

Effectivement, à terme le classeur pourra être ouvert par d'autres utilisateurs de mon entreprise. Je ne sais pas si tous les postes ont la police Wingdings3 ou même Webdings.

Concernant cette dernière, j'avais essayé le même code que j'ai partagé juste avant avec le caractère 54. Je n'obtiens toujours pas la bonne flèche :(

Private Sub UserForm_Initialize() 'Avec StartUpPosition sur Manual

    Dim x() As Byte

    x = StrConv("54", vbFromUnicode)

    Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2

    Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2

    Me.TextBox1.SetFocus 'Focus

    '

    Me.CommandButton1.Caption = x

    Me.CommandButton1.Font = "Webdings"

    Me.CommandButton1.Font.Size = 12

    Me.CommandButton1.Font.Bold = True

End Sub

Answer 3

"D'autre part, Wingdings3 est-il installé par défaut sur Windows ?"

J'ai Windows 10 et je n'ai jamais installé de police spéciale ? Est-ce que tu destines ce classeur à d'autres utilisateurs dont tu ignores s'ils ont, ou non, cette police ? Tu as aussi me caractère 54 de Webdings.

Daniel

Answer 4

Bonjour,

J'ai testé avec Wingdings3 le caractère 130. Cependant je n'obtiens pas du tout la bonne flèche.

Private Sub UserForm_Initialize() 'Avec StartUpPosition sur Manual

    Dim x() As Byte

    x = StrConv("130", vbFromUnicode)

    Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2

    Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2

    Me.TextBox1.SetFocus 'Focus

    '

    Me.CommandButton1.Caption = x

    Me.CommandButton1.Font = "Wingdings 3"

    Me.CommandButton1.Font.Size = 12

    Me.CommandButton1.Font.Bold = True

End Sub

J'ai essayé de modifier le vbFromUnicode en vbUnicode. Le symbole change mais ce n'est toujours pas le bon.

D'autre part, Wingdings3 est-il installé par défaut sur Windows ?

Cordialement,

Baptiste

Answer 5

Bonjour,

L'utilisation de ton code génère un drôle de label. Est-ce que tu as essayé d'utiliser un d es caractères 113, 128 ou 130 de Wingdings3

Cordialement.

Daniel