Salut;
J'ai dix tableaux de la forme:
| 5 | |
| 6 | -0.255 |
| 7 | 0.204 |
| 8 | -0.216 |
| 9 | -0.193 |
| 12 | 0.381 |
| 13 | 0.577 |
| 14 | -0.058 |
| 15 | 0.542 |
| 16 | -0.095 |
| 20 | -0.351 |
| 21 | 0.141 |
| 22 | 0.316 |
| 23 | -0.225 |
| 26 | 0.332 |
| 27 | 0.011 |
| 28 | -0.059 |
| 29 | 0 |
| 30 | 0 |
| 33 | 0 |
j'aimerai faire une macro qui cree dix diagrammes pour chacun des tableaux.
Voilà mon code:
Dim co As ChartObject
Dim cw As Long, rh As Long
cw = Columns(1).Width
'MsgBox ("cw=" & cw)
rh = Rows(1).Height
'MsgBox ("rh=" & rh)
Set co = ActiveSheet.ChartObjects.Add(cw * 30, rh * 0.5, cw * 20, rh * 2)
co.Name = "ChartExample"
Debug.Print co.Name
co.Chart.ChartType = xlLine
co.Chart.SeriesCollection.Add Source:=ActiveSheet.Range("a1:a20, b1:b20"), rowcol:=xlColumns, seriesLabels:=True, categoryLabels:=True
Sauf que avec ce code, j'en ai seulement un diagramme? Comment faut il faire la boucle 'for' pour en creer 10 a la fois, sachant que les tableaux sont situés l'un en dessous de l'autre et que j'aimerai placer le diagramme à droite du tableau correspondant?
Merci de votre aide.