Nombre de checkbox cochées

13GIBE59 · 16 Octobre 2009

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 · 16 Octobre 2009

Re : Nombre de checkbox cochées

Bonjour 13GIBE59,

un essai :

Code:

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 · 16 Octobre 2009

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 +

Nombre de checkbox cochées

13GIBE59

XLDnaute Accro

tototiti2008

XLDnaute Barbatruc

13GIBE59

XLDnaute Accro

Discussions similaires

Nombre de checkbox cochées

13GIBE59

XLDnaute Accro

tototiti2008

XLDnaute Barbatruc

13GIBE59

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency