Discussion :

[methylene]

Bonjour à tous,

J'ai un petit problème avec un fichier excel (je suis sous Excel 2007) :

Voilà donc j'ai un classeur excel, avec un tableau. Quand je clique sur une cellule "entreprise", là où il y a marqué "Entreprise N°", cela sélectionne ma plage de données puis crée un graph dans une nouvelle feuille, comme sur les images suivantes :

Mon tableau :



Quand je clique sur une cellule entreprise :



Puis la génération du graphique :



Comme on peut le voir le graph créé se met dans une nouvelle feuille Graph.

Or je voudrais quand je clique sur "Entreprise N°" que le code vérifie si une feuille nommée "Graph" existe et si elle existe qu'il me la supprime. Je n'arrive pas du tout à le faire, malgré mes différentes recherches.

Je joins mon code qui ne doit pas être très académique, mais j'ai l'habitude de développer en VB.net, et là en VBA je suis je dois l'avouer complètement perdu, déjà l'intellisense de Visual Studio me manque crucialement.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim r2006, r2007, r2008, r2009, r2010, rtotal, rannee As Range
 
ligne = Target.Row
colonne = Target.Column
 
If colonne = 2 And ligne > 7 Then
 
'Permet de prendre la plage des valeurs souhaité
Set r2006 = Worksheets("Communes").Range(Worksheets("Communes").Cells(ligne, 4), Worksheets("Communes").Cells(ligne + 2, 4))
Set r2007 = Worksheets("Communes").Range(Worksheets("Communes").Cells(ligne, 6), Worksheets("Communes").Cells(ligne + 2, 6))
Set r2008 = Worksheets("Communes").Range(Worksheets("Communes").Cells(ligne, 8), Worksheets("Communes").Cells(ligne + 2, 8))
Set r2009 = Worksheets("Communes").Range(Worksheets("Communes").Cells(ligne, 10), Worksheets("Communes").Cells(ligne + 2, 10))
Set r2010 = Worksheets("Communes").Range(Worksheets("Communes").Cells(ligne, 12), Worksheets("Communes").Cells(ligne + 2, 12))
Set rannee = Union(Worksheets("Communes").Cells(7, 4), Worksheets("Communes").Cells(7, 6), Worksheets("Communes").Cells(7, 8), Worksheets("Communes").Cells(7, 10), Worksheets("Communes").Cells(7, 12))
 
'Regroupe les différentes plages de valeurs
Set rtotal = Union(r2006, r2007, r2008, r2009, r2010)
rtotal.Select
 
'ajoute le nouveau graph
    ThisWorkbook.Charts.Add.Select
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)
    ActiveChart.ChartTitle.Text = Cells(ligne, colonne).Value
    ActiveChart.SeriesCollection(1).XValues = rannee
    ActiveChart.SeriesCollection(1).Name = "=""CA1"""
    ActiveChart.SeriesCollection(2).Name = "=""CA2"""
    ActiveChart.SeriesCollection(3).Name = "=""CA3"""
    ActiveSheet.Name = "Graph"
 
End If
 
End Sub

J'ai essayé ceci mais cela ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ws As Worksheet
 
For Each ws In Worksheets
 
If ws.Name = "Graph" Then
 
ws.Delete
 
End If
 
Next

Merci de vos réponses.

[methylene]

Bon ben c'est résolu :

La collection n'était pas Worksheets mais Charts :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim gs As Chart
 
For Each gs In Charts
 
If gs.Name = "Graph" Then
 
gs.Delete
 
End If
 
Next