Salut à tous,
J'ai des problemes pour inserer un graphique dans un userform.
Pour creer mon fameux graphique, j'utilise le code suivant :
Sub Graphique()
y = ActiveCell.Row
Union(Range("D2:O2"), Range("D" & y, "O" & y)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
With ActiveChart.SeriesCollection.NewSeries
.Name = "2010"
.Values = ThisWorkbook.Sheets("ORYS").Range("S" & y, "AD" & y).Value
.XValues = ThisWorkbook.Sheets("ORYS").Range("D2:O2").Value
End With
ActiveChart.Location Where:=xlLocationAsObject, Name:="ORYS"
End Sub
Je voudrais que ce graphique soit créé directement dans le userform apres avoir clické sur un bouton... 🙄
Je n'y arrive pas malheureusement 😕
Si vous avez la reponse je suis preneuse. 😱
Merci
Malka
J'ai des problemes pour inserer un graphique dans un userform.
Pour creer mon fameux graphique, j'utilise le code suivant :
Sub Graphique()
y = ActiveCell.Row
Union(Range("D2:O2"), Range("D" & y, "O" & y)).Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
With ActiveChart.SeriesCollection.NewSeries
.Name = "2010"
.Values = ThisWorkbook.Sheets("ORYS").Range("S" & y, "AD" & y).Value
.XValues = ThisWorkbook.Sheets("ORYS").Range("D2:O2").Value
End With
ActiveChart.Location Where:=xlLocationAsObject, Name:="ORYS"
End Sub
Je voudrais que ce graphique soit créé directement dans le userform apres avoir clické sur un bouton... 🙄
Je n'y arrive pas malheureusement 😕
Si vous avez la reponse je suis preneuse. 😱
Merci
Malka