Probleme de version Excel ?

Bonsoir le forum

Voilà j'ai une partie de mon code qui fonctionne impeccable chez moi et au taf (2013-2016) mais impossible de le faire fonctionner sur une version anterieur

Y a t il moyen d'ecrire le code de maniere plus compatible

Range("A2:N3").Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("$A$2:$N$3")
   With ActiveSheet.ChartObjects(1)
        .Left = Range("B10:m30").Left
        .Top = Range("b10:m30").Top
        .Width = Range("b10:m30").Width
        .Height = Range("B10:m30").Height
    End With
    ActiveChart.Axes(xlValue).MaximumScale = 0.02778
    ActiveChart.Axes(xlValue).MinimumScale = 0
    ActiveChart.Axes(xlValue).MajorUnit = 0.006945
    ActiveChart.FullSeriesCollection(1).ApplyDataLabels
    With ActiveChart.FullSeriesCollection(1).DataLabels
    .Position = xlLabelPositionCenter
    .Format.TextFrame2.TextRange.Font.Bold = msoTrue
   End With
ActiveChart.ChartTitle.Text = "Temps moyen d'enregistrement pour le GH " & Year(Date) - 1
    

Le code s'arrete sur le

 ActiveChart.FullSeriesCollection(1).ApplyDataLabels

pour appliquer la mise en forme des vignettes sur le graph = erreur de compilation Membre de methode ou de donnée introuvable

Si vous avez une idée merci,

Bonjour,

Pour commencer, AddChart2, c'est pour Excel 2013+.

Sinon, regarde pour SeriesCollection(1).ApplyDataLabels au lieu de FullsSeriesCollection !...

Cdlt.

Bonjour,

ça pourrait t'intéresser : https://docs.microsoft.com/fr-fr/previous-versions/office/office-2010/ff394407(v%3doffice.14)

eric

Bonsoir à vous deux,

Je viens de tester la soluce de Jean eric j'ai donc modifié

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select

en

ActiveSheet.Shapes.AddChart(201, xlColumnClustered).Select

et

ActiveChart.FullSeriesCollection(1).ApplyDataLabels
    With ActiveChart.FullSeriesCollection(1).DataLabels

en

ActiveChart.SeriesCollection(1).ApplyDataLabels
    With ActiveChart.SeriesCollection(1).DataLabels

ca fonctionne toujours chez moi en 2013,

je test ça demain sur la version antérieure mais je pense que l'on est sur la bonne piste.

Merci

Et je garde la lecture de eriiic pour le week end pour me deniaiser un peu

Merci, si c'est bon demain je valide