utiliser le nom de la feuille comme variable

[marion64]

Bonjour à tous,

Je débute avec les macros sur excel et je rencontre quelques difficultés...
Je souhaiterais utiliser le nom d'une feuille en tant que variable pour l'intégrer dans mes instructions. Je précise ma pensée.
J'ai plusieurs feuilles : janvier, février, mars...
Et aussi : graph janvier, graph février...
Je souhaiterais pouvoir utiliser "janvier", "février"... comme variable pour pouvoir dire dans mon code : "lorsque je suis sur l'onglet 'mois' alors mettre le graphique dans l'onglet 'graph mois'".
J'ai mon code pour créer le graphique qui se termine par
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph Avril"
Et je souhaiterais donc changer le Name par ce que je viens de vous détailler.
Merci d'avance pour vos réponses.

 

[tototiti2008]

Re : utiliser le nom de la feuille comme variable

Bonjour Marion,

Bienvenue sur XLD,

Sans plus de précisions, peut-être

ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph " & Activesheet.name

 

[marion64]

Re : utiliser le nom de la feuille comme variable

Je n'y avais pas pensé. Bien que ce soit une bonne idée, elle ne fonctionne pas :/
D'autres propositions? Je pensais à mettre le nom de feuille en variable et l'utiliser ensuite mais je ne sais pas trop comment faire...

 

[tototiti2008]

Re : utiliser le nom de la feuille comme variable

Re,

Nous disposons de très peu d'information pour t'aider
Aurais-tu un bout de fichier exemple à nous fournir ?

 

[Pierrot93]

Re : utiliser le nom de la feuille comme variable

Bonjour, Toto🙂

Je n'y avais pas pensé. Bien que ce soit une bonne idée, elle ne fonctionne pas :/

cela veut dire quoi, ca ne fonctionne pas ?? message d'erreur ou pas le résultat attendu ... Attention avec ce code seul l'emplacement du graph est modifié, pas les données source..;

bon après midi
@+

 

[marion64]

Re : utiliser le nom de la feuille comme variable

Je travaille pour une entreprise et je ne suis pas sure de pouvoir vous fournir le fichier.
Mais je détaille davantage :
Dans le même classeur j'ai par exemple : une feuille avril (où se trouvent mes données) et une feuille graph avril (où je veux insérer mes graphiques). Voici un code de création graphique :
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPyramidCol
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = Range("B7")
ActiveChart.SeriesCollection(1).Values = Range("B9:B12")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = Range("C7")
ActiveChart.SeriesCollection(2).Values = Range("C9:C12")
ActiveChart.SeriesCollection(2).XValues = Range("A9:A12")
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ApplyDataLabels
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph & ActiveSheet.Name"
La dernière ligne précise la localisation du graphe que je souhaiterais mettre dans graph avril par exemple.
En fait, c'est un tableau de bord donc les graphes sont les mêmes à chaque mois (sauf les valeurs) et j'aimerais ne pas avoir à changer le code à chaque mois.

 

[marion64]

Re : utiliser le nom de la feuille comme variable

J'ai un message d'erreur 91 : variable objet ou variable de bloc with non définie.

 

[Pierrot93]

Re : utiliser le nom de la feuille comme variable

Re,

est ce que l'onglet "graph mois" existe lors de la création ??

 

[marion64]

Re : utiliser le nom de la feuille comme variable

oui je le crée au préalable

 

[Pierrot93]

Re : utiliser le nom de la feuille comme variable

Re,


regarde peut être ceci :

Dim sh As Worksheet
Set sh = ActiveSheet
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPyramidCol
'le reste de ton code
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph " & sh.Name

 

[tototiti2008]

Re : utiliser le nom de la feuille comme variable

Bonjour Pierrot,
Re,

Et la ligne que tu nous fournis

ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph & ActiveSheet.Name"

Ne correspond pas à la ligne que je t'avais proposé

ActiveChart.Location Where:=xlLocationAsObject, Name:="Graph " & Activesheet.name

Attention à l'emplacement des guillemets

 

[marion64]

Re : utiliser le nom de la feuille comme variable

Effectivement je m'étais trompé lors de la copie de ton message toto. Après plusieurs lancement (et après qq échecs avec le message d'erreur 91), ton code a fini par marcher!
Merci beacoup pour votre aide!