Modification d'un code VBA

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:

---

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

---

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:

---

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,

Bonjour Fvandermeulen
merci pour ton aide.
Marc