Pointer une feuille précise en cas de fermeture d'un userform [X]

[aldarion]

Bonsoir,

Comme défini dans le titre, je souhaiterais savoir s'il y a une option possible pour que : si tu fermes le userform(programme principal) , alors je te renvoi vers la page excel ou j'ai mis les boutons de lancement du programme.

j'ai regarder un peu sur le net, mais je ne sais pas vraiment comment spécifier ça pour trouver ma reponse :s .


Voilà , si quelqu'un sait , ça serait très gentil de partager l'information

en vous remerciant,
Aldarion

 

[Staple1600]

Bonsoir

Code du bouton sur la feuille

Private Sub CommandButton1_Click()
MaFeuille = CommandButton1.Parent.Name
UserForm1.Show 0
End Sub

Code de l'userform

Private Sub CommandButton1_Click()
Me.Hide
Sheets(MaFeuille).Activate
End Sub

Code dans un module standard

Public MaFeuille As String

 

[Paf]

Bonjour,

dans la mesure où il n'y a qu'un bouton d'appel de l'userform , par exemple en Feuil3, on peut utiliser l'évènement Terminate de l'userform qui se déclenche quand on quitte l'userform

Private Sub UserForm_Terminate()
    Worksheets("Feuil3").Activate
End Sub

S'il y avait plusieurs boutons d'appel répartis sur plusieurs feuilles, on utiliserait toujours Private Sub UserForm_Terminate(), mais la détermination de la feuille origine serait plus délicate.

A+

EDIT : Bonjour Staple1600

 

[Staple1600]

Bonsoir à toi aussi Paf
(cf message#2)

 

[aldarion]

Merci bcp pour vos réponses , je vais tester tout ça

 

[Staple1600]

Re

aldarion
Pour ma part, j'ai déjà testé (sinon je n'aurai pas posté )

 

[aldarion]

Je ne dis pas le contraire , mais disons que mon programme a tendance a devenir capricieux aux changements alors on sait jamais

 

[mapomme]

Bonsoir @aldarion et tous les autres ,

Avec une variable From au niveau du module1, une même procédure Ouvrir pour chaque bouton et l'utilisation de l'évènement Terminate du Userform1.

Fichier avec trois feuilles et un bouton sur chaque feuille.