Discussion :

[Tomme]

Je voudrais tracer un graphe de la colonne "N" (colonne "N" remplie d'un millier de valeurs), en fonction de la colonne "B" (Cette colonne "B" contient une série de nombre croissant incrémenté de 60 en 60, et cette colonne contient autant de points que "N", soit un millier)

je pensais écrire :

Code :

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

1
2
3
4
5
6
 
Charts.Add
        ActiveChart.ChartType = xlLine
        ActiveChart.SetSourceData Source:=Sheets("Resultats").Range("N:N"), PlotBy:=xlColumns
        ActiveChart.SeriesCollection(1).XValues = Sheets("Resultats").Range("B:B")
        ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"

Mais le tracé s'effectue sur les 65.000 points que compte Excel !!
Je ne comprend pas pourquoi (alors que les lignes de 1000 à 65.000 sont vide), Excel continu de penser qu'i y a 65.000 lignes dans mon tableau.

Comment faire comprendre une fois pour toute à Excel que je n'ai pas 65.000 lignes ?

ou si ce n'est pas possible, comment tracer convenablement mon graph ?

Merci d'avance

[SilkyRoad]

bonsoir


Tu peux essayer

Code :

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

1
2
3
4
5
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Resultats").Range("N1:N1000"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = Sheets("Resultats").Range("B1:B1000")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"

michel

[Tomme]

bonjour,

Merci SilkyRoad,
Mais la macro que j'essaye de crée ne s'aplique pas toujours à un tableau de exatement 1000 lignes, suivant les fichiers il peut y avoir entre 600 et 1500 lignes ou plus.

du coup ce que tu me raconte n'est pas vraiment valable.

Si quelqu'un a une autre solution ?
Merci

[SilkyRoad]

bonjour

Tu n'as pas du chercher beaucoup car i y a des dizaines d'exemples sur le forum qui montrent comment définir une plage de cellules ...

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
Dim PlageX As Range
Dim PlageY As Range
 
Set PlageY = Sheets("Resultats").Range("N1:N" & _
    Sheets("Resultats").Range("N65536").End(xlUp).Row)
 
Set PlageX = Sheets("Resultats").Range("B1:B" & _
    Sheets("Resultats").Range("B65536").End(xlUp).Row)
 
 
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=PlageY, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).XValues = PlageX
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph"

michel