Fermeture des userform ouvert

Guillaume -  
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

tyranausor Messages postés 3545 Date d'inscription   Statut Membre Dernière intervention   2 039
 
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, ...
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
Bonjour

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

Private Sub Cmdfermer_Click()
Unload Me
End Sub
0