A
albert
Guest
bonjour à tous, bonjour le forum,
avec le code suivant, j'obtiens la création d'un graphique dans une nouvelle feuille... toutes mes tentatives ont échouées pour créer ce graphique dans la feuille des données
Public Sub TestGraphe()
Dim MonGraphe As Chart, MaPlage As Range
Sheets("12040").Select
Set MaPlage = Worksheets("12040").Range(Cells(2, 27), Cells(125, 29))
Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.ChartType = xlXYScatterSmoothNoMarkers
MonGraphe.SeriesCollection.Add MaPlage, xlColumns, True, True
End Sub
merci d'avance
albert
avec le code suivant, j'obtiens la création d'un graphique dans une nouvelle feuille... toutes mes tentatives ont échouées pour créer ce graphique dans la feuille des données
Public Sub TestGraphe()
Dim MonGraphe As Chart, MaPlage As Range
Sheets("12040").Select
Set MaPlage = Worksheets("12040").Range(Cells(2, 27), Cells(125, 29))
Set MonGraphe = ThisWorkbook.Charts.Add
MonGraphe.ChartType = xlXYScatterSmoothNoMarkers
MonGraphe.SeriesCollection.Add MaPlage, xlColumns, True, True
End Sub
merci d'avance
albert