Excel : graph sur 12 mois glissant

Excel

tuany Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
G.David Messages postés 769 Date d'inscription Statut Membre Dernière intervention - 21 mars 2009 à 22:47

je doit crée un graph sur une periode de 12 mois glissant, cad on est en mars donc les données doivent aller d'avril 2004 a mars 2005 et le mois prochain de mai 2004 a avril 2005 etc...
aidez moi :)
merci!!!

Afficher la suite

A voir également:

Tableau glissant excel
Tableau word - Guide
Trier un tableau excel - Guide
Imprimer tableau excel sur une page - Guide
Liste déroulante excel - Guide
Tableau ascii - Guide

3 réponses

Réponse 1 / 3

Armojax Messages postés 1860 Date d'inscription Statut Membre Dernière intervention 1 528

Hello tuany,

Juste une question : est-ce que tes mois glissent vraiment (1er exemple ci-dessous : on ajoute une nouvelle colonne chaque mois), ou tournes-tu toujours sur les mêmes 12 mois (mars 2005 ré-occupe la place de mars 2004) ?

   Mois  02  03  04  05  06  07  08  09  10  11  12 |01  02  03 
Données   5   6   7   2   5   6   1   3   5   7   2 | 6   3   1
                 <----------------------------------|--------->
                                               2004 | 2005
Ou bien

   Mois  01  02  03  04  05  06  07  08  09  10  11  12 
Données   6   3   1   7   2   5   6   1   3   5   7   2
         <-------->  <-------------------------------->
          2005                     2004

legege31 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Je suis confronté au meme probleme mais avec la configuration numero 2

Mois 01 02 03 04 05 06 07 08 09 10 11 12
Données 6 3 1 7 2 5 6 1 3 5 7 2
<--------------------------------><---------------------->
2008 2007

D'avance merci
legege31

G.David Messages postés 769 Date d'inscription Statut Membre Dernière intervention 203 > legege31 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Tu peut regarder l'aide avec la fonction " mois.decaler( fin.mois(aujourdhui())+1 ;-1)
ce qui devrait te donner la date du premier du mois en cours .à placer en douzieme colonne
en onzieme colonne mois.decaler(cellule colonne 12;-1) à tirer vers la gauche
en dessous un recherchev(cellule au dessus;tableau;2,faux) a tirer sous toutes ta ligne de mois
pour ton tableau
dans insertion nom
tableau = decaler (coin sup gauche;0;0;nbval(colonne gauche);2)
ce qui devrait rendre le tableau dynamique
je ne peut pas être plus précis je travaille sans excel sous la main

Réponse 2 / 3

Armojax Messages postés 1860 Date d'inscription Statut Membre Dernière intervention 1 528

Hello tuany,

Ton PB est-il toujours d'actualité ? Au cas où, voici quelques éléments. Faute de réponse, je suppose que tes données glissent vraiment, comme dans le cas 1 ci-dessus.
Dans mon exemple, je suppose que les noms (ou numéros) de mois qui servent d'étiquettes sur l'axe horizontal sont en ligne 1, et les données correspondantes en ligne 2.
Au changement de mois, le graphique doit utiliser de nouvelles colonnes pour glisser. Dans les macros ci-dessous, ColDeb est la nouvelle colonne de début, ColFin la nouvelle colonne de fin. Tu dois être capable de les calculer par la macro de lancement.
Je montre 2 cas :
- le graphique se trouve dans une feuille graphique différente de la feuille de données (macro Glisse_1)
- le graphique se trouve dans la feuille de calcul elle-même (macro Glisse_2).
(Dans la macro de lancement, appelle la bonne macro).

Adapte à ton cas personnel.

Sub Lancement()
    Dim ColDeb As Integer, ColFin As Integer
    ColDeb = 2                  ' nouvelle colonne de début
    ColFin = 13                 ' nouvelle colonne de fin
    Call Glisse(ColDeb, ColFin)
End Sub
Sub Glisse_1(ColDeb, ColFin)    ' graphique dans feuille graphique séparée
    With Charts("Graph1")
        .SeriesCollection(1).XValues = "=Feuil1!R1C" & ColDeb & ":R1C" & ColFin
        .SeriesCollection(1).Values = "=Feuil1!R2C" & ColDeb & ":R2C" & ColFin
    End With
End Sub
Sub Glisse_2(ColDeb, ColFin)    ' graphique dans même feuille de calcul
    Sheets("Feuil1").Activate
    ActiveSheet.ChartObjects("Graphique 1").Activate
    With ActiveChart
        .SeriesCollection(1).XValues = "=Feuil1!R1C" & ColDeb & ":R1C" & ColFin
        .SeriesCollection(1).Values = "=Feuil1!R2C" & ColDeb & ":R2C" & ColFin
    End With
End Sub

Discussions similaires

publipostage sans Word

[Excel] mise à jour automatique des liaisons???

[Office] Où vont les fichiers temporaires?

somme dans excel toujours =0

Pourquoi mes flèches de clavier ne fonctionnent pas sur Excel ?

Lier 2 cellules sous Excel

Votre réponse

Discussions similaires