Discussion :

[xiungung]

Bonjour,

Toujours des problèmes avec mes CheckBox1 et CheckBox2...
Elles sont issus de ma boite à outils et non d'un UserForm.

j'aimerais que si l'utilisateur coche la CheckBox1 alors la CheckBox2 ne peut plus etre cochée (décochée en gros) et inversement.

Merci pour votre aide !

[aalex_38]

Il y a sans doute plusieurs solutions, comme ça tout de suite je vois ça a placer dans le code de la feuille :

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
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
    If OptionButton2.Value = True Then
        OptionButton2.Value = flase
    End If
End If
 
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
    If OptionButton1.Value = True Then
        OptionButton1.Value = flase
    End If
End If
 
End Sub

[xiungung]

Super, ça marche, merci !!!

[Krovax]

Il y a une différence entre décoché et ne pas povoir etre coché

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    If CheckBox2.Value = True Then
        CheckBox2.Value = flase
    End If
    CheckBox2.Enabled=false
else
    CheckBox2.Enabled=true
End If
 
End Sub

[aalex_38]

Merci Krovax pour le complèment, je n'y avais pas pensé.