Macro générique VBA

Bonjour,
J'ai un certain nombre de tableaux dans un certain nombre d'onglet. Je dois réaliser des graphiques pour chaque tableau.
Le but est de réaliser une macro me permettant d'automatiser la création des graphiques pour chaque tableau.

Exemple de tableau

1 547132435
2 46876541
3 23498977
5 9987541269
4 216378777

A 1 61,54%
2 38,46%
3 0,00%
5 0,00%
4 0,00%
B 1 100,00%
2 0,00%
3 0,00%
5 0,00%
4 0,00%
C 1 71,43%
2 19,05%
3 4,76%
5 4,76%
4 0,00%
D 1 0,00%
2 88,89%
3 11,11%
5 0,00%
4 0,00%
E 1 100,00%
2 0,00%
3 0,00%
5 0,00%
4 0,00%
F 1 43,58%
2 31,52%
3 17,90%
5 3,50%
4 3,50%
H 1 33,33%
2 33,33%
3 33,33%
5 0,00%
4 0,00%

Le nombre de lignes dans composant mes tableaux ne sont pas fixes.

Hélas je ne suis pas expert en vba.
J'avais opté pour une solution qui me paraissait simple : utiliser l'enregistreur de macro et le remixer à ma sauce, mais cela n'a pas fonctionné.
I need you :ccool: !

Bonjour,
s'inspirer de ces quelques lignes

Code:

---

1 2 3 4 5 6 7

Set ch = Worksheets(nomFeuille).ChartObjects(sh.ChartObjects.Count).Chart   ch.SetSourceData Source:=Worksheets(nomFeuille).Range(zoneData) ch.SeriesCollection(1).XValues = Worksheets(nomFeuille).Range(zoneLibelle) ch.HasTitle = True ch.ChartTitle.Text = TitreGraphe

---

nomFeuille, zoneData, zoneLibelle et TitreGraphe étant des variables, il suffit de les modifier pour changer de feuille et de données

Bonjour,
Tout d'abord, merci de m'avoir répondu.
Je voudrais savoir ce que représente la variable "zoneLibelle" et avoir un peu d'info sur SeriesCollection(1).XValues.
Merci

C'est bon j'ai fini par y arriver.
Pour créer un secteur 3D :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub Secteur_3D(CDebut As Integer, CFin As Integer, LDebut As Integer, LFin As Integer, Onglet As String, Titre As String, Sheet As String, monfichier As String) Workbooks(monfichier).Sheets(Sheet).Activate Range(Workbooks(monfichier).Sheets(Sheet).Cells(LDebut, CDebut), Workbooks(monfichier).Sheets(Sheet).Cells(LFin, CFin)).Select Charts.Add ActiveChart.ChartType = xl3DPieExploded ActiveChart.SetSourceData Source:=Workbooks(monfichier).Sheets(Sheet).Range(Workbooks(monfichier).Sheets(Sheet).Cells(LDebut, CDebut), Workbooks(monfichier).Sheets(Sheet).Cells(LFin, CFin)), _ PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet, Name:= _ Onglet With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = Titre End With End Sub

---

Cdebut est le numéro de colonne de début du tableau où extraire les données
Cfin est le numéro de colonne de fin du tableau où extraire les données
Ldebut est le numéro de ligne de début du tableau où extraire les données
Lfin est le nuémro de ligne de début du tableau où extraire les données
Sheet est le nom de la feuille où se trouvent mes données à extraire
monfichier est le nom du fichier dans lequel se trouve les feuilles où se trouvent les données à extraire
Onglet est la feuille sur laquelle le graphique va s'ajouter
Titre est le titre du graphique