Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Changer le type de police dans un label

4 réponses
Avatar
Florian
Bonsoir, j'essaie de faire varier dans un label
le type de police "Time new roman" avec cette^proc, mais je n'arrive qu'à
changer la taille de la police.
Merci
Flo riant

With Lbl_résultat_caché
.Font.Name = "Time new roman"
.Font.Size = "26"
.Caption = Sheets("params").Range("C2").Value
End With
With Selection
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With

4 réponses

Avatar
michdenis
Bonjour Florian,

Tu dois respecter l'orthographe de la police

.Font.Name = "Times New Roman"


Salutations!




"Florian" a écrit dans le message de news:
Bonsoir, j'essaie de faire varier dans un label
le type de police "Time new roman" avec cette^proc, mais je n'arrive qu'à
changer la taille de la police.
Merci
Flo riant

With Lbl_résultat_caché
.Font.Name = "Time new roman"
.Font.Size = "26"
.Caption = Sheets("params").Range("C2").Value
End With
With Selection
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Avatar
Florian
Bonsoir Denis

Étrange, on se croirait dans un salon privé...
;-)

Désolé, cela ne fonctionne pas, je vais contourner le pb en recréant un
autre label
Merci quand même
Flo riant

"michdenis" a écrit dans le message de
news:
Bonjour Florian,

Tu dois respecter l'orthographe de la police

.Font.Name = "Times New Roman"


Salutations!




"Florian" a écrit dans le message de
news:

Bonsoir, j'essaie de faire varier dans un label
le type de police "Time new roman" avec cette^proc, mais je n'arrive qu'à
changer la taille de la police.
Merci
Flo riant

With Lbl_résultat_caché
.Font.Name = "Time new roman"
.Font.Size = "26"
.Caption = Sheets("params").Range("C2").Value
End With
With Selection
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With





Avatar
michdenis
Je crois que tu as oublié d'insérer la ligne de code dans son contexte :


'-----------------------------
With Lbl_résultat_caché
.font.size = 22
.Font.Name = "Times New Roman"
.Caption = Sheets("params").Range("C2").Value
.AutoSize = True
End with
'-----------------------------



Salutations!




"Florian" a écrit dans le message de news:
Bonsoir Denis

Étrange, on se croirait dans un salon privé...
;-)

Désolé, cela ne fonctionne pas, je vais contourner le pb en recréant un
autre label
Merci quand même
Flo riant

"michdenis" a écrit dans le message de
news:
Bonjour Florian,

Tu dois respecter l'orthographe de la police

.Font.Name = "Times New Roman"


Salutations!




"Florian" a écrit dans le message de
news:

Bonsoir, j'essaie de faire varier dans un label
le type de police "Time new roman" avec cette^proc, mais je n'arrive qu'à
changer la taille de la police.
Merci
Flo riant

With Lbl_résultat_caché
.Font.Name = "Time new roman"
.Font.Size = "26"
.Caption = Sheets("params").Range("C2").Value
End With
With Selection
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With





Avatar
Florian
Effectivement, quel Talent !
Merci encore.
Flo riant

"michdenis" a écrit dans le message de
news:
Je crois que tu as oublié d'insérer la ligne de code dans son contexte :


'-----------------------------
With Lbl_résultat_caché
.font.size = 22
.Font.Name = "Times New Roman"
.Caption = Sheets("params").Range("C2").Value
.AutoSize = True
End with
'-----------------------------



Salutations!




"Florian" a écrit dans le message de
news:

Bonsoir Denis

Étrange, on se croirait dans un salon privé...
;-)

Désolé, cela ne fonctionne pas, je vais contourner le pb en recréant un
autre label
Merci quand même
Flo riant

"michdenis" a écrit dans le message de
news:
Bonjour Florian,

Tu dois respecter l'orthographe de la police

.Font.Name = "Times New Roman"


Salutations!




"Florian" a écrit dans le message de
news:

Bonsoir, j'essaie de faire varier dans un label
le type de police "Time new roman" avec cette^proc, mais je n'arrive
qu'à


changer la taille de la police.
Merci
Flo riant

With Lbl_résultat_caché
.Font.Name = "Time new roman"
.Font.Size = "26"
.Caption = Sheets("params").Range("C2").Value
End With
With Selection
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With