Ouverture et fermeture d'UserForm

[GClaire]

Salut a toutes et tous,

Tout d'abord comment ca va ?
Ces vacances se sont elles bien passées ,
La rentrée pour vos enfants c'est elle bien déroulée ?

Désolé pour le titre peu explicit, mais je ne savais pas quoi mettre de plus précis.

Voila, j'ai un UserForm qui est utilisé par plusieurs autres UserForm, comment je pourrai faire pour que lorsque je ferme l'UserForm en question, il revienne sur celui qui etait son hote, ex :.

UserForm D
UserForm hote A, B, C

Si j'ouvre l'UserForm D par l'UserForm C, au moment de la fermeture de C que cela revienne sur L'UserForm D (Sachant que l'userForm hote n'est pas fermé il est Hide, car je rentre des données dedans).

Pour le moment avec deux UserForm hote je procède comme suis :

Dans le bouton qui ouvre UserForm D du menu, j'ai :

Private Sub cmdRecapitulatif_Click()
var = False
Call CmdeRecapitulatif 'Me sert a ouvrir L'userForm D
End Sub

Dans le bouton qui ouvre l'UserForm D de l'UserForm A, j'ai :

Private Sub cmdRecapitulatif_Click()
var = True
Call CmdeRecapitulatif 'Me sert a ouvrir L'userForm D
End Sub

Dans le bouton qui me sert a fermer L'UserForm D, j'ai :

Private Sub Annuler_Click()
Unload Me
If var Then Call CmdSaisieHeures Else Call Menu
End Sub

Dans le cas de deux UserForm hote cela va, mais pour plus, comment pourrais-je faire?

Merci d'avance,G'Claire

 

[Lord Nelson]

Salut G'Claire,

Ton booléen var ne t'offre que deux possibilités vrai ou faux.
Si tu déclares var comme Byte, tu auras 256 possibilités à la fermeture de la fenêtre D :
Public var As Byte

Private Sub Annuler_Click()
Unload Me
'If var Then Call CmdSaisieHeures Else Call Menu
Select case var
Case 0: Call Menu
Case 1: Call CmdSaisieHeures
Case 2: Call CmdCequeTuVeux
Case 3: Call CmdAutreChose
'...etc
Case Else
End Select
End Sub

A+
Horatio

 

[GClaire]

Lord NELSON, le Forum

Merci, pour ta réponse.
Et donc si j'ai bien compris je n'ai qu'a donner la valeur dans le bouton des UserForm hote.

Ex :

Private Sub cmdRecapitulatif_Click() 'Du menu
var = 0
Call CmdeRecapitulatif 'Me sert a ouvrir L'userForm D
End Sub

Private Sub cmdRecapitulatif_Click() ' De Saisie heures
var = 1
Call CmdeRecapitulatif 'Me sert a ouvrir L'userForm D
End Sub

Merci, G'Claire

 

[Lord Nelson]

Exactement !!!!

Bon Week-end !
Horatio

 

[GClaire]

Lord NELSON, le Forum

Merci, G'Claire