UserForm chargé ?

Le
Patrick
Bnojour,

En VBA, y a-t-il un moyen de savoir si un UserForm est chargé et/ou affiché ?

Merci.

--
Patrick
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel Pierron
Le #6739541
Bonjour Patrick;
Par exemple:

Private Function FormIsLoaded(UFName$) As Boolean
Dim UF%
For UF = 0 To VBA.UserForms.Count - 1
FormIsLoaded = UserForms(UF).Name = UFName
If FormIsLoaded Then Exit Function
Next UF
End Function

Sub Test()
Load UserForm1
MsgBox FormIsLoaded("UserForm1"), 64
If FormIsLoaded("UserForm1") Then Unload UserForm1
End Sub

MP

"Patrick" news:
Bnojour,

En VBA, y a-t-il un moyen de savoir si un UserForm est chargé et/ou
affiché ?

Merci.

--
Patrick



Patrick
Le #6740051
Merci.

--
Patrick


"Michel Pierron" wrote:

Bonjour Patrick;
Par exemple:

Private Function FormIsLoaded(UFName$) As Boolean
Dim UF%
For UF = 0 To VBA.UserForms.Count - 1
FormIsLoaded = UserForms(UF).Name = UFName
If FormIsLoaded Then Exit Function
Next UF
End Function

Sub Test()
Load UserForm1
MsgBox FormIsLoaded("UserForm1"), 64
If FormIsLoaded("UserForm1") Then Unload UserForm1
End Sub

MP

"Patrick" news:
Bnojour,

En VBA, y a-t-il un moyen de savoir si un UserForm est chargé et/ou
affiché ?

Merci.

--
Patrick








Publicité
Poster une réponse
Anonyme