XL 2013 bouton bascule (togglebutton)

Cleek

XLDnaute Nouveau
Bonjour à toutes et tous
Je reviens à nouveau vers vous car j'ai un petit souci avec un bouton bascule (je l'utilise pour la première fois). En fait, je souhaiterais qu'il soit en positif "Vrai" à l'ouverture de mon fichier et étant en position "Vrai" je voudrais qu'il affiche le message correspondant à cet état.
Je vous remercie déjà toutes et tous pour vos réponses
Un bon dimanche
Claude
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Cleek et bienvenu, bonjour le forum,

Peut-être comme ça :

VB:
Option Explicit
Private TEST As Boolean 'déclare la variable TEST

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
TEST = True 'définit la variable TEST
Me.ToggleButton1.Value = True 'définit la valeur [Vrai] du bouton Bascule
End Sub

Private Sub ToggleButton1_Click() 'au clic dand le bouton bascule
If TEST = True Then TEST = False: Exit Sub 'si TEST est [vrai] TEST devient [faux], sort de la procédure
Select Case Me.ToggleButton1.Value 'agit en fonction de la valeur du bouton bascule
    Case True 'cas [vrai]
        MsgBox "vrai" 'message à remplacer par ton code à toi
    Case False 'cas [faux]
        MsgBox "faux" 'message à remplacer par ton code à toi
End Select 'fin de l'action en fonction de la valeur du bouton bascule
End Sub
 

Discussions similaires

Réponses
4
Affichages
268
Réponses
36
Affichages
1 K