Microsoft 365 Mettre ToggleButton à false

pompaero

XLDnaute Impliqué
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
 

Pièces jointes

  • ToggleButton_Test_v1.xlsm
    35.7 KB · Affichages: 11

ChTi160

XLDnaute Barbatruc
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
 
Dernière édition:

pompaero

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
315 132
Messages
2 116 598
Membres
112 800
dernier inscrit
charly1785