Lancement de plusieures macros

Résolu/Fermé

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008 - 19 mars 2008 à 15:43
arrial Messages postés 1753 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 29 décembre 2023 - 20 mars 2008 à 18:18

Bonjour,

j'ai 10 macros ( macro1 à macro 10) je souhaite avoir une commande qui les lancent toutes en un seul click mais le problème est que :

1) mes macros sont trop longues pour les condencées en une.

2) lorsque que je m'étais dis "bon allé tu auras plusieurs boutons" quand je clique dessus un message apparait et me dit:

"erreur d'éxécution '1004' :
La méthode Select de la classe Range a échoué."

ma macro est la suivante:

Sheets("Juillet").Select
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 33
Range("AM5:AU5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Récapitulatif heures").Select
ActiveWindow.SmallScroll Down:=51
Range("C67").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM6:AU6").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C87").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E78").Select
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM7:AU7").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
ActiveWindow.SmallScroll Down:=27
Range("C107").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM8:AU8").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
ActiveWindow.SmallScroll Down:=21
Range("C127").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM9:AU9").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
ActiveWindow.SmallScroll Down:=27
Range("C147").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM10:AU10").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
ActiveWindow.SmallScroll Down:=18
Range("C167").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=33
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM11:AU11").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C187").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM12:AU12").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C207").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM13:AU13").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C227").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM14:AU14").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C247").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM15:AU15").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C267").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM16:AU16").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C287").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM17:AU17").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C307").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM18:AU18").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C327").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=24
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM19:AU19").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C347").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM20:AU20").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C367").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM21:AU21").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C387").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM22:AU22").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C407").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM23:AU23").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C427").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM24:AU24").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C447").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM25:AU25").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C467").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM26:AU26").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C487").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM27:AU27").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C507").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM28:AU28").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C527").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM29:AU29").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C547").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM30:AU30").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C567").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM31:AU31").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C587").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM32:AU32").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C607").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM33:AU33").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C627").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM34:AU34").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C647").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM35:AU35").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C667").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM36:AU36").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C687").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM37:AU37").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C707").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM38:AU38").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C727").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM39:AU39").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C747").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
ActiveWindow.SmallScroll Down:=24
Application.CutCopyMode = False
Range("AM40:AU40").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C767").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=39
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM41:AU41").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C787").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM42:AU42").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C807").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM43:AU43").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C827").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM44:AU44").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C847").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=21
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM45:AU45").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C867").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM46:AU46").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C887").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=42
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM47:AU47").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C907").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=18
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM48:AU48").Select
Selection.Copy
Range("AJ65:AJ67").Select
Sheets("Récapitulatif heures").Select
Range("C927").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Juillet").Select
Application.CutCopyMode = False
Range("AM49:AU49").Select
Selection.Copy
Sheets("Récapitulatif heures").Select
Range("C947").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

cordialement

Magestic

A voir également:

Lancement de plusieures macros
Macros word - Guide
Au démarrage de l’ordinateur le d' se lance - Guide
Lancement automatique application windows 10 - Guide
Outlook.com date de lancement - Forum Hotmail / Outlook.com
My macros - Télécharger - Organisation

7 réponses

Réponse 1 / 7

UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022 3 183
19 mars 2008 à 15:45

salut
lancer plusieurs macros en même temps je suis pas sûr que ça soit bon par contre les lancer les unes après las autres en rajoutant avant le End Sub une commande pour lancer la macro suivante me parait plus indiqué

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
19 mars 2008 à 15:47

oui? mais comment faire? il y a un code spécial? est-il possible de de le faire en un seul click?

merci

magestic

UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022 3 183 > magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
19 mars 2008 à 15:59

je suis pas spécialiste de smacros juste utilisateur
mais le code que indiques on dirait une macro réalisée avec l'enregistreur de macro donc beaucoup trop d'instruction inutiles
pour l'appel de la macro suivante essaie de mettre avant End Sub le nom de la 2ème macro

Réponse 2 / 7

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
19 mars 2008 à 16:01

en effet je l'ai fais par l'enregistreur, je vais essayer de mettre le nom de la macro suivante.

merci

Réponse 3 / 7

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
19 mars 2008 à 16:06

Super ça marche! je vais poster le code de ma premiere macro qui fait encore de la rebélion pour voir si quelqu'un pourra me dépatouiller et tout sera bon! merci de ton aide

Réponse 4 / 7

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
19 mars 2008 à 16:09

Bonjour,
Pour lancer des macros les unes après les autres dans l'ordre voulu, créer une macro qui les appellent et ressemble à peu près à cela :

Sub Appel_Macro ()
Call macro1
Call macro2
Call macro3
      etc
End Sub

Bonne fin de journée

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022 3 183
19 mars 2008 à 16:14

à mon avis (à tester sur une copie du fichier et pas sur l'original)
tout ce qui est :
ActiveWindow.ScrollColumn =
ActiveWindow.SmallScroll Down:=
Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Application.CutCopyMode = False

peut être supprimé

Réponse 6 / 7

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
19 mars 2008 à 16:20

UsulArrakis a raison, ceci doit, bien évidemment, toujours être testé sur une copie et non sur l'original afin de ne pas perdre son travail si cela ne fonctionne pas comme voulu.
A+

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008
20 mars 2008 à 09:10

merci pour votre aide maintenant ca marche, enfin pour lancer les amcro mais la question du bouton n'est toujours pas réglée je l'ai poster sur : http://www.commentcamarche.net/forum/affich 5538342 codage vba excel
(au cas ou ;))

merci

magestic

salut
menu affichage / barre d'outils / controle de formulaire / tu crées un bouton
tu cliques sur "l'équerre" dans la barre d'outils pour passer en mode création
clic droit sur le bouton et là tu peux lui affecter une macro

magestic54 Messages postés 22 Date d'inscription vendredi 14 mars 2008 Statut Membre Dernière intervention 3 avril 2008 > UsulArrakis Messages postés 7405 Date d'inscription vendredi 28 mars 2003 Statut Contributeur Dernière intervention 27 janvier 2022
20 mars 2008 à 10:13

oui je sais mais lorsque je lui affecte la macro il me dit qu'il y a un prb. erreur 1004.
alors j'ai détaillé ma macro ( sur l'autre forum ) car ca m'affiche prb avec "range" et "select".

merci

Réponse 7 / 7

arrial Messages postés 1753 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 29 décembre 2023 250
20 mars 2008 à 18:18

Bonjour,

Quand on veut lancer automatiquement une série de maquereaux, on les lance généralement avec une macro qui se comporte comme un fichier batch.

Discussions similaires

Date de creation de mon adresse mail ?

PROBLEME YUZU

Risque de sécurité excel

Problème d'animation dans une présentation avec PowerPoint2016

Ecran noir lancement jeu PS3

Discussions similaires

Newsletters