Coucou,

J'ai une macro qui réalise un graphique.
Je souhaite ajouter un bouton sur ce graphique me permettant de quitter le graphique pour revenir à la page d'accueil.
J'ai réalisé un code à l'aide de l'enregistreur de macro mais un message d'erreur s'affiche lors de l'éxécution de cette ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ExecuteExcel4Macro _
        "FONT.PROPERTIES(""Calibri"",""Normal"",11,FALSE,FALSE,FALSE,FALSE,FALSE,1,1,,,1,8,FALSE,4,2,0,0)"
Erreur '1004': Vous avez tapé un nombre trop impotant d'arguments pour cette fonction

Voila le code :

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
Dim objChart As Chart, objRange As Range
    Set objRange = Sheets("LiaisonB").Range(Sheets("LiaisonB").Range("A1"), Sheets("LiaisonB").Range("B3"))
    Set objChart = Charts.Add
    objChart.SetSourceData objRange, xlColumns
    objChart.ChartType = xl3DColumn
 
    'choix du style
    objChart.PlotArea.Select
    objChart.ClearToMatchStyle
    objChart.ChartStyle = 42
 
    'choix des informations présentes
    objChart.ApplyLayout (2)
 
 
    'Changement du titre
    objChart.ChartTitle.Select
    objChart.ChartTitle.Text = "TotalDevis"
 
    'suppression de la légende
    objChart.Legend.Select
    Selection.Delete
 
    'Création du bouton
    ActiveSheet.Buttons.Add(599100, 3940142.25, 686432.25, 685935.75).Select
    Selection.OnAction = "ret"
    Sheets("Accueil").Select
    Range("G4").Select
    Sheets("Graph1").Select
    ActiveChart.Shapes("Button 1").Select
    Selection.Characters.Text = "Retour"
    ExecuteExcel4Macro _
        "FONT.PROPERTIES(""Calibri"",""Normal"",11,FALSE,FALSE,FALSE,FALSE,FALSE,1,1,,,1,8,FALSE,4,2,0,0)"
    ActiveSheet.ChartObjects("Graphique 1").Activate
Si quelqu'un a une idée d'où vient mon erreur et comment la corriger j'en serais ravie