Discussion :

[JOHN14]

Bonjour à tous.

Je voudrais savoir comment faire pour mettre dans l'état "False" tous les autres TB d'une feuille lorsque l'un d'entre eux est cliqué.

Merci.

[COCONUT2]

C'est quoi les TB????

[JOHN14]

Un ToggleButton (TB) est un bouton-bascule. Lorsqu'il a été clicqué, il reste enfoncé et prend la valeur "True" contrairement au CommandButton qui revient toujours en position "relachée".

[SilkyRoad]

Bonsoir

Tu peux adapter ce type de procédure

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
Option Explicit
 
' 3 ToggleButton placés dans la feuille de calcul
 
Private Sub ToggleButton1_Click()
    MajToggleButton 1
End Sub
 
Private Sub ToggleButton2_Click()
    MajToggleButton 2
End Sub
 
Private Sub ToggleButton3_Click()
    MajToggleButton 3
End Sub
 
 
 
Sub MajToggleButton(Idx As Integer)
    Dim x As Integer
 
    For x = 1 To 3
        If x <> Idx And ActiveSheet.OLEObjects("ToggleButton" & Idx).Object.Value = True Then _
            ActiveSheet.OLEObjects("ToggleButton" & x).Object.Value = False
    Next x
 
End Sub

bonne soirée
michel