Smiley et Wingdings et label

Paf

XLDnaute Barbatruc

• 22 Mars 2014

• #2

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

Code:

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+

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 22 Mars 2014

• #3

Re : Smiley et Wingdings et label

Bonjour carlos, le Forum,

Comme ceci:

Code:

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 🙂

@+ 😎

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 22 Mars 2014

• #4

Re : Smiley et Wingdings et label

Bonjour carlos, le Forum,

Ou alors comme ceci, en PJ

@+ 😎

 

Pièces jointes

• carlos XLD.xlsm

  21.8 KB · Affichages: 81

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 22 Mars 2014

• #5

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

 

Dernière édition: 22 Mars 2014

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 22 Mars 2014

• #6

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).

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 22 Mars 2014

• #7

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 22 Mars 2014

• #8

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

 

Pièces jointes

• Smileys Wingdings.xlsm

  21 KB · Affichages: 49
• Smileys Wingdings.xlsm

  21 KB · Affichages: 59
• Smileys Wingdings.xlsm

  21 KB · Affichages: 52

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 22 Mars 2014

• #9

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 !

Code:

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

 

Pièces jointes

• label-smileys-wingdings.xlsm

  21.2 KB · Affichages: 66
• label-smileys-wingdings.xlsm

  21.2 KB · Affichages: 73
• label-smileys-wingdings.xlsm

  21.2 KB · Affichages: 69

Dernière édition: 22 Mars 2014

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 22 Mars 2014

• #10

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...

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 22 Mars 2014

• #11

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 !

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 22 Mars 2014

• #12

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é !!

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 22 Mars 2014

• #13

Re : Smiley et Wingdings et label

re

je précise que je suis sous 2007

mais tout de même !?

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 22 Mars 2014

• #14

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 !?

 

Dernière édition: 22 Mars 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Mars 2014

• #15

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 ?

Code:

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

Code:

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

 

Dernière édition: 22 Mars 2014

Vote positif 0 Vote négatif