Discussion :

[zapan09]

Bonjour à tous,

Ceci est ma première discussion sur le forum, je m'excuse par avance si je manque de connaissance sur les macros et les codes, mais j'aurais vraiment besoin de m'en servir.

Je m'explique, je suis étudiant et en stage, je travaille sur une étude de marché donc j'ai créé plusieurs bases de données sur excel qui recensent des données par pays, chaque feuille correspond à un pays et chaque classeur à une zone géographique.

Je souhaiterais maintenant réaliser des graphiques de ces données par pays, seulement mon étude concerne tous les pays du monde et il y a beaucoup trop de feuille.
J'ai donc découvert ce matin les macros, qui semble être une solution pour simplifier ma tâche.

Cependant je n'arrive pas à créer un code qui répète la création de mon graphique sur plusieurs feuilles.

- Je précise que chaque feuille porte le nom du pays relatif (et si possible j'aimerais ne pas être obligé de devoir remplir le nom de chaque pays dans le code ?)
- Les données sont rangées exactement à la même place sur chaque feuille
- Je ne peux pas trop vous fournir de code pour le moment (je ne suis pas encore fixé sur les tableaux choisis) mais il comportera "insertion, création graphique, modification du format et des couleurs + ajout d'un titre" ce sera environ la tâche demandée..

- Je précise également que j'ai déjà effectué de nombreuses recherches mais mes connaissances en code sont bien trop faibles pour comprendre les explications trouvées
- J'ai normalement pour habitude d'apprendre par moi même, mais je n'ai pas le temps de me pencher sur la manipulation des codes pour le moment, mon étude doit être présenté la semaine prochaine (et je dois encore me faire la main sur Illustrator pour la présentation....)

Je vous remercie par avance et vous souhaites une bonne journée !

Bonne journée

[jerome.vaussenat]

Salut,

Pour la création de graph pour chaque feuille de ton classeur, il existe un type de boucle "for each .... next"

Le but est de dire en VBA, pour chaque feuille de mon classeur fait une sélection, la création /personnalisation d'un graph.

Pour en savoir plus, tu as un super tuto avec exemple là :
http://silkyroad.developpez.com/vba/boucles/#LII

[zapan09]

Salut,

Merci pour ta réponse, j'ai lu le tuto ainsi que d'autres, je commence à comprendre un peu le principe...

J'ai donc la possibilité de créer une boucle qui va appliquer mon code à chaque feuille, c'est ce que je voulais, si j'ai bien compris ce sera à l'aide de cette formule :

Code :

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

For Each Ws In Wb.Worksheets

Par contre dans le tuto j'ai du mal à comprendre ces formules suivantes :

Code :

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

1
2
3
4
5
Dim Wb As Workbook
    'Définit une variable qui va représenter une feuille de calcul
    Dim Ws As Worksheet
    'Définit une variable qui va représenter une cellule
    Dim Cell As Range

J'ai compris que c'était l'objet sur lequel le code doit boucler... donc si je réalise mon programme avec un seul classeur mais plusieurs feuilles j'ai besoin de seulement cette ligne :

Code :

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

Dim Ws As Worksheet

?

Ensuite de quoi, je vais devoir demander à créer un graphique avec environ les 3 premières lignes sur 10 colonne (A1:J3): si j'enregistre ma macro ça me donne ça :

Code :

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

1
2
3
4
ActiveSheet.Shapes.AddChart2(297, xlColumnStacked).Select
    ActiveChart.SetSourceData Source:=Range("Argentine!$A$1:$J$3")
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartStyle = 299

Je me rend bien compte que la source de recherche des données n'est pas bonne, mais je vois pas comment faire pour l'instant.

Je me demande également si je peux résoudre mon problème à l'aide de cette formule :

Code :

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

For Each Cell In Ws.Range("A1:J10")

Pour que le tableau soit créé à chaque début de feuille...
Bref, j'ai mis en pièce jointe un classeur avec quelques données pour illustrer ce que je cherche à faire, créer le même tableau (si possible avec quelques modifs, mais dans un premier temps, le même tableau ) pour chaque feuille..

Une fois de plus, je vous remercie pour votre aide,

[jerome.vaussenat]

salut,

voici le code, j'ai testé sur XL 2010 et pour moi çà marhe.

J'ai mis les commentaires pour que tu puisses modifier si besoin. Bonne utilisation.

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
Sub crée_graph()
'
'
'Définit une variable qui va représenter une tout à tour les feuilles du classeur
Dim Ws As Worksheet
 
'boucle qui parcourt le classeur actif
For Each Ws In ThisWorkbook.Worksheets
    'on selectionne la feuille à traiter
    Sheets(Ws.Name).Select
    'on commence la création de l'objet graphique
    ActiveSheet.Shapes.AddChart(297, xlColumnStacked).Select
    'on défonit la source du graph en utilisant le nom de la feuille active
    ActiveChart.SetSourceData Source:=Range(Ws.Name & "!$A$1:$J$3")
    ActiveChart.ClearToMatchStyle
Next
End Sub