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 :

[VBA-E] Création de graphique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    795
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 795
    Par défaut
    comment expliquer ?

    sur la ligne 2, j'ai le nom de plusieurs opérations;
    De la case 2 à 17 mes opérations prennent 2 cases (fusionnées) et le nom est présent uniquement sur la case pair (sur la case impair il n'y a rien)
    en dessous (sur ligne 3) ces opérations ont besoins de deux nombres correspondants au traités et aux recus

    puis à partir de la case 18 les opération ne sont plus que sur une case


    je vais tenté d'être plus clair grace à cette image
    http://img73.imageshack.us/my.php?im...ebitmap3ue.jpg


    De plus j'ai fais quelque rectification notament pour le probleme de la case 17, ligne 2 et aussi pour avoir ma derniere opération qui sur la case 22, ligne 2


    ca donne ca

    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
    Sub Macro3()
        'recupération de la valeur de NbColonne
        Sheets("Feuil2").Visible = True
        Sheets("Feuil2").Select
        NbColonne = Range("A1").Value
        Sheets("Feuil2").Visible = False
        Sheets("Feuil1").Select
        MsgBox (NbColonne)
        'Ajout du Graphique
        Charts.Add
        ActiveChart.ChartType = xlLineStacked
        ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy:=xlColumn
     
        'Nom des différentes courbes du graphique
        For i = 1 To NbColonne
            If i <= NbColonne - 6 Then
                If i Mod 2 = 0 Then
                    With ActiveChart.SeriesCollection(i)
                      .Name = Worksheets(1).Cells(2, i).Value & "(Traité)"
                    End With
                ElseIf i Mod 2 <> 0 Then
                    With ActiveChart.SeriesCollection(i)
                        .Name = Worksheets(1).Cells(2, i + 1).Value & "(Reçu)"
                    End With
                End If
            ElseIf i >= NbColonne - 5 Then
                MsgBox (i)
                    With ActiveChart.SeriesCollection(i)
                      .Name = Worksheets(1).Cells(2, i + 1).Value
                    End With
            End If
        Next i
    End Sub

    toujours pareil ca me fais bien ce que je veux mais avec des Series non nommé en plus

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    795
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 795
    Par défaut
    un coup de main?

Discussions similaires

  1. [VBA-E] Création d'un graphique
    Par Yolak dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 14/03/2008, 08h39
  2. [VBA Excel] Création d'un graphique
    Par Nyck0las dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 10/12/2007, 17h37
  3. VBA-E Création d'un graphique personnalisé
    Par shezam dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 18/10/2007, 20h02
  4. [VBA-E] Création Graphique dans une boucle
    Par Currahee dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/06/2006, 10h32
  5. VBA Excel - Création de graphique
    Par sat478 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/01/2006, 16h11

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