[VBA] Appliquer ma macro à plusieurs feuilles

Fermé
guillaumus - 9 févr. 2012 à 09:30
 wiidle - 13 févr. 2012 à 17:32
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!

A voir également:

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
0