Discussion :

[Xerodas]

Bonjour à tous,

Voilà, je débute en VBA et je cherche à faire une macro qui automatise la création de graphiques pour mes taux de service. Le code fonctionnait très bien hier, mais ce matin à ma grande supprise il ne fonctionne plus et l'erreur d’exécution 1004 apparait "Erreur définie par l'application ou par l'objet"

Voici la macro en question :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub test_graph()
 
Dim ligne As Long
 
ligne = 5
 
While Sheets("Taux de service Mensuel 2").Range("B" & ligne).Value <> ""
    Union(Range("C4:N4"), Range(Cells(ligne, 3), Cells(ligne, 14))).Select
    Sheets(5).Shapes.AddChart.Select
    activeChart.ChartType = xlColumnClustered
    activeChart.SeriesCollection(1).Select
    activeChart.SeriesCollection(1).ChartType = xlLine
    activeChart.SeriesCollection(1).Name = "='Taux de service Mensuel 2'!$B$4"
    activeChart.SeriesCollection(2).Name = "=""Taux de service"""
    activeChart.SeriesCollection(2).XValues = _
        "='Taux de service Mensuel 2'!$C$3:$N$3"
    activeChart.SetElement (msoElementChartTitleAboveChart)
    activeChart.ChartTitle.Text = Cells(ligne, 2)
    Selection.Format.TextFrame2.TextRange.Characters.Text = Cells(ligne, 2)
    With Selection.Format.TextFrame2.TextRange.Characters(1, 1).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 1).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 18
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With
 
  strName = Replace(activeChart.Name, ActiveSheet.Name & " ", "")
    With ActiveSheet.Shapes(strName)
    .Left = 3
    .Top = 1000 + 225 * ligne
  End With
 
 
'For Each Legraph In ActiveSheet.ChartObjects
   ' Legraph.Select
  '  activeChart.HasAxis(xlValue) = True
   ' activeChart.Axes(xlValue).Select
   ' activeChart.Axes(xlValue).MaximumScale = 1
'Next
 
 
    ligne = ligne + 1
    DoEvents
 
Wend
End Sub

Merci par avance.

[Menhir]

Le code fonctionnait très bien hier, mais ce matin à ma grande supprise il ne fonctionne plus

Que s'est-il passé entre "hier" et "ce matin" ?
La réponse "rien" serait peu crédible.

l'erreur d’exécution 1004 apparait "Erreur définie par l'application ou par l'objet"

Quelle ligne de code est signalée par le débugueur comme source de l'erreur ?

[Xerodas]

Et bien rien du tout le fichier est bien protégé, je suis le seul à pouvoir l'utiliser. Ce matin en arrivant je relance la macro et l'erreur apparait...

Le débogage cible cette ligne

Code :

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

Sheets(5).Shapes.AddChart.Select

J'ai essayé d'enlever le select puisqu'on à déjà le Addchart mais rien n'y fait.

[Menhir]

Est-ce qu'il y a bien 5 onglets dans ton classeur ?
Est-ce que c'est bien une feuille de calcul et non un graphique ?
Es-tu sûr que c'est le bon classeur qui est activé ?

Essaye de mettre juste avant cette ligne :

Code :

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

1
2
Debug.Print Sheets(5).Name
Debug.Print Sheets(5).Parent.Name

et regarde ce que ça renvoie dans la fenêtre d'exécution pour vérifier sur quoi tape Sheets(5).

[Xerodas]

Est-ce qu'il y a bien 5 onglets dans ton classeur ?

Oui, 7 au total

Est-ce que c'est bien une feuille de calcul et non un graphique ?

Oui s'en est une

Es-tu sûr que c'est le bon classeur qui est activé ?

Comment ça ?

Essaye de mettre juste avant cette ligne :

Code :

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

1
2
Debug.Print Sheets(5).Name
Debug.Print Sheets(5).Parent.Name

et regarde ce que ça renvoie dans la fenêtre d'exécution pour vérifier sur quoi tape Sheets(5).

J'ai essayé, ça bloque désormais sur cette ligne avec erreur 91 "variable objet ou variable de bloc with non définie"

Code :

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

activeChart.ChartType = xlColumnClustered

Edit : ça déboge encore la ligne

Code :

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

 Sheets(5).Shapes.AddChart.Select

[Solown]

Salut Xerodas,

J'ai exactement le même problème que toi, mais sur un graphe généré via excel et sauvegardé en vba. Mon erreur arrive à la ligne de sauvegarde du fichier.

Je pense qu'il doit y avoir un problème avec l'enregistrement ou la sélection de ton graphe. Effectivement, nous ne sommes plus sur des manipulations de cellules mais plutôt sur un élément inséré, je ne sais pas comment VBA prend en compte le graphe ni comment il doit le sauvegarder.

À creuser sur ce point là, néanmoins je ne suis pas assez bon en VBA pour t'en dire plus

[Pierre Fauconnier]

Salut.

C'est peut-être un problème de feuille active qui n'est pas la bonne.

Ta ligne 8 utilise Union(Range("C4:N4"), Range(Cells(ligne, 3), Cells(ligne, 14))).Select de la feuille active.

Cette feuille est-elle la bonne?

Travailler avec des Select et l'objet Selection n'est pas toujours une bonne idée. L'objet Selection, notamment, pointe vers ce qui est... sélectionné. Ca peut être une image, un graphique, une plage,... Tu dois donc être absolument certain que cet objet est du type que tu souhaites manipuler, sinon ça plante.

[Xerodas]

Je pense oui, à vrai dire, le code se met en débogage mais ça me fait tout de même le premier graphique juste. Je pense donc que mon code en lui même est juste (surement à améliorer mais juste). Je pense que ça vient d'autre chose mais quoi ...