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
MichDenis
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" a écrit dans le message de news:
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.
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...
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" a écrit dans le message de news:
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.
JB
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.
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...