Discussion :

[MGABIN]

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 !

[helas]

Bonjour,
s'inspirer de ces quelques lignes

Code :

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

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

[MGABIN]

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

[MGABIN]

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

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
 
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