Macro création graphique sur différents feuillets

Bonjour,
Je ne maîtrise pas les macro, mais aujourd'hui elle pourrait vraiment me simplifier la vie.

J'ai des séries de fichiers des données dont je dois faire des représentations graphiques.
Sur chaque fichier, j'ai 15 feuillets contenant de B2 à B100 le temps et de C2 à C100 des mesures qu'on relève chaque minute.


jusqu'à maintenant, je me met sur un feuillet et je lance la macro suivante :

Code:

---

1 2 3 4 5 6

Sub graph() Range("B2:C100").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range("B2:C100") ActiveChart.ChartType = xlXYScatter End Sub

---

puis je selectionne le feuillet suivant et je relance la macro... J'aurais voulu savoir comment faire pour créer une macro qui me permet de le faire sur tout les feuillet d'un coup.

Merci d'avance

Bonjour,

Voila qui devrait t'aider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub boucle()   Application.ScreenUpdating = False   For i = 1 To Sheets.Count Sheets(i).Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Sheets(i).Range("B2:C100") ActiveChart.ChartType = xlXYScatter Next   Application.ScreenUpdating = True   End Sub

---