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

 

[Paf]

Re : Smiley et Wingdings et label

Bonjour

après quelques essais , curieusement la police n'est pas toujours appliquées (OK pour Label1, mais pas OK pour les autres labels)

une solution, ne laisser dans le code que

Private Sub Label1_Click()
    Label1.Font.Size = 60
    Label1.Caption = "J"
End Sub

ou l'équivalent pour les autres Label et mettre " en dur" dans les propriétés Font de chaque label :Wingdings et supprimer la valeur définie dans Caption.

A+

 

[xhudi69]

Re : Smiley et Wingdings et label

Bonjour carlos, le Forum,

Comme ceci:

Private Sub Label1_Click()
Label1.Font = "Wingdings"
Label1.Font.Size = 60
Label1.Caption = "J"
End Sub

Ton Label doit être vide au départ, donc dans les propriétés ne mets rien.

EDIT: Bonjour paf 🙂

@+ 😎

 

[xhudi69]

Re : Smiley et Wingdings et label

Bonjour carlos, le Forum,

Ou alors comme ceci, en PJ

@+ 😎

 

[carlos]

Re : Smiley et Wingdings et label

Merci Paf et Xhudio69,
La solution de XHUDI69 marche mais ne me convient pas .
Car j'ai besoin de changer la police en fonction de variable externes , tantôt le label est en Tahoma tantôt en "Wingdings".
Y a t'il un autre moyen directement par VBa?
Carlos

 

[Paf]

Re : Smiley et Wingdings et label

Re et bonjour xhudi69

La solution de XHUDI69 marche mais en passant par le format de la cellule ( ce qui est contraignant).

ça c'est vrai pour la dernière proposition de xhudi69?
Qu'en est il de nos propositions de code?

A+

 

[Roland_M]

Re : Smiley et Wingdings et label

bonjour à tous,

'il faut vider avant ! exemple Label1.Caption = ""

Private Sub Label1_Click()
Label1.Font.Size = 60
Label1.Caption = "" ' <<<<<<<<<<<
Label1.Font.Name = "Wingdings"
Label1.Caption = "J"
End Sub

 

[carlos]

Re : Smiley et Wingdings et label

Bonjour Roland M,
Pour répondre à PAF, je ne souhaite pas passer directement "en dur" dans les propriétés car mon label.caption évolue tout le temps .Ca doit etre dynamique et en vba.
Pour Roland M , j'ai la première lettre qui se transforme bien en wingdings mais pas le seconde qui reste en "î" en tahoma.
C'est incroyable ce truc.
Voir en PJ la méthode Roland M qui reste encore incomplete.

Carlos

 

[Roland_M]

Re : Smiley et Wingdings et label

re,

voir comme ceci :

EDIT: chez moi ça fonctionne même celui d'avant !?
ici chaque fois que tu clic ça change de police !

Option Explicit
Dim S%, P$, C$

Private Sub Label1_Click()
ChangePolice Label1, "J"
End Sub

Private Sub Label2_Click()
ChangePolice Label2, "Lî"
End Sub

Private Sub Label3_Click()
ChangePolice Label3, "Lì"
End Sub

Private Sub ChangePolice(Ctrl As Control, C$)
P$ = "Wingdings": S = 60: If Ctrl.Font.Name = P$ Then P$ = "Tahoma": S = 48
Ctrl.Caption = "": Ctrl.Font.Name = P$: Ctrl.Font.Size = S: Ctrl.Caption = C$
End Sub

 

[carlos]

Re : Smiley et Wingdings et label

Dommage .C'est toujours la même chose.La première lettre est en bien modifiée en wingdings mais pas la seconde...

 

[Roland_M]

Re : Smiley et Wingdings et label

re

alors tu as un problème !?
car ça fonctionne correctement et autant de fois que je veux !?

comprends pas !?

j'aimerai que d'autres confirment mes dires !

 

[Paf]

Re : Smiley et Wingdings et label

Re, bonjour Roland_M

Curieux ! même soucis chez moi label1 OK mais label 2 et 3 le i accentué reste i accentué !!

 

[Roland_M]

Re : Smiley et Wingdings et label

re

je précise que je suis sous 2007

mais tout de même !?

 

[Roland_M]

Re : Smiley et Wingdings et label

re

je viens d'enregistrer au format 2003 et c'est toujours ok !

si la routine fonctionne pour un label elle ne peut que fonctionner pour tous !
il ne peut pas en être autrement !

j'espère que ce n'est pas une blague !? nous ne sommes pas encore au 1er Avril !

plus sérieux, essayez avec un seul caractère pour voir "J" "K" "L"
si c'est ok alors c'est peut être votre police qui pose problème !?

 

[Staple1600]

Re : Smiley et Wingdings et label

Bonjour à tous

Roland_M
Je confirme qu'il a quelque chose qui se passe pas comme prévu 😉
(excel 2013)

PS: Avec un seul caractère, alors c'est plus simple, non ?
On peut aussi comme ceci, non ?

Private Sub Label2_Click()
Label2.Caption = "L"
End Sub

Private Sub UserForm_Initialize()
Dim i%
For i = 1 To 3
With Me("Label" & i).Font
.Name = "Wingdings"
.Size = 60
End With
Next i
End Sub