Nombre de checkbox cochées

[13GIBE59]

Bonjour le forum. 🙂

Dans mon userform se trouvent 2 checkbox nommées CheckBox1 à CheckBox20.

Je voudrais écrire dans mon code l'équivalent de

"Si aucune de ces checkbox est cochée alors..." 😉

Bien sûr je peux écrire :

If CheckBox1 = False and CheckBox2 = False etc...jusqu'à And CheckBox20 = False,

mais y a-t'il plus court ? 😀

J'ai essayé en vain 😡 une boucle i = 1 To 20
et
For Each ctrl In UserForm1.Frame2.Controls
If TypeOf ctrl Is MSForms.CheckBox

 

[tototiti2008]

Re : Nombre de checkbox cochées

Bonjour 13GIBE59,

un essai :

Private Sub CommandButton1_Click()
Dim Ctrl As Msforms.Control, Coch As Boolean
    Coch = False
    For Each Ctrl In UserForm1.Controls
       If TypeName(Ctrl) = "CheckBox" Then
           Coch = Coch Or Ctrl.Value
       End If
    Next Ctrl
    If Not Coch Then
        MsgBox "aucune cochée"
    End If
End Sub

 

[13GIBE59]

Re : Nombre de checkbox cochées

Bonjour Tototiti. 🙂

Tes lignes de code marchent pas. 😡 Mon Excel s'est planté, et mon PC a explosé...😡🙁😡

Mais non je plaisante ! 😀😀 C'est nickel chrome comme d'hab. 😉

Merci beaucoup ! 🙂

A +