Modifier le titre d'un form par une procédure externe

[xni70]

Bonjour,
J'ai un petit probleme VBA avec un userform. Mais le probleme est transposable avec un form selon VB6. Le probleme exposé a valeur d'exemple..mon probleme réelle est autre mais l'exemple l'illustre bien

Soit un userform de nom UfCalc. J'ai dans le code qui est liée a celui si:

Code :

1
2
3
Sub UserForm_Initialize()
Call SetCaption(Me)
End Sub

SetCaption est une procédure mis dans un module standart:

Code :

1
2
3
Sub SetCaption(oUf as Userform)
oUf.Caption="Hello"
End Sub

Le probleme est que quand je charge UfCalc celui ci ne contient pas l'entete "Hello" avec la procédure précédente (mais le terme Hello apparait sous l'entete du form)..
Si par contre:
- je modifie la définition de SetCaption en Sub SetCaption(oUf as UfCalc) cela marche
- je passe en parametre un controle du formulaire et que j'accede au formulaire grace a la propriété Parent du controle cela marche également!

Pourquoi les différentes situations précédentes (ne) marchent (pas).. Quelles solutions y a t'il pour gérer cela avec SetCaption(oUf as Userform) - j'ai de nombreux formulaire qui devrait accéder a ce genre de procédures standart..-
Merci pour toutes idées ou début de piste. Xavier

[Maxence HUBICHE]

Code :

1
2
3
4
 
Sub SetCaption(oUf as Object)
oUf.Caption="Hello"
End Sub

[Maxence HUBICHE]

Pour être un brin plus explicite, ton Me ne renvoie pas un objet de type UserForm
Mais plutôt un objet de type ufCalc, héritant de la classe UserForm

Tu aurais donc également pu faire :

Code :

1
2
3
4
Sub SetCaption(oUf as ufCalc)
oUf.Caption="Hello"
End Sub

Ce qui aurait tout aussi bien fonctionné
Mais, j'ai cru comprendre que ce genre de procédure devait être valide pour n'importe quel objet que tu vas générer. Dans ce cas, il convient de mettre Object, et non ufCalc

Voilà