offset de colonne ou autre

Version imprimable

Voici mais quelques lignes de codes pour créer un graphique, mon probléme est que "c" dans range (1er ligne de code) correspond à une donnée que je veux mettre en graphique, seulement je ne vois pas comment faire de la colonne "c" une variable que je pourrais changer, peut être ^par un offset ?.
J'espère avoir été assez clair...........
Code:

1 2 3 ActiveChart.SetSourceData Source:=Sheets(onglet_nom).Range("C2:C" & derniereligne) ActiveChart.SeriesCollection(1).XValues = "=" & onglet_nom & "!$a$2:$a$" & derniereligne ActiveChart.SeriesCollection(1).Name = "=" & onglet_nom & "!$C$1"

02/05/2008, 18h08
fring

Eventuellement comme ceci

Code:

Range(Cells(X1, Y1), Cells(X2, Y1))

Et tu donnes la valeur que tu veux à X et Y

X1 = ligne de début
X2 = ligne de fin
Y1 = colonne

Bonjour philou, fring

j'ai peut etre pas tout compris, mais une idée : definir une variable objet exemple : cible

Code:

1
2
dim cible as range
set cible = sheets(onglet_nom).range("C2:C" & sheets(onglet_nom).range("c65536").end(xlup).row) ' definition de la plage en variable

tu peux aussi mettre tout en variable
origine : la cellule de depart --> C2
cible : la plage de calcul ---> origine ---Toute les lignes

Code:

1
2
3
dim origine as range, cible as range
Set origine = Sheets(onglet_nom).Range("C2")
Set cible = Sheets(onglet_nom).Range(origine.Address & ":" & Sheets(onglet_nom).Cells(65536, origine.Column).End(xlUp).Address)

à l'utilisation :

Code:

1
2
3
ActiveChart.SetSourceData Source:=cible
ActiveChart.SeriesCollection(1).XValues = "=" & onglet_nom & "!$a$2:$a$" & derniereligne 
ActiveChart.SeriesCollection(1).Name = "=" & onglet_nom & "!"  & origine.offset(-1,0).address

pour decaler de colonne en colonne

Code:

1
2
3
4
5
6
7
8
dim col as integer
dim origine as range, cible as range,col as integer
Set origine = Sheets(onglet_nom).Range("C2")
Set cible = Sheets(onglet_nom).Range(origine.Address & ":" & Sheets(onglet_nom).Cells(65536, origine.Column).End(xlUp).Address)
col = 0
ActiveChart.SetSourceData Source:=cible.offset(0,col)
ActiveChart.SeriesCollection(1).XValues = "=" & onglet_nom & "!$a$2:$a$" & derniereligne 
ActiveChart.SeriesCollection(1).Name = "=" & onglet_nom & "!"  & origine.offset(-1,col).address

bonne journée