Bonjour,
J'ai créé une macro qui traite des données d'une colonne , choisie par l'utilisateur grâce à un UserfOrm, et qui stocke les valeurs résultats dans la colonne qui suit ma plage de données.
Et je souhaiterais maintenant créer une macro qui retourne un graphique traçant ces dernières valeurs en fonction d'un incrément qui varie de 1 à 30. Le problème est que mon fichier texte d'entrée que je convertit en tableau varie en nombre de colonne. Je dois donc passer par
der_col = Range("A1").End(xlToRight).Column + 1
der_col correspond donc à la dernière colonne après avoir stocké les valeurs.
J'ai donc écrit ensuite ces lignes :
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "={1,30}"
ActiveChart.SeriesCollection(1).Values = "='" & ActiveSheet & "' !R2C" & der_col & ":R31C" & der_col
ActiveChart.SeriesCollection(1).Name = "=""Moyenne"""
Or ce message d'erreur s'affiche à la ligne 3 : Propriété ou méthode non gérée par cet objet.
Je suppose que je rédige mal mon code...
Je n'ai rien trouvé qui pourrait m'aider ou du moins que je comprenne à ce sujet.
Auriez-vous une solution pour tracer des graphiques dont les plages de données varient en colonnes ?
J'ai essayé avec range et cells mais je n'ai pas réussi.
J'ai un seconde problème pour nommer ce graphique. J'utilise :
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Valeurs axiales moy/min/max de :" & Range(c & 1).Value
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Axial Increment"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = Range(c & 1).Value
End With
Mais, le code bug à la ligne 3. "c" représente la colonne choisie par l'utilisateur. Ce qui me parait étrange, c'est que j'utilise la ligne de code suivante un peu plus haut qui fonctionne :
Cells(1, der_col).Value = " Moyenne de :" & Range(c & 1).Value
Peut-être des erreurs de syntaxes ?
J'espère que mes explications étaient claires et qu'une âme charitable sera prête à m'aider
Je vous en remercie d'avance ^^