macro graphe affichage

Bonjour à tous,

J'ai un problème avec ma macro faite avec l'enregistreur, je veux faire un graphe pour 2 colonnes sur 673 lignes , je veux que le graphe affiche toutes les lignes sans que je l'agrandisse

Code:

---

1 2 3 4 5 6

Range("B2:C673").Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("Graphe!$B$2:$C$673") ActiveChart.ChartArea.Select ActiveSheet.Shapes("Graphique 1").Width = 5669.2913385827

---

Bonjour,

Enlève les deux dernières lignes qui ne servent pas.(La première non plus).

Voici un bout de code :

Code:

---

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

'Création de ton graphique avec ses paramètres dimensionnels Set SC = ActiveSheet.ChartObjects.Add(10, 10, 900, 500)   'A recopier pour avoir le nombres de courbes que tu souhaite SC.Chart.SeriesCollection.NewSeries   'Valeurs axe des ordonnées SC.Chart.SeriesCollection(1).XValues = "='Pareto'!R1C26:R9C26"   'Valeurs axe des abscisses de ta première courbe SC.Chart.SeriesCollection(1).Values = "='Pareto'!R1C29:R9C29"   'Valeurs axe des abscisses de ta deuxième courbe   'etc. SC.Chart.SeriesCollection(2).Values = "='Pareto'!R1C28:R9C28"

---