Déclaration d'argument dans un sub

Bonjour à tous,

J'aurais aimé savoir s'il était possible de déclarer dans un sub un label d'un userform en argument.

En effet, j'aimerai que suivant certaines conditions, je puisse changer, via une procédure sub, tel ou tel label de mon userform.

Mais quand je place en argument un truc du type :
fenetre.label15 as label
VBA me renvoie l'erreur incompatibilité de type.

Auriez-vous une idée ?

Merci d'avance

salut,

si tu veux passer par le nom du label, le plus simple reste de passer par le type de données String :)

Il s'agira alors de passer dans les Controls de ton Form :ccool:

Bonjour,

Le Userform s'appelle UserForm1, il contient Label1.
Un texte dans la cellule A1 de la feuille active.
Dans un module :

Code:

---

1 2 3 4 5 6 7 8

Sub EcrireLabel() ChangeLabel UserForm1.Label1 UserForm1.Show End Sub   Sub ChangeLabel(Lelabel As Object) Lelabel.Caption = [A1] End Sub

---

Cordialement

ctac

Bonsoir,

En utilisant un type "Variant" ...peu-être :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub TraiteLabel1() ChangeValeur UserForm1.Label1, "111" UserForm1.Show End Sub Sub TraiteLabel2() ChangeValeur UserForm1.Label2, "222" UserForm1.Show End Sub Sub ChangeValeur(ByRef lbl, st As String) lbl.Caption = st End Sub

---