XL 2016 Alimenter une "combobox" avec "caractères speciaux"

[bernardrustrel]

Bonjour
J'en appelle a vos compétences et aide afin de trouver une solution pour alimenter une "combobox" avec des caractères spéciaux style "Wingdings" code 171 par exemple.

Je cherche surtout a créer dans un formulaire un système de notation avec des etoiles ( 1 a 5 etoiles.
Je vous remercie par avance de vos conseils. Cordialement BernardRustrel

 

[mapomme]

Bonsoir @bernardrustrel🙂,

Essayez le code suivant dans Userform1 :

Private Sub UserForm_Initialize()
Dim i&
   ComboBox1.Font.Size = 18: For i = 1 To 5: ComboBox1.AddItem String(i, ChrW(9733)): Next
End Sub

Private Sub CommandButton1_Click()
   [b9].Font.Name = "Wingdings": [b9].Font.Size = 24
   [b9] = String(Len(ComboBox1), Chr(171))
End Sub

Le caractère Wingdings de code 171 correspond au caractère unicode de code 9733 (en décimal)
Correspondance Windings / Unicode, voir ici : https://www.alanwood.net/demos/wingdings.html
Table Unicode Block “Miscellaneous Symbols”, voir ici : https://www.compart.com/en/unicode/block/U+2600

edit : bonjour @sylvanu 😉

 

[sylvanu]

Bonsoir Bernard, Mapomme,
On peut aussi affecter la police directement dans la combobox, ce qui simplifie les choses.
Ensuite taper dans les polices pour avoir le bon caractère. Voir PJ.

 

[bernardrustrel]

Bonjour
Merci a vous "mapomme" et "sylvanu" pour vos solutions qui correspondent parfaitement à mon besoin.Merci encore.
Bien cordialement et bonne continuation à vous.
BernardRustrel

 

[Valtrase]

Bonsoir à tous,
Possible de gérer avec des étoiles directement sur le formulaire, un petit exemple...