séléctions d'une plage de cellules

[raymondo]

bonjour
je réalise une macro me permettant de me définir un graphique. le graph est defini par une colonne 1 représentant x et une colonne 2 représentant y. le problème c'est que le nombre de lignes peut varier d'un graph à l'autre.
je voudrais rentrer l'instruction suivante:

ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range(cells(1,1),Cells(j,2)), PlotBy _:=xlColumns

excel n'accepte pas ce langage... sachant que j est une valeur definie un peu plus haut dans le programme...
si vous avez une idée je suis preneur...
merci

 

[Luki]

Bonjour raymondo,

Je ne suis malheureusement pas spécialiste dans les graphique mais je peux te conseiller ceci pour voir si le problème vient de j. Toutefois, il est possible que xl interprète j comme la colonne 'j ' d'où pb puisqu'il de faut un numéro de ligne. Alors pour vérifier si le pb vient de l'objet range , essaie ceci:
Range(cells(1,1),Cells(j,2)).select

Si ça bug, le problème vient de l'objet range, sinon c'est dans l'instruction du graph.
D'autre part, comment as tu déclaré ta variable j ?

A +

EDITION!!!!
Après vérif, Xl n'interprète pas j comme colonne car il n'est pas entre ''. Donc le pb reste entier.

Message édité par: luki, à: 02/05/2005 17:53

 

[raymondo]

oui en effet c'est tout le problème. pour l'instant je n'ai trouvé aucune solution, donc si il y a des personnes avec des idées je suis preneur....
merci
si je ne suis pas assez clair, dites le moi. je peux essayer de reformuler

 

[Moa]

Salut les Gars !

Je ne vois pas où est le problème, on peut donner une variable quelconque pour définir la plage à prendre en compte pour le graphe.

J'ai testé plusieurs variables et cas différents et tous ont marché.

En voici un :

Sub Macro1()
Dim i As Integer
i = Range('A1').Value + 1
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('B2:C' & i), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
End Sub


Dans mon cas, je donne la valeur de ma variable ' i ' en A1, car en fait en A1, j'ai mis une formule qui me compte le nombre de valeur de ma colonne, soit, NbVal(B:B)

Vous remarquerez que j'ai ajouté 1 à ma variable.

C'est simplement dû au fait que j'ai fait commencé ma colonne de chiffre en deuxième ligne.

Si je l'avais faite commencer en ligne 3, j'aurais additionné 2 etc...

@ +++

Moa

Message édité par: Moa, à: 03/05/2005 13:10

 

[David]

Salut

créés un compteur :



Sub Macro2()
Dim CptGraphique As Integer

CptGraphique = 1 'ligne de départ
Sheets('Feuil1').Select
Range('a:a').Rows(CptGraphique).Select 'colonne servant de repère pour le compteur
While ActiveCell <> vide
CptGraphique = CptGraphique + 1
Range('a:a').Rows(CptGraphique).Select
Wend
CptGraphique1 = CptGraphique - 1
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('a1:b' & CptGraphique1), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
End Sub

colonne a et b à changer selon tes absysses

ça ne marche pas si tu as une cellule vide dans la colonne qui alimente le compteur.
tcho

Message édité par: david, à: 03/05/2005 13:51

 

[David]

Re salut

un dernier truc, si tu as une ligen total en bout de colonne, pour qu'elle ne soit pas prise en compte dans la selection, tu changes la valeur :

CptGraphique1 = CptGraphique - 1

en

CptGraphique1 = CptGraphique - 2

ou autant de ligne en dernière position que tu ne veux pas voir apparaitre dans ton graphique.


tcho