Fermeture des userform ouvert
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
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
2 réponses
-
Bonjour, j'ai testé ton code, ça ne fonctionne effectivement pas, je ne sais pas pourquoi. En mettant juste
USF.visible
à la place deusf.name.visible
ça fonctionne.
Je suppose qu'Excel ne trouve pas tes userform car tu les a renommé autrement que par userform1, userform2, ...
-
Bonjour
Ci-dessous un code pour un bouton
1° propriété Cdmfermer
2° nom Fermer
Private Sub Cmdfermer_Click()
Unload Me
End Sub
