Discussion :

[SAP_Excel]

Bonjour à tous,

Je reprends actuellement un poste et je me retrouve face à une " panne" de macro....
La macro est plutôt ancienne, elle a été crée en 2004.
Cette macro sert sur une page qui permet d'afficher des graphiques de suivis de production.
elle affiche les mois m-3,m-2,m-1 et m en terme de réalisation.
Le mois m-3 est ensuite archivé...
Quand je lance le programme, il s'arrête sur la ligne en jaune mais je ne sais pas pourquoi... ( voir image si dessous)

Erreur d'exécution '-2147467259 (80004005)':
La méthode 'Select' de l'objet 'DataLabel' a échoué

merci d'avance pour votre aide

[Phil Free]

essais de remplacer la ligne surlignée en jaune par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ActiveChart.SeriesCollection(i)
    .HasDataLabels = True
    .Points(.Points.Count).DataLabel.Select
End With

[SAP_Excel]

Je te remercie pour l'aide que tu essaies de m'apporter mais cela ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .HasDataLabels = True

devient Jaune....

[Phil Free]

Donc à priori le label n'existe pas ! la aussi quel est le message d'erreur ?

Bon c'est compliqué de travailler comme cela... il faudrait que tu postes le code de la sub Etiquette pour que je puisse le copier coller pour tester !

[SAP_Excel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Etiquettes()
'
' Etiquette Macro
' Macro enregistrée le 06/12/2002 par Bruno FACHE
'
Dim i As Byte
Dim NumGraph As Byte
 
' affiche les étiquettes des courbes bleu et rouge
    Sheets("Graphiques").Select
    For NumGraph = 1 To 3
        If NumGraph = 3 Then NumGraph = 5
        ActiveSheet.ChartObjects("Graphique " & NumGraph).Activate
        For i = 2 To 3
            On Error Resume Next
            ActiveChart.SeriesCollection(i).DataLabels.Delete
            On Error GoTo 0
            ActiveChart.SeriesCollection(i).Points(ActiveChart.SeriesCollection(i).Points.Count).ApplyDataLabels _
            Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
'            ActiveChart.SeriesCollection(i).DataLabels.Select
           ' ActiveChart.SeriesCollection(i).Points(ActiveChart.SeriesCollection(i).Points.Count).DataLabel.Select
            With ActiveChart.SeriesCollection(i)
            .HasDataLabels = True
            .Points(.Points.Count).DataLabel.Select
            End With
 
            Selection.AutoScaleFont = False
            With Selection.Font
                .Name = "Arial"
                .Size = 8
                .Background = xlAutomatic
                .Bold = True
                If i = 2 Then
                    .ColorIndex = 5
                Else
                    .ColorIndex = 3
                End If
            End With
            Selection.NumberFormat = "#,##0 [$€-1]"
        Next i
    Next NumGraph
End Sub

voici le code complet

[Phil Free]

La ligne suivante me gène un peu !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.SeriesCollection(i).Points(ActiveChart.SeriesCollection(i).Points.Count).ApplyDataLabels _
            Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False

normalement "ApplyDataLabels" s'applique à une serie or ici ton code cherche à l'appliquer à un point en particulier qui est le dernier de la série... c'est peut être pas ça le problème...

la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SeriesCollection(i).DataLabels.Delete

supprime bien tous les labels de la serie

et j'ai verifié la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveChart.SeriesCollection(i).Points(ActiveChart.SeriesCollection(i).Points.Count).ApplyDataLabels _
            Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False

recrée tous les labels même si "ApplyDataLabels" n'est appliqué qu' a un point !!!

donc pour moi ".Points(ActiveChart.SeriesCollection(i).Points.Count)" ne sert à rien !!!

la bonne syntaxe devrait être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SeriesCollection(i).ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False

voila essai déjà ça !

Édit : et d’ailleurs si certain type de graphique d'excel accepte qu'un seul point d'une série ai un label, alors il faudrait n'activer que le labelle de ce point ce qui expliquerait l'erreur

Réédite : bon c'est effectivement ce qui est fait dans ton code d'origine et j'ai testé cela fonctionne de mon coté donc je ne comprend toujours pas pour quoi ce la plante chez toi !