1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| Option Explicit
Private Sub CheckBox1_Click()
mescheck_click CheckBox1
End Sub
Private Sub CheckBox2_Click()
mescheck_click CheckBox2
End Sub
Private Sub CheckBox3_Click()
mescheck_click CheckBox3
End Sub
Private Sub CheckBox4_Click()
mescheck_click CheckBox4
End Sub
Private Sub toutetaille_Click()
mescheck_click toutetaille, True
End Sub
'--------------------------------------------------
'2d colonne de checkbox
Private Sub CheckBox5_Click()
mescheck_click CheckBox5
End Sub
Private Sub CheckBox6_Click()
mescheck_click CheckBox6
End Sub
Private Sub CheckBox7_Click()
mescheck_click CheckBox7
End Sub
Private Sub CheckBox8_Click()
mescheck_click CheckBox8
End Sub
Private Sub toutobjet_Click()
mescheck_click toutobjet, True
End Sub
Private Sub mescheck_click(check, Optional same As Boolean = False)
Dim Gr As String, ctrl As Object
Gr = check.GroupName
If check.Name Like "tout*" Then same = check.Value
If Me.ActiveControl.Name = check.Name Then
For Each ctrl In Me.Controls
If ctrl.GroupName = Gr And ctrl.Name <> check.Name Then ctrl.Value = same
Next
If Not check.Name Like "tout*" Then check.Value = True
End If
End Sub |
