bonjour,
me revoila et oui, un problème de résolu, 10 autres qui arrivent derrière... mais bon il parait que c'est ca la programmation.lol
j'ai un tableau de valeurs sur une feuille nommée "calculs". le nombre de valeurs du tableau varie d'une fois sur l'autre c'est pourquoi j'utilise la fonction end.xldown.
dans un module, j'insère ce code
Public Sub graphique()
Worksheets("calculs").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets("calculs").Range("B5")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Range("B5", Range("B5").End(xlDown))
ActiveChart.SeriesCollection(1).Values = Range("E5", Range("E5").End(xlDown))
ActiveChart.SeriesCollection(1).Name = "=""freq cumule reel"""
ActiveChart.SeriesCollection(2).XValues = Range("B5", Range("B5").End(xlDown))
ActiveChart.SeriesCollection(2).Values = Range("F5", Range("F5").End(xlDown))
ActiveChart.SeriesCollection(2).Name = "=""theo"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="calculs"
End Sub
mais un message d'erreur aparait me disant que la méthode 'range' de l'objet(_global) a échoué.
si je mets le meme code diretement dans la feuille "calculs", ca marche.
quelqu'un pourrait me dire pourquoi? et surtout comment faire pour que ca marche a partir du module.
merci