Discussion :

[CDGESTION]

bonjour,

Dans un même classeur, j'ai 5 onglets différents et dans chaque onglet j'ai un bouton qui exéctute une macro (donc au total 5 boutons dans le classeur).

j'aimerai créer un bouton global dans un nouvel onglet qui exécuterai l'ensemble des 5 boutons macro des autres onglets.

Est-ce possible? si oui, comment??

J'ai crée un bouton global où j'ai enregistré une macro en faisant la manip manuellement (aller sur chaque onglet et cliquer sur les 5 boutons macro les uns après les autres) mais une fois que je clic sur le boutton global rien ne se passe...les 5 boutons macro ne s'éxecute pas.

[Fred.dz]

Chacun de tes boutons doit appeler une procédure différente du coup t'as juste à faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sug general()
 
call procedure1
call procedure2
...
call procedure5
 
end sub

[el_slapper]

Chacun de tes boutons doit appeler une procédure différente du coup t'as juste à faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub general()
 
call procedure1
call procedure2
...
call procedure5
 
end sub

C'est sub, pas sug, mais +1, car c'est la manière propre de faire. Si le code est tout embarqué dans l'évenement Button_Click, alors il est vivement conseillé de le sortir dans une procédure. ça permet de désolidariser l'interface et le métier, et ça améliore la lisibilité et la maintenabilité de l'application.

Ne pas oublier de citer l'onglet dans ladite procédure, par contre, le piège quand on fait ça, c'est d'appliquer la mauvaise procédure au mauvais onglet.

[CDGESTION]

j'ai utilisé CALL mais cela ne fontionne pas, les macros appelées dans la macro general ne s'exécute pas.
Est-ce normal??

voici les macros (c'est pratiquement la même macro dans chaque onglet donc j'ai mis idem...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub macro16()
 
Rang ("r2:u300").ClearContents
Set dest = Range("r2")
Set r = Range("A1:m90")
For col = 2 To r.Columns.Count
For lig = 2 To r.Rows.Count
If r.Cells(lig, col).Value <> 0 Then
 DestLigne = DestLigne + 1
 dest.Cells(DestLigne, 1).Value = r.Cells(lig, 1).Value
 dest.Cells(DestLigne, 2).Value = r.Cells(lig, col).Value
 dest.Cells(DestLigne, 3).Value = r.Cells(1, col).Value
 dest.Cells(DestLigne, 4).Value = Range("a1")
End If
Next
Next
 
End Sub
 
Sub macro25()
idem macro précedente...
End Sub
 
Sub macro36()
idem...
End Sub
 
Sub macro37()
idem...
End Sub
 
Sub macro48()
idem...
End Sub
 
Sub macrogeneral()
Call macro16
Call macro25
Call macro36
Call macro37
Call macro48
End Sub

[Invité]

Bonjour,

Essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Module1.macro25

Remplace simplement, "module1" par le nom du module se reportant au Sub macro25.

[Soraphiroth]

Si les macros ne sont pas écrites dans le même module que macrogeneral, alors il faut les appeler en précisant le module : Module1.macro16 (ou Feuilxx si le code est dans une feuille).

[CDGESTION]

la macrogeneral se trouve dans le même module que les autres macros donc je n'ait pas à préciser le module normalement..

[Invité]

la macrogeneral se trouve dans le même module que les autres macros donc je n'ait pas à préciser le module normalement..

Y a t-il au moins une méthode qui marche parmis celle qui ont été proposé ? Si oui, le(s)quel(s) ?

voici les macros (c'est pratiquement la même macro dans chaque onglet donc j'ai mis idem...) :

Donc, les macros sont créées dans des feuilles ?

[CDGESTION]

voici le fichier ci-joint :

En appuyant sur le bouton general dans l'onglet récap, j'aimerai que les boutons (16,25,36,37 et 48) des autres onglets s'exécutent.

Or avec la macro que j'ai mis rien ne se passe...

Si quelqu'un peut m'éclairer svp
merci.

[CDGESTION]

Donc, les macros sont créées dans des feuilles ?

oui les macros sont crées dans des feuilles differentes d'un même classeur excel.

[Invité]

Personnellement, je n'ai accès à aucune Macro dans ton fichier Excel

[CDGESTION]

Bonjour,

Essaye:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Module1.macro25

Remplace simplement, "module1" par le nom du module se reportant au Sub macro25.

A la base j'avais mis la macro general dans le même module donc pas besoin de préciser le module puis je l'ai placé dans un autre module et la j'ai précisé le module de reférence des macros mais rien n'y fait sa ne fonctionne toujours pas.

[Invité]

Il n'y a aucune macro dans ton fichier Excel. Il est vierge de tout code.

J'ai copié coller ton code du dessus, et je ne comprends pas grand chose à ce code. Aucune variable n'est déclaré.

A quoi correspond par exemple ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dest = Range("r2")

C'est une destination ?

[CDGESTION]

Personnellement, je n'ai accès à aucune Macro dans ton fichier Excel

c'est normal en piece joint ça ne prend pas les fichiers avec macro.

Mais la macro je l'ai cité plus haut...

Chaque onglet à un bouton avec la même macro ( ce qui change se sont seulement les cellules (range..))
Et dans le dernier onglet un bouton general avec la macro suivante pour activer les autres bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub macrogeneral()
Call macro16
Call macro25
Call macro36
Call macro37
Call macro48
End Sub

Mais ça ne fonctionne pas.

[Invité]

Bon, ben en tout cas, quoi qu'il en soit, ta Macro n'est pas bonne tel quel.
Tu as forcément un message d'erreur, non ?

Sinon, tu peux faire un clique droit sur ton bouton (n°16 par exemple), et affecter une macro. Là, tu aura une liste de macro.