Microsoft 365 Mettre ToggleButton à false

pompaero · 1 Juin 2021

Bonjour le forum,

En cours de construction d'un petit classeur ou j'ai mis un bouton bascule (ToggleButton) qui fonctionne quand je click dessus.
Maintenant j'aimerai à la remise à zéro (bouton remise à zero) de ma feuille pouvoir mettre le bouton bascule à false ainsi que la couleur qui correspond à cette action.

Je tente depuis un moment à faire cela mais n'abouti pas au résultat, c'est pour ça que je viens vous demander de l'aide.
Vous verrez mon code associé au bouton (remise à zéro)

Je joins le classeur qui me sert d'exemple.
Merci à vous par avance.

Cdlt

Softmama · 1 Juin 2021

Bonjour,

à priori, il suffit de préciser l'objet parent de votre Togglebutton : ainsi :

VB:

Feuil1.ToggleButton1.Value = False

ChTi160 · 1 Juin 2021

Bonsoir pompaero
Bonsoir le Fil ,le Forum
Voilà ce que j'ai modifié dans la procédure " fin_service "
il y avais unToggleButton2 qui n'existe pas et j'ai indiqué le Nom de la feuille "Feuil1" plutôt que la variable "Sh"

VB:

With Feuil1
          .Range("C14,C15,C8") = ""
          .Range("M8") = ""
        If .Range("M8") = "" Then
         With .ToggleButton1
                  .Caption = "Non activé"
                  .Value = False
                 .BackColor = RGB(184, 204, 228) 'bleu gris
         End With
          .Range("M5:M8").Interior.Color = RGB(220, 230, 241) 'bleu gris
        End If
         .Range("A1").Select
    End With

pourquoi mettre ?

Code:

 If .Range("M8") = "" Then

car au dessus tu mets : " .Range("M8") = "" "
Cordialement
jean marie

pompaero · 1 Juin 2021

Bonsoir, le fil,

Merci de votre retour, toujours agréable de retrouver les gens qui aident..

Après test de vos propositions cela à l'air de fonctionner, je regarde plus tranquillement demain comment je vais adapter à ma macro.
Je reviens vers vous si besoin ou confirmer un bon fonctionnement de ma macro.
Encore merci
A bientôt

Cdlt

Microsoft 365 Mettre ToggleButton à false

pompaero

XLDnaute Impliqué

Pièces jointes

Softmama

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

pompaero

XLDnaute Impliqué

Discussions similaires