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.
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.
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 : 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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager