Probleme sur la procedure Userform_Initialize

[creolia]

bonjour à tous

j'utilise cette procedure

Userform_Initialize

trouver sur le forum et poster par JPN celui ci me permet de reinitialiser completement mon userform le probleme c'est j'ai voulut inserer dans un module du genre

Sub test()
USF1_Initialize
End Sub

USF1 car mon userform porte ce nom.

et là j'ai une erreur de procedure

ma question est donc peut ton utiliser cette procedure dans un module ou pas si c'est possible quelle serais la bonne procedure.

merci d'avance de votre aide

 

[Pierrot93]

Re : Probleme sur la procedure Userform_Initialize

Bonjour,

essaye ceci :

Sub test()
UserForm1.UserForm_Initialize
End Sub

enlever le mot "private" à la procédure "initialize"...
A noter ici, "UserForm1" est le nom de l'usf... A adapter...

bon après midi
@+

 

[creolia]

Re : Probleme sur la procedure Userform_Initialize

bonjour pierrot93 et merci pour ton aide

j'ai tester ta solution sauf erreur de ma part cela ne fonctionne toujour pas

j'ai mis un fichier joint pour qu'ont puisse voir l'erreur

 

[Pierrot93]

Re : Probleme sur la procedure Userform_Initialize

Re,

pas de procédure "UserForm_Initialize" dans le module de l'usf...

bonne soirée
@+

 

[creolia]

Re : Probleme sur la procedure Userform_Initialize

re bonjour cela signifie t'il que c'est pas possible en passant par un module ???
merci d'avance

 

[Fred0o]

Re : Probleme sur la procedure Userform_Initialize

Bonjour Creolia, Pierrot

La procedure UserForm_Initialize() est une procédure évènementielle qui se lance lors du chargement de l'USF. A ma connaissance, tu ne peux pas appeler cette procedure par une autre.
Je pense que le meilleur moyen de contourner cela est par exemple de décrire les opérations de réinitialisation de l'USF dans une Sub (Sub ReInit par exemple) qui serait appelée par ta UserForm_Initialize() et éventuellement par d'autres.

Ceci donnerait un truc du genre : Dans le code de l'USF =>

Private Sub UserForm_Initialize()
    Call ReInit
End Sub

Puis dans un autre moule :

Sub Test()
    ...
    ...
    ...
    Call ReInit
    ...
    ...
    ...
    ...
End Sub

Sub ReInit()
    ...
    ...
    ...
'   Instructions pour réinitialiser l'USF1
    ...
    ...
    ...
    ...
End Sub

A+

 

[Pierrot93]

Re : Probleme sur la procedure Userform_Initialize

Bonsoir Créolia, Fredoo

A ma connaissance, tu ne peux pas appeler cette procedure par une autre.

euh, vois pas trop pourquoi.. un exemple ci-joint.

bonne soirée
@+