Affecter deux macros à un bouton

Bonjour,

Dans mon fichier, j'ai créer deux macro, qui me permettent de cocher toutes mes checboxs et l'autre de les décocher.

J'aimerai maintenant créer un bouton et lui affecter au premier click ma première macro (tout cocher) et au second click ma seconde macro, (tout décocher).

Est-ce possible?

Si oui pourriez-vous m'aider?

Merci d'avance la communauté.

Théo

Bonjour,

Désolé je viens de mettre à jour !

Raja a écrit :

Bonjour,

Merci

Re,

Le fichier contenant la macro a une extension .xlsm

Ah ah désolé tout est en ordre et à jours....

Excuse moi

Raja a écrit :

Re,

Le fichier contenant la macro a une extension .xlsm

Re,

Essaye ce code suivant lié à un bouton de commande pour cocher et décocher les cases à cocher au lieu de 2 macros comme tu l'envisageais :

Sub Tout_cocher_decocher()
    Dim Shp As Shape
    For Each Shp In Sheets("F1").Shapes
        If Shp.FormControlType = xlCheckBox Then
            If Shp.DrawingObject.Value = Checked Then
                Shp.DrawingObject.Value = False
            Else
                Shp.DrawingObject.Value = True
            End If
        End If
    Next Shp
End Sub

Merci c'est exactement ce qu'il me fallait!!

Tu es super.

Théo

Re,

La macro pourra être simplifiée comme ça aussi sans créer une variable locale pour désigner les cases à cocher, car on peut directement travailler sur les objets d'un type particulier d'une feuille directement et sache qu'on peut faire aussi comme ça :

Sub Tout_cocher_decocher()
    For Each CheckBox In Sheets("F1").CheckBoxes
            If CheckBox.Value = Checked Then
                CheckBox.Value = False
            Else
                CheckBox.Value = True
            End If
    Next CheckBox
End Sub

On ne sais jamais ça sera utile pour une autre fois.