Erreur sur changement de police d'un label

[doomaster66]

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]

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]

Re : Erreur sur changement de police d'un label

Bonjour Doomaster, bonjour le forum,

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

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

 

[doomaster66]

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.