IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Création Commandbutton dans graphique [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2012
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Octobre 2012
    Messages : 116
    Par défaut Création Commandbutton dans graphique
    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

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Je ne sais pas ce que tu veux faire avec cette macro Excel4 qui ne puisse être fait avec VBA, mais il y a effectivement trop de paramètres. Voila la syntaxe :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    FONT.PROPERTIES(font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count)

  3. #3
    Membre confirmé
    Femme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2012
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Octobre 2012
    Messages : 116
    Par défaut
    En fait je crois que mon code ne dois pas corresponde à ce que je souhaite car aucun bouton n'apparait :/

    Je souhaite ajouter un bouton sur mon graphique me permettant de revenir à la page précédente

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
        Set Btn = ActiveSheet.Buttons.Add(72.5, 72, 72, 72.25)
        Btn.OnAction = "test"

  5. #5
    Membre confirmé
    Femme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2012
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Octobre 2012
    Messages : 116
    Par défaut
    Merci beaucoup ça fonctionne

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 10
    Dernier message: 19/02/2014, 14h19
  2. [AC-2007] Création d'un graphique dans un Etat
    Par Crachover dans le forum IHM
    Réponses: 4
    Dernier message: 30/07/2010, 17h32
  3. Réponses: 1
    Dernier message: 10/10/2007, 10h42
  4. Aide création tableau dans interface graphique
    Par craps78 dans le forum GTK+ avec C & C++
    Réponses: 1
    Dernier message: 03/04/2007, 17h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo