VBA + Graphique Excel

Version imprimable

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:

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

bonjour

tu peux tester cette adaptation

Code:

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

28/12/2005, 20h11
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 ! :lol: :lol: :lol:

NiKoS
28/12/2005, 20h51
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:

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