Smiley et Wingdings et label

[carlos]

Bonjour,
A partir du userform1 en pièce jointe, pourquoi en cliquant sur les couleurs du formulaire la police ne se met pas en Wingdings?
Merci pour votre aide.
Carlos

 

[carlos]

Re : Smiley et Wingdings et label

Re


J"ai tenté de contourner ce problème en mettant d'office la police "Wingdings" par défaut dans les propriétés et à la demande la police Tahoma mais lorsque je reviens vers une police wingdings ca reste en tahoma ....Galère ..

 

[Roland_M]

Re : Smiley et Wingdings et label

re

décidément !?
il s'agit bien d'afficher comme ceci en tahoma



puis comme ceci !?

 

[Roland_M]

Re : Smiley et Wingdings et label

re

excuses, je viens de me rendre compte de ma méprise !
on a bien la police, mais pas celle qui est sur la feuille excel que j'avais complétement zappé !
je suis sur autre chose en ce moment et je me suis entêté là dessus !

je vais voir aussi ce que l'on peut faire !

il est vrai que lorsque l'on entre en dur ça fonctionne !?
mais il se passe souvent des choses bizarres entre Excel et Vba !
je me suis aperçu récemment qu'une date dans une cellule= "01/01/1900"
et bien à la lecture de cette cellule du côté vb j'obtenais "31/12/1899"
alors très certainement un problème du même genre !

 

[carlos]

Re : Smiley et Wingdings et label

Je crois que j'ai recrée un fil sans le vouloir .
Oui Roland il s'agit bie de passer de l'image 1 à l'image 2 avec les 2 lettres(un smiley et une fleche.

 

[Roland_M]

Re : Smiley et Wingdings et label

re

voir ce classeur test !
on s'aperçois que du côté vba on n'a pas la même police !?
alors qu'en dur c'est ok !?

je continue mes recherches ...

 

[xhudi69]

Re : Smiley et Wingdings et label

Bonsoir à tous, le Forum,

Et voili 🙂

@+ 😎

 

[Roland_M]

Re : Smiley et Wingdings et label

re,

excellent !
mais chez moi pour avoir les mêmes que sur la feuille,
il me faut mettre:

Private Sub Label2_Click()
With Label2
.Font.Name = "Wingdings"
.Font.Size = 60
.Font.Charset = 2
.Caption = "L" & Chr(238)
End With
End Sub

Private Sub Label3_Click()
With Label3
.Font.Name = "Wingdings"
.Font.Size = 60
.Font.Charset = 2
.Caption = "L" & Chr(236)
End With
End Sub

 

[xhudi69]

Re : Smiley et Wingdings et label

Re:

Désolé, en PJ.

@+ 😎

 

[Roland_M]

Re : Smiley et Wingdings et label

re,

ok !

par contre peux tu m'expliquer ceci
.Font.Charset

j'ai pas trouvé qq de clair !?

 

[xhudi69]

Re : Smiley et Wingdings et label

Bonjour Roland_M, le Forum,

Grace à une recherche, voir ce FIL
J'en sais pas plus pour l'instant. 😕

@+ 😎

 

[Roland_M]

Re : Smiley et Wingdings et label

re

merci à toi, mais j'ai aussi trouvé ceci !
Ajoutez Font.Charset=2 pour valider les polices type Symbole (Wingdings, Webdings ...).

 

[xhudi69]

Re : Smiley et Wingdings et label

RE:

Voir le site de DIEU le père 😉 Ce lien n'existe plus

@+ 😎

 

[Roland_M]

Re : Smiley et Wingdings et label

re,

encore merci à toi.

et pour notre ami carlos:

voir ton classeur avec la solution apportée par xhudi69 au post #23!

bonne nuit et au plaisir !

 

[carlos]

Re : Smiley et Wingdings et label

Je suis impressionné par la qualité et la rapidité de vos réponses à tous les 2 .
C'est super.
Je vais le tester demain sur mon projet ...
Bonne nuit .
Carlos votre ami

 

[Roland_M]

Re : Smiley et Wingdings et label

re

ci-joint le classeur modifié avec .Font.Charset trouvé par notre ami xhudi69
mais avec la sous routine qui simplifie ton code et permet en re cliquant dessus de remettre la police tahoma
je crois que c'est ce que tu souhaitais !?