[VBA] Appliquer ma macro à plusieurs feuilles
guillaumus
-
wiidle -
wiidle -
Bonjour,
J'utilise cette macro:
Sub aandre01()
Dim Etiq(100)
Dim NbValeurs As Long
NbValeurs = Range("A65536").End(xlUp).Row
Windows("Classeur1").Activate
For i = 1 To NbValeurs
Etiq(i) = Cells(i, 1)
Next i
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
Plage = "B1:C" & NbValeurs
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Plage), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False
For i = 1 To NbValeurs
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = Etiq(i)
Next i
Windows("Classeur1").Activate
Range("A1").Select
End Sub
Mais impossible de savoir comment l'appliquer à plusieurs feuilles autres que la 1, pourriez vous m'aider?
Merci beaucoup!
J'utilise cette macro:
Sub aandre01()
Dim Etiq(100)
Dim NbValeurs As Long
NbValeurs = Range("A65536").End(xlUp).Row
Windows("Classeur1").Activate
For i = 1 To NbValeurs
Etiq(i) = Cells(i, 1)
Next i
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
Plage = "B1:C" & NbValeurs
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Plage), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
AutoText:=True, LegendKey:=False
For i = 1 To NbValeurs
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = Etiq(i)
Next i
Windows("Classeur1").Activate
Range("A1").Select
End Sub
Mais impossible de savoir comment l'appliquer à plusieurs feuilles autres que la 1, pourriez vous m'aider?
Merci beaucoup!
1 réponse
-
Bonjour,
pour appliquer à plusieurs feuille il te suffit d'appliquer cette macro sur les autres feuilles.
Pour cela sélectionne les feuilles souhaitées [ Sheets("NomFeuille").select]
ou alors mets directement le nom de la feuille avant ta sélection de cellule.
ex: Sheets("NomFeuille").Cells(1,1).value = .....
Tu peux aussi boucler sur toutes les feuilles de ton classeur.
Sub Test()
Dim fFeuil As Worksheet 'tu défini tes feuilles
Dim Wb As Workbook 'tu défini tes classeur
Set Wb = ThisWorkbook 'tu défini Wb sur ce classeur (celui ouvert)
For Each fFeuil In Wb.Worksheets
fFeuil.Cells(1, 1).Value = "blabla"
Next
End Sub
