[VBA] Appel d'une macro dans une autre macro
Résolu/Fermé
IBegin
Messages postés
7
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 janvier 2008
-
4 juil. 2007 à 16:35
IBegin - 6 juil. 2007 à 14:47
IBegin - 6 juil. 2007 à 14:47
Bonjour,
Soit une macro nommée "Défaut" qui copie un tableau vierge et qui le colle à la place d'un tableau qui peut ne pas être vierge si l'utilisateur a fait des modifications (en gros, ça permet de remettre à zéro).
Soit une autre macro qui, une fois que l'utilisateur a fini de remplir les données dans le tableau, les enregistre et les sauvegarde sur une autre feuille.
J'aimerais bien que la deuxième macro fasse appel à la première (Defaut) après avoir enregistré l'info, pour remettre à neuf le tableau de saisie.
Merci de vos conseils,
++
Soit une macro nommée "Défaut" qui copie un tableau vierge et qui le colle à la place d'un tableau qui peut ne pas être vierge si l'utilisateur a fait des modifications (en gros, ça permet de remettre à zéro).
Soit une autre macro qui, une fois que l'utilisateur a fini de remplir les données dans le tableau, les enregistre et les sauvegarde sur une autre feuille.
J'aimerais bien que la deuxième macro fasse appel à la première (Defaut) après avoir enregistré l'info, pour remettre à neuf le tableau de saisie.
Merci de vos conseils,
++
A voir également:
- Appeler une macro dans une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro word - Guide
- Appeler en privé - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
2 réponses
Utilisateur anonyme
4 juil. 2007 à 18:55
4 juil. 2007 à 18:55
Bonjour,
n.b. si la macro Defaut est dans Module1 et que la macro 2 est dans le module 2
Lupin
Sub Defaut() MsgBox "Macro Defaut" DoEvents ' ... End Sub ' Sub Macro2() Call Defaut DoEvents ' ... End Sub '
n.b. si la macro Defaut est dans Module1 et que la macro 2 est dans le module 2
Sub Macro2_Mod2() Call Module1.Defaut DoEvents ' ... End Sub '
Lupin