Fermeture des userform ouvert

Fermé

Guillaume - Modifié par Guillaume le 25/05/2016 à 10:57
jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 2 juin 2016 à 14:08

Bonjour,

Je reviens vers vous pour un autre problème.

Je souhaiterai fermer tous les userform ouvert pour n'ouvrir que le userform d'accueil.

J'ai alors tenté :
Dim USF As Object
For each USF in userforms
If USF.name.visible = true then USF.name.hide
Next USF
UF_Acceuil.show

Mais je ne comprend pas, au niveau du If je suis éjecté de ma boucle "for each"

Cordialement,

Guillaume

A voir également:

Fermeture des userform ouvert
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Sytadin fermeture - Télécharger - Transports & Cartes
Forcer fermeture application windows - Guide
Frais de fermeture compte paypal - Guide
Annuler fermeture onglet chrome - Guide

2 réponses

Réponse 1 / 2

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 035
2 juin 2016 à 13:44

Bonjour, j'ai testé ton code, ça ne fonctionne effectivement pas, je ne sais pas pourquoi. En mettant juste

USF.visible

à la place de

usf.name.visible

ça fonctionne.

Je suppose qu'Excel ne trouve pas tes userform car tu les a renommé autrement que par userform1, userform2, ...

Réponse 2 / 2

jc80 Messages postés 4243 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
2 juin 2016 à 14:08

Bonjour

Ci-dessous un code pour un bouton
1° propriété Cdmfermer
2° nom Fermer

Private Sub Cmdfermer_Click()
Unload Me
End Sub

Discussions similaires

Quand va revenir bentomanga ??

Supprimer un fichier ouvert dans systeme.

Revoir un snap après plusieurs heures

Snap ouvre mes messages tout seul

Arrêt/démarrage via Bouton ON/OFF de l'alim