[VB6]Graphique Excel

Version imprimable

Bonjour,

Je pilote excel à partir de VB6 et je dois réaliser un graph sur une feuille excel.
voici un bout de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For k = 1 To i - 1
    XL.Sheets("feuil" & k).Select
    nbepoint = 35 + Text2.Text
 
 
    XL.Range("C35:C" & nbepoint & ";F35:F" & nbepoint).Select
    XL.Charts.Add
    XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    XL.ActiveChart.SetSourceData Source:=XL.Sheets("feuil" & k).Range("C35:C" & nbepoint & ";F35:F" & nbepoint), PlotBy:=xlColumns
    XL.Sheets("feuil" & k).Select
    XL.ActiveChart.Location Where:=xlLocationAsObject, Name:="feuil" & k
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "aaaaa"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "bbbbb"
    End With
    XL.ActiveSheet.Shapes("Graphique " & k).IncrementLeft -173.25
    XL.ActiveSheet.Shapes("Graphique " & k).IncrementTop 13155.75

Mon problème vient de la zone marquée en rouge car Pour le prog, name = nom de la form sur lequel le code s'éxécute (name=form6)

si quelqu'un a une idée?

par avance merci

24/04/2006, 16h56
SfJ5Rpw8

peu-être :

Code:

XL.ActiveChart.Location xlLocationAsObject, "feuil" & k
24/04/2006, 17h23
biquet

merci pour la réponse mais si j'ai 2 feuille excel, il me met les graph sur la feuille 2 et si j'ai 20 feuille excel, il me met tout mes graph sur la feuille 20

une autre possibilité?

merci:lol:
25/04/2006, 12h41
getea85

Pour ma part, je n'ai jamais réussi à mettre mes graphes directement dans la bonne feuille (ils vont tous se mettre dans la 1ere feuille du classeur).

Donc ma solution a été de couper et coller à postériori mes graphes de ma 1ere feuille à la feuille voulue (c'est pas très clean mais ça marche :oops: ).