Discussion :

[marcuswillbe]

Bonjour à vous tous.
J'ai trouvé sur le web un code de JB pour un graphique empilé merveilleux.
Par contre, il est limité à trois colonnes et 4 lignes. J'aimerais rendre ce
code dynamique peut importe le nombre de colonne ou de ligne que j'ai. Aussi, il fonctionne uniquement que sur la première feuille et ne fait uniquement qu'un seul graphique.
J'ai alors besoin de votre aide.
Voici un document exemple. si vous exécuter la macro commentaire (par
contre, je n'ai pas fait de bouton), vous verrez le graphique indiqué les
pourcentages.
Voici le document.
http://cjoint.com/?clvgjlhe70

Merci de votre aide
marc

Voici le code

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
Sub commentaire()
  On Error Resume Next
  n = 3 ' nombre de mois
  For col = 1 To n
    Sheets(1).ChartObjects(1).Chart.SeriesCollection(col).ApplyDataLabels 
Type:=xlDataLabelsShowLabel
  Next
  On Error GoTo 0
  For i = 1 To 
Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Points.Count
    tot = 0
    For col = 1 To n
      tot = tot + 
Application.Index(Sheets(1).ChartObjects(1).Chart.SeriesCollection(col).Values, 
i)
    Next col
    For col = 1 To n
      Sheets(1).ChartObjects(1).Chart.SeriesCollection(col).Points(i).DataLabel.Font.Size 
= 6
      y = 
Application.Index(Sheets(1).ChartObjects(1).Chart.SeriesCollection(col).Values, 
i) / tot
      Sheets(1).ChartObjects(1).Chart.SeriesCollection(col).Points(i).DataLabel.Text 
= Format(y, "0.00%")
    Next col
  Next i
End Sub

[Fvandermeulen]

Bonjour,
Tu peux, suivant ton exemple, utiliser une variable qui va 'compter' tes lignes et colonnes pour les mettre en variable.
Voici une manière (il y en d'autres):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
NbLignes = Application.subtotal(3,range("a:a"))
NbColonnes = application.subtotal(3,range("1:1"))

Tu n'as plus qu'a utiliser ces variables pour définir ta source de données.

Bonne continuation,

[marcuswillbe]

Bonjour Fvandermeulen
merci pour ton aide.
Marc