Discussion :

[NiKoS29]

Bonjour,
tout d'abord, bah bonne année à tous, meilleurs voeux.

J'ai un petit souci sur Excel.
J'ai un graphique qui se créé automatiquement (avec une macro)
Puis je voudrais rajouter à ma macro une partie qui au début de la macro :
- sélectionne le graphique de la feuille active
- supprime ce graphique
(la suite de la macro, c'est la création d'un nouveau graphique)

Pour cela, j'ai essayé une chose mais cela ne marche pas:

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
 
'suppression de l'ancien graphique
    ActiveSheet.ChartObject("graphique").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Selection.Delete
 
'Sélection de la plage du tableau pour le graphique
    Set SourceRange = Range([G4].Offset(0, 4), [G4].End(xlDown))
    Feuilleactive = ActiveSheet.Name
 
'Ajout du tableau
    Charts.Add
    ActiveChart.ChartType = xl3DBarClustered
    ActiveChart.Name = "graphique"
    ActiveChart.SetSourceData Source:=SourceRange, PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=Feuilleactive

Comme vous pouvez le voir sur ce code, lors de la création du graphique, j'ai forcé son nom "activechart.Name = "graphique". Ce qui me permet en début de macro, de sélectionner le graphique nommé "graphique" et de le supprimer.
Or, cela ne marche pas. Lorsque je vérifie le nom du graphique créé, il porte toujours un nom donné par excel.

La commande activechart.Name est-elle la bonne pour nommer un graphique ? (précision, je ne parle pas du titre du graphique)

Merci d'avance pour vos réponses.

NiKoS29

[SilkyRoad]

bonsoir

tu peux tester cette macro pour supprimer le graphique

Code :

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

ActiveSheet.ChartObjects("NomGraphique").Delete

cordialement
michel

[NiKoS29]

Bonjour,

Merci pour la réponse. Le problème, c'est qu'il y a un bug.

"Erreur d'éxécution '1004
Impossible de lire la propriété ChartObjects de la classe Worksheet"

Ce qu'il y a en fait, la commande ActiveChart.Name = "Nomgraphique" ne fonctionne pas !
Car lorsque j'exécute la macro, et qu'ensuite, je sélectionne le graphique créé avec l'enregistreur de macro, et que je regarde le code, le graphique en question n'a pas le nom donné !

N'y aurait-il pas une autre synthaxe ?

Merci d'avance.

NiKoS29

[SilkyRoad]

bonjour

je n'ai pas bien compris ton dernier message : tu peux essayer par les index de graphique

pour supprimer le premier graphique

Code :

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

ActiveSheet.ChartObjects(1).Delete

pour supprimer le dernier classeur créé

Code :

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

ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Delete

bonne soiree
michel

[NiKoS29]

Bonsoir,

Encore une fois merci car cela fonctionne maintenant. J'ai utilisé la synthaxe pour supprimer le dernier objet créé.

Peux-tu me corriger le code suivant pour que la suppression du graphique ne se fasse que s'il y en a un sur la feuille active stp ?

Code :

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

1
2
3
4
 
    If ActiveSheet.ChartObjects.Visible = True Then
        ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Delete
    End If

Ce code ne fonctionne pas. Il me dit "impossible de lire la propriété Visible dans la classe ChartObjects".
Ce n'est peut-être pas la bonne propriété que j'utilise ?

PS : je sais que ça fait beaucoup de questions, mais ça fait 3 semaines que j'ai du me mettre à vba (c'était le plus pratique pour ce que je veux faire) et je n'ai pas encore eu le temps de m'acheter un bouquin ! Je vais voir ça dès ce soir.

Merci encore.
Bonne soirée

NiKoS29

[SilkyRoad]

rebonjour

Code :

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

ActiveSheet.ChartObjects.Count

permet de compter le nombre de graphiques dans la feuille , tu peux donc ecrire

Code :

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

1
2
3
If ActiveSheet.ChartObjects.Count > 0 Then 
        ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Delete 
End If

bonne soiree
michel

[NiKoS29]

Cool !!!!!!!!

ça fonctionne. Merci beaucoup !

Bonne soirée !

Nicolas