Bonjour,

Je pilote excel à partir de VB6 et je dois réaliser un graph sur une feuille excel.
voici un bout de code
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
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