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 :

Modifier un graphique existant


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    61
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 61
    Points : 34
    Points
    34
    Par défaut Modifier un graphique existant
    Bonjour je voudrais modifier automatiquement un graphique pour les entres max et min de l'axe X . J'ai essaye ca:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    charts("graph").select
    With .Axes(xlCategory)
                .ReversePlotOrder = True
                .TickLabelSpacingisauto= True
                .TickMarkSpacingisauto = true
                .AxisBetweenCategories = True
                .TickLabels.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
                .maximumvalue = Date2
                .minimumvalue =  Date1
     end with
    merci
    bonne journee

  2. #2
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Essaye avec ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
       With ActiveChart.Axes(xlValue)
            .MinimumScale = ValeurMini
            .MaximumScale = ValeurMaxi
        End With

  3. #3
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    61
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 61
    Points : 34
    Points
    34
    Par défaut
    merci pour la reponse
    comment fait on pour apliquer ce code a un graphique en particulier
    la commande suivande est suffisante

    merci

  4. #4
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Bonne question.
    En fait je viens d'essayer et je n'arrive pas à sélectionner le graphique par son nom (ni par autre chose d'ailleur )
    Je n'arrive à l'utiliser qu'avec "ActiveChart"
    Quelqu'un de plus qualifié peut-il nous guider. Je suis intéressé également

  5. #5
    Expert éminent
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Points : 7 964
    Points
    7 964
    Par défaut
    Bonjour,

    Je viens de faire ce test et cela fonctionne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    With Charts("Graph1").Axes(xlValue)
        .MaximumScale = Sheets("Feuil1").Range("A18").Value
        .MinimumScale = Sheets("Feuil1").Range("A3").Value
    End With

  6. #6
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Bonjour,

    Quand j'essaye, ça fonctionne si le graphique est sur une feuille séparée nommée Graph1 mais pas s'il est incorporé en tant qu'objet sur une feuille de calcul type Feuil2

    Tu as fait ton test dans quelle condition fing ?

  7. #7
    Expert éminent
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Points : 7 964
    Points
    7 964
    Par défaut
    Oui en effet, il s'agit d'un graphique sur une feuille séparée, j'ai regardé vite fait pour un graphique inséré comme object sur une feuille mais je n'ai pas encore trouvé la bonne syntaxe.

  8. #8
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    61
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 61
    Points : 34
    Points
    34
    Par défaut
    Ok, pour moi c'est resolu mon graphique etant sur une feuille a part entiere.
    Je laisse donc cette discussion ouverte afin que l'interessante question soulevee par J.Michel trouve une reponse.
    Merci pour vos reponses

  9. #9
    Membre averti Avatar de J.Michel
    Inscrit en
    Septembre 2007
    Messages
    279
    Détails du profil
    Informations personnelles :
    Âge : 61

    Informations forums :
    Inscription : Septembre 2007
    Messages : 279
    Points : 323
    Points
    323
    Par défaut
    Citation Envoyé par fring Voir le message
    Oui en effet, il s'agit d'un graphique sur une feuille séparée, j'ai regardé vite fait pour un graphique inséré comme object sur une feuille mais je n'ai pas encore trouvé la bonne syntaxe.
    Fring, cette question n'est pas vraiment un pb.
    je te propose de cloturer ce topic
    Si toutefois tu trouve la bonne syntaxe tu nous le diras

  10. #10
    Expert éminent
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Points : 7 964
    Points
    7 964
    Par défaut
    Ca m'était sorti de la tête.

    J'ai encore fait quelques essais ce matin et rien trouvé

  11. #11
    Nouveau membre du Club
    Inscrit en
    Janvier 2006
    Messages
    39
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 39
    Points : 29
    Points
    29
    Par défaut
    Moi ca m'intéresse donc si il y a des gens qui ont trouvé!!

    Cordialement

Discussions similaires

  1. [iText] modifier un PDF existant
    Par snetechen dans le forum Documents
    Réponses: 2
    Dernier message: 18/07/2013, 12h25
  2. Modifier un graphique Excel depuis Word
    Par hsoulard dans le forum VBA Word
    Réponses: 3
    Dernier message: 21/09/2007, 21h44
  3. y=kx sur un graphique existant
    Par lolothom dans le forum Access
    Réponses: 2
    Dernier message: 04/06/2007, 23h39
  4. [VBA-E]Modifier un graphique selon un nom de plage
    Par osito57 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 17/03/2006, 16h14
  5. Comment modifier un Metafile existant ?
    Par monmien dans le forum Langage
    Réponses: 4
    Dernier message: 09/09/2004, 11h59

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