[SIZE=3][COLOR=red]Private bTout As Boolean[/COLOR][/SIZE]
Private Sub CheckBox1_Click()
[COLOR=blue]If Not bTout Then ref[/COLOR]
End Sub
Private Sub CheckBox2_Click()
[COLOR=blue]If Not bTout Then ref[/COLOR]
End Sub
Private Sub CheckBox3_Click()
[COLOR=blue]If Not bTout Then ref[/COLOR]
End Sub
Private Sub CheckBox4_Click()
[COLOR=blue]If Not bTout Then ref[/COLOR]
End Sub
Private Sub CommandButton1_Click()
Dim Ctrl As Control
'Signaler aux évènements click qu'on sélectionne tout
[COLOR=red][SIZE=3]bTout = True[/SIZE][/COLOR]
For Each Ctrl In Frame1.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
Ctrl.Value = True
End If
Next Ctrl
ref
[SIZE=3][COLOR=red]bTout = False[/COLOR][/SIZE]
End Sub
Private Sub ref()
MsgBox "ici se trouve la proc,dure de refresh"
End Sub
Private Sub CommandButton2_Click()
Dim Ctrl As Control
'signaler aux évènement click qu'on déselectionne tout
[SIZE=3][COLOR=red]bTout = True[/COLOR][/SIZE]
For Each Ctrl In Frame1.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
Ctrl.Value = False
End If
Next Ctrl
ref
[SIZE=3][COLOR=red]bTout = False[/COLOR][/SIZE]
End Sub
Private Sub UserForm_Initialize()
[SIZE=3][COLOR=red]bTout = False[/COLOR][/SIZE]
End Sub