Lancer une macro depuis case à cocher

Version imprimable

08/01/2016, 06h48
Hugues Moselle

Lancer une macro depuis case à cocher

Bonjour,

Mon problème bien que simple me bloque.
J'ai une dizaine de macro dans un fichier EXEL, je voudrais pouvoir lancer plusieurs macro (en fonction de la situation)
Mon objectif cocher des cases à cocher et une fois ma sélection faite, pouvoir lancer en une fois toutes les macro sélectionné.
Merci pour votre aide
08/01/2016, 08h06
Theze

Bonjour,

Montre le code ça sera plus facile de t'aider !

Bonjour,

Est-ce que quelque chose du genre pourrait te convenir (en insérant un bouton et le nombre de case à cocher dont tu as besoin) ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Lancement_macros ' s'exécute au clic sur le bouton
 
   If Sheets("NomFeuille").Shapes("Check Box 1").ControlFormat.Value = xlOn Then ' si case cochée exécution de la macro concernée
      Call Macro1
   End If
 
   If Sheets("NomFeuille").Shapes("Check Box 2").ControlFormat.Value = xlOn Then ' si case cochée exécution de la macro concernée
      Call Macro2
   End If
 
   [...]
 
End Sub

08/01/2016, 10h39
Hugues Moselle

Bravo NICKEL

Bravo à vous.

C'est exactement ce que je voulais.
Je suis loin très très loin de maitriser les MACRO, mais une fois l'exemple vu, j'arrive à le modifier pour l'adapter à mes besoins.

Et dire que j'avais beau chercher sur la toile, je ne trouvais pas de réponse.

Encore Merci