Comment tester la présence d'un objet sur un UF

Si tu connais son nom, tu peux utiliser ceci :

Ce code est écrit pour être saisi dans un formulaire.
CheckBox1 est le nom de la Propriété Name du contrôle checkbox

'--------------------
Dim Ckbox As MSForms.CheckBox

On Error Resume Next
Set Ckbox = Me.Controls("CheckBox1")
If Err <> 0 Then
MsgBox "Le contrôle n'existe pas"
Else
MsgBox "Je suis présent."
End If
'--------------------



"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news:
E40EE59A-99D4-49A6-80A8-50C8643CF5C8@microsoft.com...
Bonjour,

Je voudrais savoir s'il est possible de tester la présence d'une case à
cocher sur un Userform...

--
Merci pour vos réponses.

Bonsoir,

Private Sub b_essai_Click()
If ExisteControle("CheckBox1") Then MsgBox "chkbox1 ok"
If ExisteControle("CheckBox2") Then MsgBox "chkbox2 ok"
End Sub

Function ExisteControle(nom As String)
For Each c In Me.Controls
If c.Name = nom Then ExisteControle = True
Next c
End Function

Cordialement JB

Bonjour,

Je voudrais savoir s'il est possible de tester la présence d'une case à
cocher sur un Userform...

--
Merci pour vos réponses.

Fonction dans un module pour tous les userforms (dans un module):

Function ExisteControle(f As UserForm, nom As String)
For Each c In f.Controls
If c.Name = nom Then ExisteControle = True
Next c
End Function

If ExisteControle(Me, "CheckBox1") Then MsgBox "chkbox1 ok"

JB

Bonjour,

Je voudrais savoir s'il est possible de tester la présence d'une case à
cocher sur un Userform...

--
Merci pour vos réponses.