fermer un formulaire

M

mooggli

Guest
Bonjour,

J'ai crée un formulaire dans excel avec VBA. J'ai crée un boutton quitter(CommandButton2) avec comme code 'Private Sub CommandButton2_Click()
Unload UserForm1
End Sub'
Quand je clique sur ce boutton ou sur la croix rouge du formulaire, le formulaire ne se ferme pas.
Merci de m'aider à résoudre ce petit problème de débutante.

Cordialement,

mooggli
 
M

mooggli

Guest
Bonsoir Pascal,

Merci pour ta réponse rapide.
Je n'ai qu'un seul formulaire qui s'appelle bien Userform1
et j'ai aussi essayer Unload Me mais sans succès.
Je ne sais plus quoi faire.

Si tu as d'autres idées ...voici mon fichier mais fais attention ouvre bien vba avant de lancer le formulaire car sinon tu es obligé de faire control ALT Sup pour arreter excel

Cordialement

Mooggli
 
M

mooggli

Guest
Désolé j'avais pas lu le tutoriel pour envoyer un fichier [file name=Classeur1_20051213225706.zip size=28250]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051213225706.zip[/file]
 

Pièces jointes

  • Classeur1_20051213225706.zip
    27.6 KB · Affichages: 33

PascalXLD

XLDnaute Barbatruc
Modérateur
RE

Ce n'est pas un problème de code sur la fermeture mais un problème sur le code qui ouvre ton UF

Je n'ai pas trop le temps de regarder mais ton code est bizarre

Tu fais je ne sais combien de fois

Application.Run 'Classeur1.xls!Bouton1_QuandClic'

Donc quand tu cliques sur ton bouton tu lances ta macro qui ouvres le UF

Puis quand tu fermes ton UF tu continues ta macro liée à ton bouton 1 qui relance la macro par ton Application.Run 'Classeur1.xls!Bouton1_QuandClic'

Donc tu tournes sans fin

Je les ai tous mis en commentaires et j'ai fermé l'UF sans problème

Donc il faudrait vraiment voir ce code sur le click du bouton 1 qui lance l'UF il est vraiment pas clair

Mais bon là ce soir je vais me coucher

Bonne soirée
 

Discussions similaires

Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna