Onglet récapitulatif

Le
Gr12sable
Bonjour à tous,

Je débute dans Excel et ces maccros. J'ai un fichier excel qui
comporte différent onglets (1 par mois) comportant chacun un petit
tableau et un graphique. Je souhaiterais faire un onglet recapitulatif
qui récupere les tableaux et les graphiques de chaque onglet. Est-il
possible de creer une maccro qui fait cela automatiquement ?


Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4483131
Salut à toi
Je te propose d'utiliser l'enregistreur de macro pour 1 onglet
Comme ceci :
Outils/Macro/Nouvelle Macro
Nom de la Macro : "Récapitulation" par exemple
Puis Ok
Exécute à la main sans te tromper l'opération de recopie vers l'onglet
récapitulatif
(d'abord le tableau, puis le graphique)
Puis
arrètes l'enregistrement en cliquant sur l'icone "Arr" (click sur le carré
et non la croix)
Puis
Outils/Macro/Macro
Selectionne Récapitulation et Modifier
Recopies moi tout le code
Je tenterai de te donner une macro qui pourrait traiter tous les onglets

Une seule crainte en ce qui concerne le graphique
c'est qu'il garde les coordonnées de son onglet d'origine

A voir



Bonjour à tous,

Je débute dans Excel et ces maccros. J'ai un fichier excel qui
comporte différent onglets (1 par mois) comportant chacun un petit
tableau et un graphique. Je souhaiterais faire un onglet recapitulatif
qui récupere les tableaux et les graphiques de chaque onglet. Est-il
possible de creer une maccro qui fait cela automatiquement ?


Merci.




Gr12sable
Le #4478411
Hello,

Voilà le code de ce que j'ai fait manuellement si ca peu aider a
trouver une solution je suis preneur :

Sub Recap()

Application.Goto Reference:="Recap"
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("janvier altus").Select
Range("D3:O17").Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
Range("D3:Q17").Select
Selection.Copy
Sheets("bilan altus").Select
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("A3").Select
ActiveSheet.Paste
ActiveWindow.Zoom = 75
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("janvier altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("P4").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 4").Activate
ActiveSheet.Shapes("Graphique 4").IncrementLeft -27#
ActiveSheet.Shapes("Graphique 4").IncrementTop -15#
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A22").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("fevrier altus").Select
ActiveWindow.Zoom = 75
Range("D3:Q17").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Recap").Select
Range("A24").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("fevrier altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("P24").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("H23").Select
ActiveWindow.Zoom = 50
Sheets("Recap").Select
Sheets("Recap").Move Before:=Sheets(14)
Sheets("Recap").Select
Sheets("Recap").Move Before:=Sheets(8)
Sheets("mars altus").Select
ActiveWindow.Zoom = 50
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
Range("A46").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
Sheets("mars altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("P46").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveSheet.Shapes("Graphique 12").IncrementLeft 42#
ActiveSheet.Shapes("Graphique 12").IncrementTop 42.75
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("avril altus").Select
ActiveWindow.Zoom = 50
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 12").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A63").Select
Sheets("Recap").Select
ActiveSheet.Paste
Range("Q65").Select
Sheets("avril altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 19").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("mai altus").Select
Range("D3:Q17").Select
Selection.Copy
Range("Q27").Select
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 19").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A82").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 49
Sheets("mai altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("mai altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("P81").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 23").Activate
ActiveSheet.Shapes("Graphique 23").IncrementLeft 21#
ActiveSheet.Shapes("Graphique 23").IncrementTop 60.75
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("août altus").Select
Sheets("août altus").Name = "août altus"
Sheets("juin altus").Select
ActiveWindow.Zoom = 50
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 23").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A100").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 51
ActiveWindow.LargeScroll Down:=1
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 80
Sheets("juin altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("Q101").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 27").Activate
ActiveSheet.Shapes("Graphique 27").IncrementLeft -19.5
ActiveSheet.Shapes("Graphique 27").IncrementTop 9#
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("juillet altus").Select
ActiveWindow.Zoom = 50
Range("D3:Q18").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 27").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A120").Select
ActiveSheet.Paste
Sheets("juillet altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("Q120").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 31").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("août altus").Select
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 31").Activate
Windows("Altus SMED.xls").ScrollRow = 81
Windows("Altus SMED.xls").ScrollRow = 82
Windows("Altus SMED.xls").ScrollRow = 83
Windows("Altus SMED.xls").ScrollRow = 85
Windows("Altus SMED.xls").ScrollRow = 86
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A136").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 103
Range("Q138").Select
Sheets("août altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 35").Activate
ActiveSheet.Shapes("Graphique 35").IncrementLeft -6#
ActiveSheet.Shapes("Graphique 35").IncrementTop 19.5
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Sheets("Recap").Move Before:=Sheets(16)
ActiveSheet.ChartObjects("Graphique 35").Activate
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("Graphique 35").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("septembre altus").Select
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 35").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A153").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 120
Sheets("septembre altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("Q156").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 39").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("octobre altus").Select
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 39").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A171").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 138
Sheets("octobre altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("Q173").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 43").Activate
ActiveSheet.Shapes("Graphique 43").IncrementTop 16.5
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("novembre altus").Select
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.ChartObjects("Graphique 43").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A190").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 156
Sheets("novembre altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("Q192").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 47").Activate
ActiveSheet.Shapes("Graphique 47").IncrementLeft 4.5
ActiveSheet.Shapes("Graphique 47").IncrementTop 27#
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Range("A208").Select
Sheets("decembre altus").Select
Range("D3:Q17").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 166
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 173
ActiveWindow.ScrollRow = 174
Sheets("bilan altus").Select
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("decembre altus").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy
ActiveWindow.Visible = False
Windows("Altus SMED.xls").Activate
Sheets("Recap").Select
Range("Q210").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Graphique 51").Activate
ActiveSheet.Shapes("Graphique 51").IncrementTop 21#
End Sub

Si quelqu'un comprend ce charabia et arrive à faire une solution
simple qui le fait automatiquement je prend.

Merci de l'aide en tout cas.

A+

On 27 avr, 21:52, FFO
Salut à toi
Je te propose d'utiliser l'enregistreur de macro pour 1 onglet
Comme ceci :
Outils/Macro/Nouvelle Macro
Nom de la Macro : "Récapitulation" par exemple
Puis Ok
Exécute à la main sans te tromper l'opération de recopie vers l'ong let
récapitulatif
(d'abord le tableau, puis le graphique)
Puis
arrètes l'enregistrement en cliquant sur l'icone "Arr" (click sur le ca rré
et non la croix)
Puis
Outils/Macro/Macro
Selectionne Récapitulation et Modifier
Recopies moi tout le code
Je tenterai de te donner une macro qui pourrait traiter tous les onglets

Une seule crainte en ce qui concerne le graphique
c'est qu'il garde les coordonnées de son onglet d'origine

A voir




Bonjour à tous,

Je débute dans Excel et ces maccros. J'ai un fichier excel qui
comporte différent onglets (1 par mois) comportant chacun un petit
tableau et un graphique. Je souhaiterais faire un onglet recapitulatif
qui récupere les tableaux et les graphiques de chaque onglet. Est-il
possible de creer une maccro qui fait cela automatiquement ?

Merci.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme