Private Sub UserForm_Activate() On Error Resume Next Unload f End Sub
Dim xx As Object For Each xx In Forms If xx.Visible Then Debug.Print xx.Name & " est visible" Else Debug.Print xx.Name & " n'est pas visible" End If Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question