Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel UserForm affiché ?

UserForm affiché ?

1 réponse
Avatar
Patrick
Bonjour,

Avec du code VBA, j'aimerais savoir si un certain UserForm est affiché.
Savez-vous si c'est possible ?

Merci pour votre aide.

--
Patrick
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
On 6 fév, 21:31, Patrick wrote:
Bonjour,

Avec du code VBA, j'aimerais savoir si un certain UserForm est affiché.
Savez-vous si c'est possible ?

Merci pour votre aide.

--
Patrick


Bonsoir,

Function EstOuvertUF(nom)
EstOuvertUF = False
For Each i In UserForms
If UCase(i.Name) = UCase(nom) Then EstOuvertUF = True
Next i
End Function

Sub essai()
If EstOuvertUF("Userform1") Then
MsgBox ("ouvert")
End If
End Sub

Sub ouvreForm()
UserForm1.Show
End Sub

http://cjoint.com/?cgvQiFGneA

Cordialement JB