Comment initialiser 2 Userform

[jf27]

resalut à tous,

Pb, J'ai 2 userform, s'appelant userformA et userform B,

Comment dois je appeler l'évenement Initialize pour A et B car apparemment

pour n'importe quel userform le nom vba reste userform..?

Private Sub Userform_Initialize()


Merci !
@+
jf27

 

[smotty]

Re : Comment initialiser 2 Userform

Bonjour,

tout simplément: UserForm_Initialize()

Cet évènement est forcément dans le userform concerné donc pas de souci.


Cordialement

Smotty

 

[Gael]

Re : Comment initialiser 2 Userform

Bonjour JF27,

Si tu as 2 userforms, tu as aussi 2 pages de codes 1 pour chacun et dans chaque page un "Private sub Userform_initialize()".

Lorsque tu ouvres un userform, il appliquera l'initialisation correspondant à sa page de code.

@+

Gael

Et salut Smooty, nous nous sommes croisés.

 

[jf27]

Re : Comment initialiser 2 Userform

Ok mais ou faut il placer cet evenement??
Cela marche pour mon premier userform mais pas pour mon second....
Merci

 

[Guest]

Re : Comment initialiser 2 Userform

bonjour JF27,

Dans l'évènement Userform_Initialize() Userform représente non pas le Nom du UserForm mais sa Classe d'objet (sa nature d'objet) définie par la bibliothèque Miscrosoft forms 2.0 Library.

Et il n'existe qu'un évènement Initialize par Userform.

Si tu veux initialiser tes deux userform, il faut les charger avant de les afficher. Par exemple:

Dans un module général:
Sub ChargerUserForms()
Load UserformA 'Charge l'usf 1 et lance son évènement Initialize
Load UserFormB 'Charge l'usf 2 et lance son évènement Initilize
UserFormA.Show 0 ' Rend visible le userform A
UserFormB.Show 0 ' Rend visible le UserForm B
End sub

Avec .Show 0 ils seront visible en même temps

Si tu ne mets pas 0 après .Show la procédure attendra que UserFormA soit fermé avant de rendre visible le UserFomB.

A+

 

[jf27]

Re : Comment initialiser 2 Userform

yes, autant pour moi, je mettais mes 2 initialize dans le mêm userform !

Merci à toi gael et à toi Smotty

@+