[Excel] Macro création de graphique Fermé

Question

Bonjour,

Je vous remercie d'avoir commencé à lire mon message.

Alors : j'ai un fichier Excel plein de feuilles (une feuille par mois : "jan" "fév" "mar" "avr"...) et chaque fois contient un tableau tout bête avec 2 lignes (X et Y) et 10 colonnes de données.

Le problème c'est que je souhaiterais créer une MACRO dans une nouvelle feuille "RAPPORT" qui créerait AUTANT de graphique qu'il y a de feuille mensuelle...

Pensez-vous que c'est possible?

m@rina · Accepted Answer

Bonjour,

Oui c'est tout à fait possible. Un petit exemple minimaliste :

Sub graphs()

Dim feuille As Worksheet
Dim plage As Range
'on déclare un tableau avec tous les noms des feuilles
Set feuilles = Sheets(Array("janv", "fev", "mars", "avril")) 

For Each feuille In feuilles
'on détermine la plage des données source
Set plage = feuille.Range("A1:J2")
Charts.Add
    With ActiveChart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=plage
    End With
Next
End Sub

Après il faut que tu peaufines en fonction du graph souhaités, légendes, couleurs, type de graph, etc, etc.

m@rina