Passation d'un userform comme argument de fonction

[Marie]

Bonjour!
La situation:
Excel 2000 et VBA
J'ai 2 userforms avec chacun les mêmes éléments (i.e. boutons, textfields, labels, ...). Pour simplifier imaginons que je dois remplir ces userforms avant de les afficher.
Exemple: une textfield "titre" existe dans les 2 userforms. Je veux remplir ce champ:

userform1.titre.value="Test"
userform2.titre.value="Test".

Mon problème:
J'aimerais appeler une fonction "remplir(quelleBoite)" où l'argument "quelleBoite" serait l'objet userform1 ou userform2. Un truc du genre: J'appelle
remplir(userform1)
qui lance
sub remplir(quelleBoite)
quelleBoite.titre.value="Test"
end sub

Et ca ca ne marche pas! Dois-je spécifier un type de données (as Object???)
Comment faire??
Merci 1000x pour votre aide et bonne journée!
M.

 

[STéphane]

bonjour marie

essaye cela :

Sub Bouton1_QuandClic()
Load UserForm1
Load UserForm2
Call remplir(UserForm1)
End Sub
Sub remplir(usf As UserForm)
usf.TextBox1.Value = "jj"
UserForm1.Show
End Sub


j'ai chargé les formulaires en mémoire sans les montrer pour pouvoir faire référence à ceux-ci dans l'instruction "call remplir(userform1)"

bye
stephane