Erreur sur changement de police d'un label

doomaster66 · 11 Août 2014

Bonjour a tous,
j’essaye de faire ça:

Private Sub CommandButton1_Click()
Sheets("Titre").Select
ActiveSheet.Label1.Caption = Range("k9").Value
ActiveSheet.Label1.Font.Size = Range("k10").Value
End Sub

mais j'ai une incompatibilité de type lorsque je veux changer la police de mon label.
C'est certainement pas tres complique, mais vu mon niveau ca l'est pour moi
Merci de m'aider!

doomaster66 · 11 Août 2014

Re : Erreur sur changement de police d'un label

J'ai trouve tout seul

Sheets("Titre").Label1.Caption = Sheets("Titre").Cells(9, 11).Value
Sheets("Titre").Label1.Font.Size = Sheets("Titre").Cells(10, 11).Value

Robert · 11 Août 2014

Re : Erreur sur changement de police d'un label

Bonjour Doomaster, bonjour le forum,

Plus simple avec un With...End With non ?

Code:

With Sheets("Titre")
    .Label1.Caption = .Cells(9, 11).Value
    .Label1.Font.Size = .Cells(10, 11).Value
End With

doomaster66 · 12 Août 2014

Re : Erreur sur changement de police d'un label

Bonjour Robert,
oui en effet c'est plus simple, et je vais le noter dans un coin. Je tâtonne encore beaucoup en VBA sans toujours comprendre ce que je fais
Merci pour la reponse.

Erreur sur changement de police d'un label

doomaster66

XLDnaute Nouveau

doomaster66

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

doomaster66

XLDnaute Nouveau

Discussions similaires