Fermer l'Userform Active

Bonjour,

J'aimerais pouvoir fermer l'userform active. Cependant je ne souhaite pas utiliser

Code:

---

1 2 3

Me.Close= True 'ou Unload.Me 'ou encore Unload.Userform1

---

En j'ai une multitude de Userform et sur chacune d'elles j'ai un bouton retour qui renvoie à la Userform principale.
Au lieu d'écrire toujous les même lignes de codes pour chaque bouton de chaque userform je souhaite créé une subroutine qui ferme la userform active. C'est pour ça que les exemple au dessus ne fonctionne pas (ou sont mal écrit).
Est ce qu'il y a quelquechose du genre ActiveWorkbook mais pour une userform car j'ai essayé mais je n'ai pas trouvé.

Code:

---

1 2 3 4 5

Sub Retour() If MsgBox("Retour au menu princial ? ", vbQuestion + vbYesNo) = vbYes Then 'ligne manquante End If End Sub

---

En vous remerciant.

bonjour,

:quoi: et comment comptez-vous appeler cette sous-routine ?

Call Retour

J'ai déjà fais la subroutine pour quitter la macro :

Code:

---

1 2 3 4 5 6 7

Sub Quitter() If MsgBox("Voulez vous vraiment quitter la macro? ", vbQuestion + vbYesNo) = vbYes Then End ThisWorkbook.Activate Worksheets("travail").Activate End If End Sub

---

Et ensuite :

Code:

---

1 2 3

Private Sub CommandButton3_Click() Call Quitter End Sub

---

Là ça fonctionne.

Mais pour fermer juste la userform acive c'est plus compliqué :)

Je ne sais pas pourquoi, mais lorsque la sub quitter est appelée, je ne reviens plus sur la bonne page de mon classeur.

Quelqu'un aurait une piste pour fermer la userform active? Merci :)

Bonjour

la fonction (End)a pour but d'arreter tout code (arret brutal)

forcement la ou il est placer le activate qui suit n'est pas pris en compte
essaie plutôt comme ca

Code:

---

1 2 3 4 5 6 7 8

Sub Quitter() If MsgBox("Voulez vous vraiment quitter la macro? ", vbQuestion + vbYesNo) = vbYes Then ThisWorkbook.Activate Worksheets("travail").Activate   End If End End Sub

---

Au plaisir

Ca parait plutôt logique quand tu le dis :)
Merci beaucoup !

Par contre j'ai garder le end à l'intérieur du If

Aurais tu une solution pour créer un subroutine qui ferme seulement la userform active comme je l'ai expliqué plus haut :) Merci

ET BIEN EN FAIT CA DEPEND DES PARAMETRES


le bouton qui envoie la commande pour fermer ton USF
et il dans le userform lui même?
ou
la commande et elle envoyée par une autre macro ou évènement du sheet

ou dans une autre sub routine

au quel cas si le bouton est dans le userform tu pourrais mettre la routine que j'ai corigé a l'interieur de l'evenemt du bouton tout simplement

si ca n'est pas possible alors une autre solution envoyer l'argument a la routine lors du click sur le bouton dans ton userform

exemple dans ton userform tu a un bouton

et l'évènement du bouton serait ca

Code:

---

1 2 3

Private Sub CommandButton1_Click() subroutine me 'le "me" représente le userform c'est ce que l'on appel un argument End Sub

---

en fait on envoie en argument le nom de l'userform en tant qu'object par l'expression "Me"
maintenant dans un module standard tu a ta subroutine

Code:

---

1 2 3 4 5 6

sub subroutine( usf as object)   msgbox "je sui une macro et je vais fermer le userform qui m'a appelé par son bouton "   unload usf end sub

---

après cela il y a les api pour déterminer la quelle fenêtre est active mais la tu a du boulot

J'ai toujours du mal en arguement et valeur, même si je sais que c'est important :)

EDIT :
J'ai testé, ça fonctionne !!!
Merci !!!

Il faut bien que j'assimile cette histoire d'argument, ça peux simplifier pas mal les choses

Re en fait il il a une autre solution qui peut avoir des avantage très intéressant

et la on va parler des variables "PUBLIC"

ces variables sont utilisables dans tout le classeur car elles sont déclaré en "public" a l'inverse de "dim" qui a une utilité local

commençons par ton module standard ou se trouve ta subroutine

en haut de module et en dehors des macro on va déclarer une variables public comme ceci:
dans le module standard on met:

Code:

---

public maform as object

---

ensuite on place le code de la subroutine

Code:

---

1 2 3 4

sub subroutine( )'ici plus d'argument est attendu comme tu peux le voir msgbox "je sui une macro et je vais fermer le userform qui m'a appelé par son bouton " unload maform end sub

---

maintenant dans le module du userform
dans le activate de l'userform

Code:

---

1 2 3

Private Sub UserForm_Activate() set maform=Me End Sub

---

Code:

---

1 2 3

Private Sub CommandButton1_Click() subroutine ' ici il n'y a plus d'argument dans l'appel a la fonction End Sub

---

après avoir déclencher l'affichage de ton userform désormais pendant toute la duré de l'utilisation du fichier la variable "maform" représente ton userform
et peut être utilisé quand bon te semble

l'avantage de cette façon c'est que la commande "unload nom ou variable de l'userform peut être déclenché de n'importe ou sans même passer par le bouton ou l'userform lui même

les inconvénient c'est que si tu a plusieurs userform affichés il te faut répéter l'opération autant de fois que de userform

avec les arguments pas la peine

voila pour aujourdh'ui

Au plaisir