JORDAN
XLDnaute Impliqué
Bonjour le Forum,
J'ai fait le code ci-dessous, qui fonctionne très bien si je click sur la CheckBox1.
Seulement, j'ai 12 CheckBox et je dois compter le nombre de CheckBox cochées à chaque nouvelle selection.
D'où ma question : Existe-t-il une solution pour tester toutes les CheckBox où bien je dois répéter mon code pour chaque CheckBox ?
Merci à tous
A+
J'ai fait le code ci-dessous, qui fonctionne très bien si je click sur la CheckBox1.
Seulement, j'ai 12 CheckBox et je dois compter le nombre de CheckBox cochées à chaque nouvelle selection.
D'où ma question : Existe-t-il une solution pour tester toutes les CheckBox où bien je dois répéter mon code pour chaque CheckBox ?
Merci à tous
Code:
Private Sub CheckBox1_Click()
Dim I As Integer
Dim J As Integer
Dim AffMsg As String
For I = 1 To 12
If Controls('CheckBox' & I).Value = -1 Then
J = J + 1
End If
Next I
If J > 3 Then
AffMsg = MsgBox(J & ' CheckBox selectionné(s)', vbOKOnly, 'essai')
End If
End Sub
A+