[XL-2010] Déclaration d'argument dans un sub

[pubbins]

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

[jpcheck]

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

[ctac_]

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

[bbil]

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