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 :

Recherche de valeur dans un graphique


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut Recherche de valeur dans un graphique
    Bonjour amis du forum

    Dans une appli, je créé un graphique. J'indique par Macro les étiquettes de données avec le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection(1).Points(32).ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
    mais je n'arrive pas à ne sélectionner que le ou les points supérieurs à un certain pourcentage. Lorsque je pointe sur une partie du graphique, je vois bien ce pourcentage, mais je ne sais comment le faire ressortir par macro. Ais-je été assez clair ?

    Quelqu'un saurait-il m'aider dans ma recherche ?

    Merci d'avance

  2. #2
    Membre éclairé Avatar de babybell
    Homme Profil pro
    Retraité Bancaire
    Inscrit en
    Septembre 2008
    Messages
    495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Retraité Bancaire
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Septembre 2008
    Messages : 495
    Par défaut
    Ca y est, j'ai trouvé. Au cas où cela intéresserait quelqu'un, voici un code pour coloriser de plusieurs couleurs un graph suivant des valeurs:
    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
    Sub colorier()
     
    Dim nbval, a, i, col As Integer
     
    ActiveSheet.ChartObjects("Graphique 1").Activate
     
    nbval = ActiveSheet.UsedRange.Rows.Count
     
    For a = 1 To nbval
    val_barre = Range("F" & a).Value
     
    Debug.Print val_barre
     
    If val_barre < 5 Then col = 3
    If val_barre > 5 And val_barre < 10 Then col = 4
    If val_barre > 10 Then col = 17
     
    ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col
     
    Next
     
    End Sub

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

Discussions similaires

  1. Recherche de valeur dans une feuille et affichage dans une autre
    Par Zebulon777 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 15/05/2007, 09h40
  2. [XI] Calcul de valeurs dans un graphique avec une periode de temps
    Par campia dans le forum SAP Crystal Reports
    Réponses: 1
    Dernier message: 23/04/2007, 09h17
  3. Tiles et recherche de valeurs dans fichier properties
    Par coyote999 dans le forum Struts 1
    Réponses: 2
    Dernier message: 05/04/2007, 11h52
  4. Rechercher une valeur dans un tableau
    Par pafi76 dans le forum Access
    Réponses: 2
    Dernier message: 29/06/2006, 14h23
  5. recherche de valeurs dans un tableur excel
    Par maxiut dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 16/05/2006, 07h25

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