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

mapomme

XLDnaute Barbatruc

Supporter XLD

• Lundi à 17:16

• #2

Bonsoir @bernardrustrel🙂,

Essayez le code suivant dans Userform1 :

VB:

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 😉

 

Pièces jointes

• bernardrustrel- Black star- v1.xlsm

  20.3 KB · Affichages: 6

Dernière édition: Lundi à 18:16

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Lundi à 18:02

• #3

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.

 

Pièces jointes

• Classeur2.xlsm

  17.8 KB · Affichages: 7
• 4- Polices Windows pour symboles spéciaux..xlsx

  134.6 KB · Affichages: 7

Vote positif 0 Vote négatif

B

bernardrustrel

XLDnaute Occasionnel

• Mardi à 07:54

• #4

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

 

Vote positif 0 Vote négatif

Valtrase

XLDnaute Occasionnel

• Mardi à 22:24

• #5

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

 

Pièces jointes

• Système de notation avec étoiles.zip

  455.3 KB · Affichages: 8

Vote positif 0 Vote négatif