'-------------------------------------
'Mode d'affichage du UserForm
'
'- Obj est soit un Control du UserForm
' soit un UserForm
'
'- Return: vbModal (1)
' vbModeless (0)
' Erreur (-1)
'-------------------------------------
Function UserFormShowMode(ByVal Obj As Object) As Integer
On Error Resume Next
'Cherche l'objet au sommet de la hiérarchie
Do While Err.Number = 0
Set Obj =...