XL 2016 Passer un label en paramètre à une macro

Essaie comme ça :
puis :
Call MiseEnGras(Label1) mais pourquoi pas directement : Label1.Font.Bold = True ?

Robert à dit:

Essaie comme ça :

Code:

Sub MiseEnGras(Lab As Control)
    Lab.Font.Bold = True
End Sub

puis :

Cliquez pour agrandir...

Ca marche avec Control à la place de Label. Merci !

Robert à dit:

Call MiseEnGras(Label1) mais pourquoi pas directement : Label1.Font.Bold = True ?

Cliquez pour agrandir...

J'ai simplifié. Ma question n'est là que pour avoir le principe de fonctionnement.
Tu te doutes bien que ma vraie macro fait deux ou trois trucs en plus.

Dranreb à dit:

Bonsoir.
Pour mettre toutes les chances de votre coté, essayez comme ça :

VB:

Sub MiseEnGras(ByVal Lab As MSForms.Label)

Cliquez pour agrandir...

Ca marche en passant ByVal et avec MSForms.Label à la place de Label . Merci !

Y a-t-il une forme plutôt que l'autre à préférer ?
Si oui, pour quelle raison ?

En tout cas le fait de préciser la bibliothèque garantit qu'il considère bien un type d'objet défini par celle ci et non un avatar d'une autre comme Excel avec ses anciens contrôles de formulaire, même masqué parfois dans l'explorateur d'objets …
ByVal laisse au compilateur l'occasion d'extraire ce qui est demandé de ce qui est spécifié si ça y figure, on se fiche du contenant d'origine. ByVal revient en effet à stipuler qu'on n'en a pas besoin car on n'a pas l'intention de le modifier. Avec l'assumé ByRef il est coincé: il doit absolument fournir l'adresse d'une zone qui contient l'adresse de l'exemplaire, alors il faut qu'elle soit rigoureusement du même type, sinon vous avez l'erreur de compilation Type d'argument ByRef Incompatible. En plus il n'a pas le droit d'exposer une expression à la possible modification par un Set effectué dans la procédure, il est de toute façon obligé d'en fabriquer une copie. Alors une copie de quoi ? La procédure demande un type d'objet et l'appelant en spécifie un autre, il ne sait plus quoi faire !