Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Execution d'une macro dans une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion prsut
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

prsut

Guest
Bonjour Mesdames, Messieurs,

J'ai un certain nombre de macros. Et suivant les boutons et les MDP saisis je souhaite executer certaines macros, seulement je ne sais pas comment executer une macro dans une macro. Je met un exemple de mon code avec 2 boutons.

Si on appui sur le bouton A

Sub boutonA()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Désactivation de la protection des feuilles 1,2,3")
If MDP <> "MDPA" Then Exit Sub
For Each f In Worksheets
f.Unprotect MDP
Next

Executer macro déprotection feuille 1
Executer macro déprotection feuille 2
Executer macro déprotection feuille 3
Executer macros diversesA

End Sub

Si on appui sur le bouton B

Sub boutonB()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Désactivation de la protection des feuilles 1,4,6")
If MDP <> "MDPA" Then Exit Sub
For Each f In Worksheets
f.Unprotect MDP
Next

Executer macro déprotection feuille 1
Executer macro déprotection feuille 4
Executer macro déprotection feuille 6
Executer macros diversesB

End Sub

Merci d'avance pour vos réponses.
a bientot.
 
Trier par date Trier par votes
Re : Execution d'une macro dans une macro

Bonsoir Prsut,

Tu as une macro "déprotection" sur chaque feuille ???? Ou pour chaque feuille???

Pourquoi cela? Pas la peine! Une seule macro "déprotection" suffit!

Pour lancer une macro à l'intérieur d'une autre, il suffit d'écrire son nom. Si besoin rajouter son emplacement, par exemple :
module1.déprotection
Feuil1.diversesB

Sinon, tu peux aussi rajouter devant le nom de la macro "Call".

Lorsqu'on met au début de la macro :
Code: 
Application.ScreenUpdating = False

Bien penser à mettre avant la fin de la macro :
Code: 
Application.ScreenUpdating = True

Bonne soirée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Execution d'une macro dans une macro

Bonjour Excel-lent,

tout d'abord merci pour ta réponse. Je t'explique grossièrement. J'ai en effet une macro de vérouillage pour chaque feuille. En réalité j'ai potentiellement besoin que toutes les feuilles n'ai pas le meme mot de passe. D'autre part je ne connais pas le code pour protéger toutes les feuilles. Enfin la véritable raison qui motive mon choix d'avoir une macro par feuille c'est que mon code est construit comme ceci:

Sheets("m").Visible = True
Sheets("m").Select
Range("A1").Select
ActiveSheet.Unprotect "MDP"
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="MDP"
Sheets("m").Visible = True

Sheets("F").Visible = True
Sheets("F").Select
ActiveSheet.Unprotect "MDP"

Sheets("V").Visible = True
Sheets("V").Select
ActiveSheet.Unprotect "MDP"

Sheets("F").Select
ActiveSheet.PivotTables("F1").PivotCache.Refresh
ActiveSheet.PivotTables("F2").PivotCache.Refresh

Sheets("V").Select
ActiveSheet.PivotTables("V1").PivotCache.Refresh
ActiveSheet.PivotTables("V2").PivotCache.Refresh

Sheets("F").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="MDP"
Sheets("F").Visible = True

Sheets("V").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="MDP"
Sheets("V").Visible = False

C'est un extrait de ma macro de démarrage.
Donc en réalité je souhaite executer des opérations différentes dans chaque feuille au démarrage du fichier. C'est pour ça que j'ai un vérouillage par feuille.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
S
  • Question Question
Microsoft 365 Macro vba excel
Réponses
6
Affichages
617
patricktoulon
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
808
arnoldbrice19
A
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
M
  • Question Question
XL 2021 Macro/débogage et protection de feuille
Réponses
3
Affichages
693
Oneida
J
  • Résolu(e)
XL 2010 Avoir 2 mots de passe pour une même macro?
Réponses
2
Affichages
504
jigour
J
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
607
eCHO
E
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
652
ZiM
Z
C
  • Question Question
XL 2013 Bloquer feuille qui contient une macro par mdp
Réponses
1
Affichages
740
Phil69970
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
K
  • Question Question
Microsoft 365 écriture via code vba
Réponses
10
Affichages
1 K
soan
S
K
  • Question Question
XL 2016 Protection de plusieurs feuilles par macro + autorisation de modification
Réponses
1
Affichages
1 K
sylvanu
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
962
GADENSEB
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
J
  • Question Question
Microsoft 365 Probleme de changement de couleur d'un bouton
2
Réponses
25
Affichages
2 K
patricktoulon
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
598
JPaul78
J
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…