Aide sur un débogage

[nikwik666]

Bonjour,
J'ai réussi a faire un bout de code permettant de tracer une courbe suivant un certaine selection.La courbe se trace bien mais il y a une erreur que je ne connais pas.
Si vous pouviez m'aider sa serai sympa 😀

 

[PascalXLD]

Re : Aide sur un débogage

Bonjour

Il faut modifier la ligne en rouge
Attention tu vas bugger sur la fin de ton code car tu n'en connais pas le nom

   [COLOR=Red] plage = Selection.Address[/COLOR]
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(plage), PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "45"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

 

[nikwik666]

Re : Aide sur un débogage

Comment ca je ne connais pas le nom ??

 

[PascalXLD]

Re : Aide sur un débogage

OUps excuse j'ai été un peu vite

je parlais de cette ligne et des suivantes

ActiveSheet.Shapes("Graphique 4").IncrementLeft 111#

cela ne sera pas obligatoirement graphique 4

 

[nikwik666]

Re : Aide sur un débogage

C bon merci tout marche bien maintenant, j'ai viré les lignes juste avant la fin 😀