Re : Création graphique automatique VBA
Bonjour,
je me permet de réouvrir la discution car j'ai un petit problème.
Je me suis largement inspiré des macro de softmama mais en les modifiant un peu car mes données sont dans plusieurs feuilles différentes.
Mon code tourne pour un certain nombre de feuilles mais je ne comprend pas pourquoi il bloque lors de l'exécution de la dernière feuille...
voici mon code:
Sub MaMacro()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Courant"
Dim nbpages As Byte
nbpages = Worksheets.Count
Do Until nbpages = 0
Set c = Sheets(nbpages).Range("A15")
With ActiveChart
.SeriesCollection.NewSeries 'Ajoute une série
With .SeriesCollection(.SeriesCollection.Count)
.Name = nbpages 'Nom de la série
.XValues = Range(c.Offset(1, 0), c.End(xlDown)) 'absisses
.Values = Range(c.Offset(1, 9), c.Offset(1, 9).End(xlDown)) 'ordonnées
End With
End With
nbpages = nbpages - 1
Loop
End Sub
Merci!
PS: Cyrill33, mon code crée un graph dans une feuille a part, prend une dose d'inspiration dessus