Discussion :

[cufy59]

bonjour a tous
je suis debutant dans la programmation en VBA E et je suis confronter a un petit probleme

dans la macro je demande a excel de me tracer une courbe avec un tableau de point

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
nom = InputBox("nom de la courbe", "nom de la courbe", "f(x)")
Range("C2:C33").Select
    Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="Courbe avec lissage"
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C2:C33"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = nom
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveChart.HasLegend = False
    ActiveWindow.Visible = False
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

seulement dans la suite de mon programme certaines manipulations me permettent de changer les valeurs du tableau
Or par consequent ma courbe change immediatement
j'aimerai pouvoir garder sur ma feuille la courbe d'origine


je vous remerci de votre attention

[ouskel'n'or]

Je ne vois guère d'autre solution que celle consistant à copier ton graphe et le coller en tant qu'image

[cufy59]

ok
je vous remercie de votre reponse et vous souhaite une bon fin de journee