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 :

Macro et données graph chart


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    593
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Décembre 2005
    Messages : 593
    Par défaut Macro et données graph chart
    Bonjour à tous,

    J'ai actuellement une macro qui met à jour un tableau. ( je clique sur un bouton et il me met à jour les données pour chaque mois)
    Ensuite, je reprends les données du tableau et je les mets en graphique.

    Je voudrais en fait que ma macro mette à jours également mon graphique.

    Pouvez-vous m'aider ?

    Voici ma macro :

    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
    35
    36
    37
    38
    39
    40
    41
    42
    Sub Button_click()
     
    Dim Hidden As Integer
    Dim Modification As Integer
    Dim Ligne As Long, Mois
     
    Hidden = 1 ' 1 = Mode normal, on cache les mois passés. 0 = mode de test, on ne cache pas.
    Modification = 1 '1 = Mode normal, on application les modifications. 0 = mode de test, on n'applique pas les modifications.
    Mois = Array("January", "February", "March", "April", "May", "June", "July", "August", _
            "September", "October", "November", "December", "January")
     
    If Modification = 1 Then
     
        Sheets("Close").Select
        Ligne = Application.Match("TOTAL", [B:B], 0) 'On recupere la cellule de la derniere ligne TOTAL
     
        If Hidden = 1 Then
        Cells(Ligne - 12, 2).EntireRow.Hidden = True ' On cache(hide) la ligne tout au dessus
        End If
     
        Cells(Ligne, 2).Resize(, 24).Insert xlShiftDown ' On Insert une ligne avant la ligne total sur 23 position
     
        'On copie les formules
        Cells(Ligne - 1, 1).Resize(, 24).Copy Cells(Ligne, 1)
        With Application
            Cells(Ligne, 2) = .Index(Mois, .Match(Cells(Ligne - 1, 2), Mois, 0) + 1)
        End With
     
        Cells(Ligne + 1, 3).Formula = "=SUM(C" & Ligne - 11 & ":C" & Ligne & ")"
        Cells(Ligne + 1, 5).Formula = "=SUM(E" & Ligne - 11 & ":E" & Ligne & ")"
        Cells(Ligne + 1, 7).Formula = "=SUM(G" & Ligne - 11 & ":G" & Ligne & ")"
        Cells(Ligne + 1, 9).Formula = "=SUM(I" & Ligne - 11 & ":I" & Ligne & ")"
        Cells(Ligne + 1, 11).Formula = "=SUM(K" & Ligne - 11 & ":K" & Ligne & ")"
        Cells(Ligne + 1, 13).Formula = "=SUM(M" & Ligne - 11 & ":M" & Ligne & ")"
        Cells(Ligne + 1, 15).Formula = "=SUM(O" & Ligne - 11 & ":O" & Ligne & ")"
        Cells(Ligne + 1, 17).Formula = "=SUM(Q" & Ligne - 11 & ":Q" & Ligne & ")"
        Cells(Ligne + 1, 19).Formula = "=SUM(S" & Ligne - 11 & ":S" & Ligne & ")"
        Cells(Ligne + 1, 21).Formula = "=SUM(U" & Ligne - 11 & ":U" & Ligne & ")"
     
        Cells(Ligne + 1, 24).Formula = "=X" & Ligne & ""
     
    End If

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    Je ne vois rien concernant le graphique en question, mais en principe, il n'y aurait que la plage de données à modifier lorsque tu mets à jour ces données.
    En utilisant l'enregistreur de macro, tu auras pas mal tout ce qu'il te faut, il me semble...

Discussions similaires

  1. [XL-2010] Macro création de graphe suivant les données rentrées
    Par Val14c dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 25/10/2013, 09h50
  2. Réponses: 2
    Dernier message: 26/02/2009, 10h52
  3. [OpenOffice][Tableur] [macro] comparer donnée fichier extern
    Par luxcibel dans le forum OpenOffice & LibreOffice
    Réponses: 0
    Dernier message: 06/10/2008, 23h24
  4. Macro Copier données d'une feuille vers une feuille cible
    Par La Zélie dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/09/2008, 10h01
  5. une macro "enregistrer donnée en cours"
    Par copainvince dans le forum Access
    Réponses: 14
    Dernier message: 19/01/2007, 16h54

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