Discussion :

[sehou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Guiiand]

Bonjour,

Voila qui devrait t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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