Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Exécuter une macro sur plusieurs feuilles

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

ph.vanne

XLDnaute Junior
Bonjour,

J’ai un classeur avec plusieurs feuilles (une par jour) et j’aimerais qu’une macro que j’ai créée sur la première feuille puisse s’exécuter également sur les autres feuilles : n’étant pas très à l’aise avec Visual Basic, je ne trouve pas de solution !

Un autre de mes problèmes : j’ai une macro qui réalise un tableau à partir d’un autre tableau (pour celle-ci aucun problème, elle fonctionne) et une macro qui réalise un graphique à partir du deuxième tableau. Il y a un problème pour cette macro mais je ne comprends pas pourquoi …

J’aimerais que la macro réalise exactement le graphique que j’ai mis en exemple (c’est-à-dire avec l’échelle horaire, les abscisses en ordre inverse, les éléments de la légende inutiles supprimés etc…). J’ai essayé de reprendre ma macro pas à pas mais je ne trouve pas.

Je mets on fichier en exemple (avec les deux feuilles pour 2 journées différentes) ainsi que les boutons qui lancent mes 2 macros.
Merci de votre aide !
Et bonne journée
 

Pièces jointes

Trier par date Trier par votes
Re : Exécuter une macro sur plusieurs feuilles

Bonjour ph.vanne

Il faut mettre ton code dans ThisWorkbook
Et renseigner dans ton code l'objet sur lequel tu veux agir grâce à la variable objet "Sh"

A+
 
Vote positif 0 Vote négatif
Re : Exécuter une macro sur plusieurs feuilles

Bonjour,

J'ai enregistré mon code dans ThisWorkbook d'accord mais est-ce que tu peux développer la suite ? Je ne comprends pas bien a quel endroit je dois mettre cette variable "Sh" ...

Voici mon code :

"Sub graphique()
'
' graphique Macro
'
'
Range("A1:I8").Select
Selection.Copy
Range("A10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D12").Select
ActiveCell.FormulaR1C1 = "=R[-9]C-SUM(R[-9]C[-2]:R[-9]C[-1])"
Range("D12").Select
Selection.AutoFill Destination:=Range("D12😀17"), Type:=xlFillDefault
Range("D12😀17").Select
Range("F12").Select
ActiveCell.FormulaR1C1 = "=R[-9]C-SUM(R[-9]C[-2]:R[-9]C[-1])"
Range("F12").Select
Selection.AutoFill Destination:=Range("F12:F17"), Type:=xlFillDefault
Range("F12:F17").Select
Range("H12").Select
ActiveCell.FormulaR1C1 = "=R[-9]C-SUM(R[-9]C[-2]:R[-9]C[-1])"
Range("H12").Select
Selection.AutoFill Destination:=Range("H12:H17"), Type:=xlFillDefault
Range("H12:H17").Select
Range("A10:I17").Select
ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Select
ActiveChart.SetSourceData Source:=Range("'25-08-2015'!$A$10:$I$17")
ActiveChart.Parent.Delete
Range("A10:G17").Select
ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Select
ActiveChart.SetSourceData Source:=Range("'25-08-2015'!$A$10:$G$17")
ActiveChart.PlotBy = xlColumns
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).ReversePlotOrder = True
ActiveChart.SetElement (msoElementChartTitleNone)
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0.333333
ActiveChart.Axes(xlValue).MaximumScale = 0.708333
ActiveChart.Axes(xlValue).MajorUnit = 0.020833
ActiveChart.FullSeriesCollection(1).Select
Selection.Format.Fill.Visible = msoFalse
ActiveChart.FullSeriesCollection(3).Select
Selection.Format.Fill.Visible = msoFalse
ActiveChart.FullSeriesCollection(5).Select
Selection.Format.Fill.Visible = msoFalse
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 2").ScaleWidth 1.5770833333, msoFalse, _
msoScaleFromTopLeft
End Sub"
 
Vote positif 0 Vote négatif
Re : Exécuter une macro sur plusieurs feuilles

Re,

Tu nous dis
Donc moi je comprends,
1) j'ai un code qui doit s'exécuter pour toutes les feuilles de mon classeur
=> à mettre dans ThisWorkbook

2) J'ai un code que je veux utiliser pour créer mon graphique
=> autre code donc, pour créer un graphique
=> ce code est à mettre dans un module

Et dans ce que tu nous donne, tu nous donnes le code du graphique !!!???

Sinon voici un code à mettre dans un module et qui fonctionne avec la feuille active
A peaufiner pour obtenir ce que tu souhaites
Code: 
Sub Graphique()  Dim Sht As Worksheet
  ' Indiquer à VBA avec qui travailler
  ' Avec la feuille active
  With ActiveSheet
    .Range("A1:I6").Copy Destination:=.Range("A8")
    Application.CutCopyMode = False
    .Range("D10:D13").FormulaLocal = "=D3-SOMME(B3:C3)"
    '.Range("D10:D13").AutoFill
    .Range("F10:F13").FormulaLocal = "=F3-SOMME(D3:E3)"
    .Range("H10:H13").FormulaLocal = "=H3-SOMME(F3:G3)"
  End With
  ' Définir la feuille active
  Set Sht = ActiveSheet
  ' Créer le graphique
  Sht.Shapes.AddChart(297).Select
  ' Avec le graphique actif
  With ActiveChart
    .SetSourceData Source:=Sht.Range("$A$8:$I$13")
    .PlotBy = xlColumns
    .Axes(xlCategory).ReversePlotOrder = True
    .SetElement (msoElementChartTitleNone)
    .Axes(xlValue).MinimumScale = 0.333333
    .Axes(xlValue).MaximumScale = 0.708333
    .Axes(xlValue).MajorUnit = 0.020833
    .SeriesCollection(1).Format.Fill.Visible = msoFalse
    .SeriesCollection(3).Format.Fill.Visible = msoFalse
    .SeriesCollection(5).Format.Fill.Visible = msoFalse
    'ActiveSheet.Shapes("Graphique 2").ScaleWidth 1.5770833333, msoFalse, _
                                                 msoScaleFromTopLeft
  End With
End Sub

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
453
micie1509
L
  • Question Question
Microsoft 365 Soustraction de plusieurs cellules sur plusieurs feuilles.
Réponses
1
Affichages
157
Staple1600
N
  • Question Question
Microsoft 365 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
124
vgendron
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
204
micheldu52
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
230
caseras
C
  • Question Question
Microsoft 365 Variable tableau : coller uniquement une partie des colonnes
2 3
Réponses
31
Affichages
1 K
BenHarber
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
208
fanch55
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
127
ChTi160
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
360
sousou
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
229
Sissou71
S
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
495
klin89
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
657
AtTheOne
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
201
sylvanu
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
503
job75
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
465
Dranreb
  • Question Question
XL 2019 Regrouper les données de plusieurs feuilles dans une seule Feuille
Réponses
9
Affichages
600
Oneida
A
  • Résolu(e)
Microsoft 365 filtrer plusieurs valeurs
Réponses
6
Affichages
97
auloin
A
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
244
xavieralvaro
X
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
647
Max
M
  • Question Question
Microsoft 365 Bug sur une macro
Réponses
6
Affichages
347
jaclam
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…