help me please probleme de code

AM Gas nat · 8 Novembre 2013

Bonjour a tous je débute dans l'utilisation des macros.
je voudrais réaliser un graphique en histogramme sur un tableau comportant plusieurs données sur une années données.
en passant pas le mode "enregister une macro" j'ai le code suivant qui s'affiche.
Le problème que je rencontre c'est que je ne sais pas comment faire pour que VBA prenne la maco sur toutes les pages de mon classeur j'en ai 150 :-( ... C'est a dire qu'elle réalise un graphique sur toutes les pages de données.

Merci d'avance pour votre aide .

Sub miseformegraphique()
'
' miseformegraphique Macro
' Mise en forme des graphique du take or pay
'

'
Range("D11:I11,D13:I13,D15:I15").Select
Range("D15").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'!$D$11:$I$11;'!$D$13:$I$13;'124.Bekintex - Wetteren'!$D$15:$I$15" _
)
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout (9)
ActiveWindow.SmallScroll Down:=6
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartTitle.Text = "Semestre 1"
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Consommations MWH"
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Mois "
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).Name = "=""Consommations réelles cumulées"""
ActiveChart.SeriesCollection(2).Name = _
"=""Consommations contractuelles cumulées"""
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Height = 175.165
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Legend.Select
Selection.Left = 79.54
Selection.Top = 299.654
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Width = 496.959
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Left = 32.54
Selection.Top = 332.654
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Height = 253.165
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Width = 460.456
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).Select
ActiveWindow.SmallScroll Down:=-12
Range("J11:O11,J13:O13,J15:O15").Select
Range("J15").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'124.Bekintex - Wetteren'!$J$11:$O$11;'124.Bekintex - Wetteren'!$J$13:$O$13;'124.Bekintex - Wetteren'!$J$15:$O$15" _
)
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout (10)
ActiveWindow.SmallScroll Down:=12
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartTitle.Text = "Semestre 2"
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Height = 123.87
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.LegendEntries(1).Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Left = 40.87
Selection.Top = 233.904
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Width = 337.379
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Left = 20.87
Selection.Top = 285.904
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Height = 223.87
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).Name = "=""Consommations réelles cumulées"""
ActiveChart.SeriesCollection(2).Name = _
"=""Consommations contractuelles cumulées"""
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).Select
ActiveWindow.SmallScroll Down:=-12
Range("D11:O11,D13:O13,D15:O15").Select
Range("D15").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'124.Bekintex - Wetteren'!$D$11:$O$11;'124.Bekintex - Wetteren'!$D$13:$O$13;'124.Bekintex - Wetteren'!$D$15:$O$15" _
)
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout (10)
ActiveWindow.SmallScroll Down:=42
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartTitle.Text = "Contrat take or pay 2013"
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveWindow.SmallScroll Down:=6
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Axes(xlCategory).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Height = 243.345
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(1).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(1).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Left = 44.37
Selection.Top = 341.654
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Width = 450.379
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Name = "=""Consommations réelles cumulées"""
ActiveChart.SeriesCollection(2).Name = _
"=""Consommations contractuelles cumulées"""
ActiveWindow.SmallScroll Down:=18
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ApplyLayout (10)
ActiveWindow.SmallScroll Down:=9
ActiveChart.ApplyLayout (10)
ActiveChart.ApplyLayout (9)
ActiveChart.ApplyLayout (10)
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Points(10).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Height = 187.345
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Left = 51.5
Selection.Top = 315.654
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Width = 450.25
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Left = 44.5
Selection.Top = 348.654
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Width = 455.879
Selection.Height = 273.345
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SmallScroll Down:=-48
End Sub
Sub macrotest()
'
' macrotest Macro
' mise en formes des graphiques
'

'
Range("D11:I11,D13:I13,D15:I15").Select
Range("D15").Activate
Windows("C_Informe_Invoice_Detail_No_Nulas 0811.xlsx").Activate
Windows("Take or pay_2013 231013.xls").Activate
End Sub

code erreure qui ne s'applique pas sur les autre feuillles .
Sub miseformegraphique()
'
' miseformegraphique Macro
' Mise en forme des graphique du take or pay
'

'
Range("D11:I11,D13:I13,D15:I15").Select
Range("D15").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'!$D$11:$I$11;'!$D$13:$I$13;'124.Bekintex - Wetteren'!$D$15:$I$15" _
)
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout (9)
ActiveWindow.SmallScroll Down:=6
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartTitle.Text = "Semestre 1"
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlValue).AxisTitle.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Consommations MWH"
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlCategory).AxisTitle.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Mois "
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).Name = "=""Consommations réelles cumulées"""
ActiveChart.SeriesCollection(2).Name = _
"=""Consommations contractuelles cumulées"""
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Height = 175.165
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Legend.Select
Selection.Left = 79.54
Selection.Top = 299.654
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Width = 496.959
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Left = 32.54
Selection.Top = 332.654
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Height = 253.165
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 6").Activate
Selection.Width = 460.456
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.SeriesCollection(1).Select
ActiveWindow.SmallScroll Down:=-12
Range("J11:O11,J13:O13,J15:O15").Select
Range("J15").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'124.Bekintex - Wetteren'!$J$11:$O$11;'124.Bekintex - Wetteren'!$J$13:$O$13;'124.Bekintex - Wetteren'!$J$15:$O$15" _
)
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout (10)
ActiveWindow.SmallScroll Down:=12
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartTitle.Text = "Semestre 2"
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Height = 123.87
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.LegendEntries(1).Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Left = 40.87
Selection.Top = 233.904
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Width = 337.379
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Left = 20.87
Selection.Top = 285.904
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
Selection.Height = 223.87
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).Name = "=""Consommations réelles cumulées"""
ActiveChart.SeriesCollection(2).Name = _
"=""Consommations contractuelles cumulées"""
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(1).Select
ActiveWindow.SmallScroll Down:=-12
Range("D11:O11,D13:O13,D15:O15").Select
Range("D15").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'124.Bekintex - Wetteren'!$D$11:$O$11;'124.Bekintex - Wetteren'!$D$13:$O$13;'124.Bekintex - Wetteren'!$D$15:$O$15" _
)
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout (10)
ActiveWindow.SmallScroll Down:=42
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartTitle.Text = "Contrat take or pay 2013"
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveWindow.SmallScroll Down:=6
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Axes(xlCategory).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Height = 243.345
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(1).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(1).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.LegendEntries(2).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Left = 44.37
Selection.Top = 341.654
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Width = 450.379
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Name = "=""Consommations réelles cumulées"""
ActiveChart.SeriesCollection(2).Name = _
"=""Consommations contractuelles cumulées"""
ActiveWindow.SmallScroll Down:=18
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ApplyLayout (10)
ActiveWindow.SmallScroll Down:=9
ActiveChart.ApplyLayout (10)
ActiveChart.ApplyLayout (9)
ActiveChart.ApplyLayout (10)
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.SeriesCollection(1).Points(10).Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Height = 187.345
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Left = 51.5
Selection.Top = 315.654
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.Legend.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Width = 450.25
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Left = 44.5
Selection.Top = 348.654
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.PlotArea.Select
ActiveSheet.ChartObjects("Graphique 8").Activate
Selection.Width = 455.879
Selection.Height = 273.345
ActiveSheet.ChartObjects("Graphique 8").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SmallScroll Down:=-48
End Sub
Sub macrotest()
'
' macrotest Macro
' mise en formes des graphiques
'

'
Range("D11:I11,D13:I13,D15:I15").Select
Range("D15").Activate
Windows("C_Informe_Invoice_Detail_No_Nulas 0811.xlsx").Activate
Windows("Take or pay_2013 231013.xls").Activate
End Sub

kodass · 11 Novembre 2013

Tu peux trouver ta réponse sur ce lien

Vous devez être connecté pour voir les liens.

AM Gas nat · 13 Novembre 2013

Bonjour Kodass je te remercie pour ton retour,
Le soucis c'est que dans l'idée je ne souhaite pas forcement que la macro s'exécute a l'ouverture de mon classeur excel. Mais que je puisse l'activé sur toutes les feuillles lorsque je le souhaite. Parce que j'ai énormément de documents excel qui n'ont pas la meme structure ou information. Je ne sais pas si je m'exprime bien .

kodass · 13 Novembre 2013

Bonjour AM Gas nat
Mais du fait le macro est exécutable sur toutes les feuilles du classeur si tu le spécifie lors de son enregistrement. Là il suffit de l’exécuter soit par la commande exécuter ou par la touche de raccourci. Toutefois et si j'ai bien compris, je crois que toutes les feuilles doivent avoir la même structure puisque dans le macro tu fais référence à des cellules spécifiques pour l'élaboration du graphique.

help me please probleme de code

AM Gas nat

kodass

AM Gas nat

kodass