Si UserForm1 est ouvert alors

Bonjour le Forum,

Je reviens vers vous car je boque sur un petit code, je voudrais savoir comment je peut dire si un UserForm ( ici FrmVisuLivraison) est ouvert. J'ai essayer cela mais ça ne fonctionne pas.

   If FrmVisuLivraison = True Then
   Unload FrmVisuLivraison
   Unload frmBonLivraison
   Unload FrmRecherche
   Else
   Unload Me
   Unload FrmRecherche
   End If

Il y a un problème avec le "True" , merci pour votre aide.

Cordialement.

Bonjour,

ci-dessous une proposition avec une fonction ad hoc :

    If IsOpen(FrmVisuLivraison) Then
        Unload FrmVisuLivraison
        Unload frmBonLivraison
        Unload FrmRecherche
    Else
        Unload Me
        Unload FrmRecherche
    End If

Function IsOpen(USF As Object) As Boolean
    Dim USF_i As Object

    IsOpen = False
    For Each USF_i In UserForms
        If USF_i.Name = USF.Name Then IsOpen = True
    Next USF_i

End Function

Bonjour,

Merci pour ta réponse Thev, j'ai vu que je pouvais aussi faire comme ça:

 If FrmVisuLivraison.Visible Then
      Unload FrmVisuLivraison
      Unload frmBonLivraison
      Unload FrmRecherche
   Else
   Unload frmBonLivraison
   Unload FrmRecherche
   End If

Je vais essayer ta méthode, merci encore.

Bonne journée.

Merci pour ta réponse Thev, j'ai vu que je pouvais aussi faire comme ça:

 If FrmVisuLivraison.Visible Then
      

Cette instruction teste si le formulaire est affiché mais il faut noter que cette dernière charge automatiquement le formulaire en mémoire. Donc, si ce formulaire n' a pas été affiché, il restera alors chargé en mémoire.