Discussion :

[mizou00]

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 :

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

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

[JeanSairien]

Bonjour,

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

Voici un bout de code :

Code :

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

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"