Manipulation de graphiques par une macro

Version imprimable

30/07/2007, 12h43
C.R.E.A.M

Manipulation de graphiques par une macro

Salut tout le monde,

J'ai un probleme concernant la creation de graphiques par une macro.

J'ai commence par faire l'enregistrement de la creation manuelle d'un graphique que je met legerement en forme. Jusqu'ici tout va bien.
Mais quand j'execute la macro enregistree, evidemment ca plante.

La macro a ete enregistre avec un graphique qui apparait dans le code sous le nom de "Graphique 13", et j'imagine que le nom par defaut du graphique est incremente a chaque nouveau graphique cree.

Mais le probleme, c'est que si je donne moi-meme un nom au graphique (je rajoute ActiveChart.Name = "NomDuGraphique" apres Charts.Add et avant ActiveChart.Charttype = bla bla) et que je modifie les noms donnes automatiquement dans la suite du code, ca plante encore !
Il semble que lors de l'execution, le nom que j'ai moi-meme donne au graphique n'est pas reconnu (Notamment au niveau des "ActiveSheet.Shapes("NomDuGraphique").

Y-a-t-il une solution a ce probleme ?
30/07/2007, 12h49
C.R.E.A.M

Je viens de detecter un phenomene paranormal 8O

J'ai recommence la procedure d'enregistrement, que j'ai modifiee avec un "MsgBox ActiveChart.Name" pour faire apparaitre le nom du graphique.

La macro lui donne le nom Graphique 18 (j'ai refait quelques test depuis le 1er message) et la boite de dialogue me donne Graphique 48 8O

Help, I'm lost :?

bonsoir

Tu peux utiliser le type de syntaxe ci dessous pour renommer le graphique et utiliser et le manipuler à partir de ce nom

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim NbGraph As Integer
 
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
 
'compte le nombre de graphiques dans la feuille
NbGraph = ActiveSheet.ChartObjects.Count
'le nouveau graphique correspond à l'index le plus élevé
ActiveSheet.ChartObjects(NbGraph).Name = "Le nom du Graphique"
 
'Applique une couleur de fond
ActiveSheet.ChartObjects("Le nom du Graphique").Chart.ChartArea. _
    Format.Fill.ForeColor.RGB = RGB(255, 205, 225)

michel

31/07/2007, 10h00
C.R.E.A.M

Ok, je vais voir ce que ca donne.

Merci.
01/08/2007, 16h13
LeForestier

Tu ne sait quand même pas affiché 13 (ou plus) graphiques sur une même feuille ?
Alors pourquoi les renommer ?
Pourquoi en faire plusieurs ? à la limites 3/4
A ce moment mettre toutes les données dans l'un ou l'autre des graphiques affichés.
C'est pas compliqué par macro.
Je comprend pas bien ce que tu veux faire.
02/08/2007, 14h55
C.R.E.A.M

Nan, le truc c'est qu'a chaque fois que je cree un nouveau graphique, le nom qui lui est automatiquement donne est incremente, meme si j'ai efface les graphiques precedents.
Je m'amuse pas a afficher 13 graphiques a la fois, c'est juste que j'ai fait pas mal de tests et que j'ai relance la macro un certain nombre de fois apres modifs.

Le probleme que j'avais, c'est que quand je renommais le graphique dans une macro enregistree (par exemple "Mon Graphique" au lieu de "graphique 13" pour la macro enregistre apres avoir fait 13 tests) et que je modifiais par consequent le nom du graphique dans tout le reste du code, le programme ne semblait pas tenir compte du nouveau nom et me balancait une erreur.
Mais bon j'ai ruse depuis et j'utilise une autre methode.
02/08/2007, 15h28
zoidy
Pour éviter ce genre de problème, avant chaque création de graphique, je supprime tous les graphiques déjà présents sur la feuille :
Code:

1 2 3 If Sheets("Feuill1").ChartObjects.Count <> 0 Then Sheets("Feuill1").ChartObjects.Delete End If
02/08/2007, 16h09
LeForestier

Compris..
Il ne faut pas créer un graphique à chaques fois.
Mettre un graphique sur la feuille...
Si le graphique ne doit pas toujours être vu, le mettre à ... visible=false
Et modifier ces données par l'intermédiare d'une macro, tu peu TOUT changer dans le graphique, présentatton, plage, etc.. suivant les fluctuations sélectionnées.
03/08/2007, 16h10
C.R.E.A.M
Citation:
Envoyé par zoidy

Pour éviter ce genre de problème, avant chaque création de graphique, je supprime tous les graphiques déjà présents sur la feuille :

Code:

1 2 3 If Sheets("Feuill1").ChartObjects.Count <> 0 Then Sheets("Feuill1").ChartObjects.Delete End If
Pas mal ca... merci.