Discussion :

[NiKoS29]

Bonjour,

Sur une feuille de calcul, j'ai une macro qui génère un grahique à partir d'une plage de cellules donnée.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
'Sélection de la plage du tableau pour le graphique
Set SourceRange = Range([G4].Offset(0, 4), [G4].End(xlDown))
 
'Ajout du tableau
Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SetSourceData Source:=SourceRange, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=Feuil1

Cette macro est identique pour plusieurs feuilles de calcul. Seulement, avec ce code, tous les graphiques apparaissent sur la feuille 1. Or je voudrais que chaque graphique apparaissent sur sa propre feuille (sans avoir à multiplier la macro car le nombre de feuille de calcul peut varier).
J'ai essayé avec un truc du genre "ActiveSheets" dans la rubrique "Name:=" mais ça ne marche pas. Est-ce que qqn pourrait m'aider svp ?

Pour résumer, je voudrais générer un graphique sur la feuille qui est active lorsque je clique sur la macro.

Merci d'avance
NiKoS29

[SilkyRoad]

bonjour

tu peux tester cette adaptation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim nomFeuille As String
'Sélection de la plage du tableau pour le graphique
Set SourceRange = Range([G4].Offset(0, 4), [G4].End(xlDown))
nomFeuille = ActiveSheet.Name
 
'Ajout du tableau
Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SetSourceData Source:=SourceRange, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=nomFeuille

cordialement
michel

[NiKoS29]

Yeeha !

Merci ! ça fonctionne !
J'avais pensé à utiliser le sourcerange pour la plage de sélection car ça ne marchait pas mais pas pour la destination d'affichage.

Dois-je en conclure qu'il vaut mieux définir des variables plutôt que de mettre les valeurs directement dans les syntaxes ? (je précise juste un point...je suis débutant en vb)

Merci en tout cas pour la réponse rapide !

NiKoS

[SilkyRoad]

rebonsoir

Lorsque tu crees un nouveau graphique tu n'es plus dans la feuille active de depart , mais dans la feuille graphique qui s'ajoute automatiquement dans le classeur


ensuite seulement , c'est l'instruction

Code :

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

ActiveChart.Location Where:=xlLocationAsObject, Name:=Feuil1

qui va placer le nouveau graphique dans une feuille de calcul


tu peux utiliser la macro en mode pas à pas ( F8) et tu verras ainsi comment se construit le graphique


bonne soiree
michel