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

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    décembre 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : décembre 2018
    Messages : 4
    Points : 5
    Points
    5

    Par défaut cocher/décocher l'affichage des courbes

    Bonjour à tous,

    navré, je suis sûr que le problème a déjà été réglé mais j'ai un problème avec une macro pour créer une nouvelle courbe dans un graphique ...

    Si toutes les courbes du graphiques sont activées/cochées dans "sélection de données", tout va bien; par contre si d'anciennes courbes sont décochées (masquées), rien ne va plus, la macro ne sait pas lire la "réelle dernière" courbe.
    comment trouver le numéro de l'ActiveChart.SeriesCollection.NewSeries ?? j'imagine que c'est mon compteur iimp qui déconne....

    ou bien... y aurait il un moyen de provisoirement réactiver toutes les courbes ? et éventuellement n'en afficher que les X premières et Y dernières ?

    Je vous remercie par avance de toute aide possible


    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
          Worksheets("Graphs").Activate
            For i = 1 To 4
                Worksheets("Graphs").Activate
               ActiveSheet.ChartObjects(i).Activate
               ActiveChart.SeriesCollection.NewSeries
               iimp = ActiveChart.SeriesCollection.Count
               If i = 1 Then
                   ActiveChart.FullSeriesCollection(iimp).XValues = "='Données'!$AH$" & Nblignes - a + 8 & ":$AH$" & Nblignes - 8
                   ActiveChart.FullSeriesCollection(iimp).Values = "='Données'!$AF$" & Nblignes - a + 8 & ":$AF$" & Nblignes - 8
                  ActiveChart.FullSeriesCollection(iimp).Name = "='Données'!$B$" & Nblignes - a + 4 & ":$M$" & Nblignes - a + 4
                  ActiveChart.FullSeriesCollection(iimp).Format.Fill.Visible = msoFalse
                  ActiveChart.FullSeriesCollection(iimp).MarkerStyle = 9
                   ActiveChart.FullSeriesCollection(iimp).MarkerSize = 7
                   ActiveChart.FullSeriesCollection(iimp).Format.Line.ForeColor.RGB = Sheets("Infos").Range("G1").Interior.Color
    
                   ElseIf i = 2 Then ....... bla bla bla

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    décembre 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : décembre 2018
    Messages : 4
    Points : 5
    Points
    5

    Par défaut

    je suis vraiment stupide .... j'appelle le bon objet après mais pas dans le compteur iimp
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    iimp = ActiveChart.FullSeriesCollection.Count
    désolé pour le dérangement

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

Discussions similaires

  1. Probleme d'affichage des courbes, matplotlib.
    Par Stas_ dans le forum Calcul scientifique
    Réponses: 1
    Dernier message: 20/09/2016, 00h09
  2. [Débutant] affichage des courbes en c#
    Par hatemk dans le forum C#
    Réponses: 4
    Dernier message: 31/03/2012, 13h34
  3. Affichage des courbes
    Par naim2009 dans le forum Interfaces Graphiques
    Réponses: 6
    Dernier message: 04/07/2009, 01h15
  4. Accelerer l'affichage des courbes en VB6.
    Par maritime dans le forum VB 6 et antérieur
    Réponses: 50
    Dernier message: 28/04/2007, 11h41
  5. Réponses: 10
    Dernier message: 13/02/2006, 16h29

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