XL 2013 bouton bascule (togglebutton)

[Cleek]

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

 

[Dranreb]

Bonjour.
Faite comme pour une CheckBox (ActiveX, pas Formulaire). Ce sont deux type de contrôles très voisins.

 

[Cleek]

Bonjour.
Faite comme pour une CheckBox (ActiveX, pas Formulaire). Ce sont deux type de contrôles très voisins.

Merci à vous, c'est parfait ca fonctionne comme je l'espérais. J'y étais presque j'avais laissé la propriété à False.

 

[Robert]

Bonjour Cleek et bienvenu, bonjour le forum,

Peut-être comme ça :

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