Function FormIsLoaded(oForm As Form) As Boolean Dim Frm As Object For Each Frm In Forms If Frm Is oForm Then FormIsLoaded = True: Exit For Next Frm Set Frm = Nothing End Function ' NB : POUR UTILISER 'FormIsVisible' vous devez aussi copier 'FormIsLoaded' Function FormIsVisible(oForm As Form) As Boolean If FormIsLoaded(oForm) Then FormIsVisible = oForm.Visible Else FormIsVisible = False End If End Function ' ===================== ' EXEMPLE D'UTILISATION ' ===================== ' copiez ce code dans Form1, votre projet contient Form1 et Form2 Private Sub Form_Load() MsgBox FormIsLoaded(Form2) Form2.Show MsgBox FormIsVisible(Form2) Unload Me End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.