[XL-2007] Histogramme empilé avec empilages égaux

[assiec]

Bonjour,

Je souhaiterais effectuer un histogramme empilé (100% ou pas peu importe) mais avec les conditions suivantes:

Mes données sont:

- Des dates (abscisses) par exemple du 01/01/2012 au 31/01/2012
- Des numéros (de 1 à 170) que je veux impérativement en étiquettes.

Ces numéros peuvent apparaitrent a une meme date (Ex: le 15/01/2012, le numéro 12, 36, 100...)

Or si je réprésente ceci avec un histogramme empilé, les empilages ne sont pas égaux car ils utilisent les valeurs 12,30,100...

Je souhaiterais que mon rendu final soit une barre au 15/01/2012 avec 3 empilages égaux ayant comme étiquette 12, 36 et 100.

Merci de votre aide.

[Daniel.C]

Bonjour,

J'ai du mal à comprendre; est-ce que tu pourrais détailler ? ou m^me joindre un classeur exemple.

[assiec]

Voici un fichier,

Merci.

[Daniel.C]

Les colonnes B et C ne servent plus que pour les étiquettes.
En D4 : Poste A
En E4 : Poste B
En D5 :

Code :

=SI(B5="";"";1)

A reproduire vers le bas et la droite. Je me sers des données en D4:E8 pour les séries.
J'ai mis ensuite un bouton et j'y ai attaché la macro :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    Dim i As Integer, j As Integer
    With Sheets("Feuil1").ChartObjects("Graphique 1").Chart
        For i = 1 To .SeriesCollection.Count
            With .SeriesCollection(i)
                .ApplyDataLabels
                For j = 1 To .Points.Count
                    .Points(j).DataLabel.Text = Sheets("Feuil1").[A4].Offset(j, i)
                Next j
            End With
        Next i
    End With
End Sub

Cette macro renseigne les étiquettes. Je joins le classeur modifié.

[assiec]

Merci beaucoup c'est tout a fait ca.

Cependant dans mon classeur original, mes données sont "décalées" par rapport au classeur de test envoyé.

Pourriez vous m'expliquer commer ceci fonctionne car j'ai vu un [A4].Offset dans le code et donc je suppose u'il faut le modifier.

Est il possible de ,faire la meme chose si mon graphique est en fait une "sheet" a part entiere?


Merci par avance.

[Daniel.C]

Cependant dans mon classeur original, mes données sont "décalées" par rapport au classeur de test envoyé.

Je ne comprends pas ce que tu veux dire ? est-ce que tu veux parler de l'axe des abscisses ? regarde le classeur joint.

Pourriez vous m'expliquer commer ceci fonctionne car j'ai vu un [A4].Offset dans le code et donc je suppose u'il faut le modifier.

Pourquoi? les séries sont désignées par l'index i et les points dans la série par l'index J. Il n'y a rien à modifier.

[assiec]

En fait je voulais juste dire que mes données commencent en A2 pour les dates, en B2 pour le poste A et en C2 pour le poste B
-> J'ai trouvé la solution.

Cependant, est il possible de ,faire la meme chose si mon graphique est en fait une feuille a part entiere et non dans une feuille (cf classeur joint)?

[Daniel.C]

Voici la macro à utiliser :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    Dim i As Integer, j As Integer
    With Sheets("Graph1")
        For i = 1 To .SeriesCollection.Count
            With .SeriesCollection(i)
                .ApplyDataLabels
                For j = 1 To .Points.Count
                    .Points(j).DataLabel.Text = Sheets("Feuil1").[A4].Offset(j, i)
                Next j
            End With
        Next i
    End With
End Sub

[assiec]

Merci beaucoup pour votre aide cela fonctionne parfaitement.

Cdlt,

[Daniel.C]

Merci du retour. Peux-tu marquer le problème comme résolu ?