Discussion :

[Freiya]

Bonjour,

Existe-t-il un évènement sur les groupes de check box ?
Ex : Groupe_Checkbox_ON_CHANGE()

J'ai un groupe de checkbox avec 1 coché par défaut et je souhaite qu'elle se décoche uniquement si au moins une autre est coché.

Merci

[jfontaine]

ce code fonctionne, mais reste à améliorer en passant la checkbox coché en paramètre et en mettant le code dans un sub a part

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub CheckBox1_Click()
 
Dim ctrl As Control
Dim i As Integer
 
i = 0
 
For Each ctrl In controls
 
    If TypeOf ctrl Is MSForms.CheckBox Then
 
        If ctrl.GroupName = "chk" Then
 
            If ctrl.Value = 0 Then i = i + 0 Else i = i + 1
 
        End If
 
    End If
 
 
Next
 
If i = 0 Then CheckBox1.Value = 1
 
 
End Sub

Jérôme