Les Allergies
Alimentaires
Posez votre question Signaler

[VBA] Appliquer ma macro à plusieurs feuilles

guillaumus - Dernière réponse le 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!
Lire la suite 

[VBA] Appliquer ma macro à plusieurs feuilles »

1 réponses
Réponse
+0
moins plus
wiidle 13 févr. 2012 à 17:32
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

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [VBA] Appliquer ma macro à plusieurs feuilles » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?