[VBA] ToggleButton événement click

Version imprimable

25/06/2007, 09h58
JOHN14

[VBA] ToggleButton événement click

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.
25/06/2007, 15h15
COCONUT2

C'est quoi les TB????
25/06/2007, 17h06
JOHN14

ToggleButton

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".

Bonsoir

Tu peux adapter ce type de procédure

Code:

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