Appeler macro dans une macro

Question

Je suis un utilisateur occasionnel de VBA, mais là je me retrouve face à une impasse... J'ai un dossier contenant plusieurs feuilles (que je ne peux pas transmettre car confidentiel...) et dans chaque feuille, il y a des données, que je peux choisir en fonction d'une semaine choisie (j'ai donc créer une macro qui affiches les données en fonction de la semaine choisie). Et j'aimerai avoir une feuille affichant toutes les données des différentes feuilles pour pouvoir faire un tableau comparatif. Pour ce faire, dans ma feuille de globalisation, j'aimerai créer une macro qui lancerait la première macro dans toutes les pages en même temps ! J'espère avoir été clair,je vais voir si il n'y aurait pas moyen d'insérer un doc ou quoi, mais ça va être compliqué... Merci d'avance ...

Steelson · Answer

Pas sûr que cela réponde ... mais essaie l'instruction call MaMcro...

MFerrand · Answer

Tu es en train de faire un joyeux mélange... Une macro ne se crée pas dans une feuille de calcul. C'est du texte, écrit dans des pages spéciales appelées Modules, texte qu'on appelle lui-même code, composées de mot-clés agencés selon une syntaxe permettant d'interpréter et d'exécuter ce code sur ta machine. Dans une macro, on peut écrire une instruction lançant une macro ! Rien de plus simple : une ligne de code indiquant son nom suffit : NomMacro Si la macro est dotée d'arguments : NomMacro arg1, arg2 les arguments prennent place à la suite, après une espace et séparés par des virgules. Tu peux utiliser l'instruction Call pour appeler une macro, cela n'ajoute rien, sauf un mot de plus à écrire, mais si tu utilises Call, les arguments s'il y en a doivent être mis entre parenthèses : Call NomMacro(arg1, arg2) Application.Run sert surtout à utiliser d'anciennes macros non écrites en VBA. Si ça marche aussi, cela ne fait qu'ajouter du texte supplémentaire... mais pourquoi faire simple !! Si tu veux être aidé, il faut fournir un modèle précisant le résultat à obtenir. Cela ne s'invente pas et une macro ne s'écrit pas dans le vide. Cordialement...

MFerrand · Answer

Un argument est une donnée ou un paramètre dont la macro a besoin pour faire ce que tu lui demandes.

Même chose quand tu utilises une fonction dans une feuille de calcul : si tu tapes =SOMME(, à la suite de la parenthèse ouvrante tu vas indiquer ce qu'il y a lieu d'additionner, c'est l'argument de la fonction SOMME.

Dans ton cas, on peut concevoir une macro qui s'exécute sur 5 feuilles si celles-ci sont prédéfinies, mais on peut aussi la concevoir pour s'exécuter sur une feuille, non prédéfinie, et dans ce cas on prévoit que la macro soit lancée en lui fournissant en argument le nom de la feuille sur laquelle s'exécuter.

Cela te paraît-il plus clair ?

MFerrand · Answer

Bon ! Pas question que je me lance dans le décodage de ton fichier... 5 modules (un seul suffirait amplement) et du code pas indenté ou mal...

Alors, si tu indiques quelle macro est à exécuter sur 5 feuilles : son nom et où on la trouve, je veux la regarder, et voir comment compléter son action. Mais pas question que je la cherche.

MFerrand · Answer

La macro SyntheseSemaine est conçue si j'ai bien vue pour s'exécuter sur la feuille active.

Pour éviter de la reprendre en entier, il te faut activer la feuille à chaque fois et la lancer.

Pour ça : ajouter une variable dans GlobalSemaine, feuilles par exemple, à cet endroit :

Dim i As Integer, feuilles

(Pas de type, c'est une variable de type Variant)

En fin de macro tu mets le bout de code suivant :

    feuilles = Split("nomfeuille1;nomfeuille2;nomfeuille3;nomfeuille4;nomfeuille5", ";")
    For i = 0 To 4
        Worksheets(feuilles(i)).Activate
        SyntheseSemaine
    Next i

Tu remplaces évidemment les "nomfeuille..." par le nom de chaque feuille à traiter (une seule chaîne, les noms étant séparés par des points-virgules).

Chacune des 5 feuilles sera tour à tour activée et la macro se lancera 5 fois.

Cordialement.

MFerrand · Answer

C'est la même semaine pour les 5 ...

MFerrand · Answer

Dans ce cas, tu as déjà fait la sélection dans GlobalSemaine, il suffit de l'utiliser :

tu mets des arguments à SynthesSemaine :

Sub SyntheseSemaine(SemaineChoisie As Integer, AnneeChoisie As Integer)

Tu supprimes les déclarations de variables et le code correspondant à la sélection :

Code à supprimer:

Dim SemaineChoisie As Integer
Dim AnneeChoisie As Integer

Do
SemaineChoisie = InputBox("Semaine concernée (de 1 à 52):", "Choix de la semaine", 1)
Loop Until SemaineChoisie > 0 And SemaineChoisie < 53

Do
AnneeChoisie = InputBox("Année concernée (de 2015 à 2099):", "Choix de l'année", 2016)
Loop Until AnneeChoisie > 2014 And AnneeChoisie < 2100

Et le code précédemment vu devient :

    feuilles = Split("nomfeuille1;nomfeuille2;nomfeuille3;nomfeuille4;nomfeuille5", ";")
    For i = 0 To 4
        Worksheets(feuilles(i)).Activate
        SyntheseSemaine SemaineChoisie, AnneeChoisie
    Next i

Cordialement.

MFerrand · Answer

Parce que tu finis ton travail sur la 5 ! Dans la mesure où l'on active les feuilles une à une pour éviter de reprendre la macro.

Mais il suffit à la fin de réactiver la feuille Global pour y revenir :

Worksheets("Global").Activate