Masquer un graphique

Version imprimable

15/11/2007, 12h27
Kobaal

Masquer un graphique

Bonjour,
Dans une macro, j'aimerai masquer un graphique (en cas de données sources vides, notamment).
J'ai cherché un peu, on m'a dit d'essayer ça:
Graphe.Visible = False
Mais ça ne marche pas.
Quelqu'un aurait une solution?
Merci d'avance.
15/11/2007, 13h08
scully2501

Citation:

Envoyé par Kobaal

Bonjour,
Dans une macro, j'aimerai masquer un graphique (en cas de données sources vides, notamment).
J'ai cherché un peu, on m'a dit d'essayer ça:
Graphe.Visible = False
Mais ça ne marche pas.
Quelqu'un aurait une solution?
Merci d'avance.

Je pense que tu peux trouver beaucoup de reponse par ici:
http://www.google.fr/search?hl=fr&q=...e+Google&meta=
15/11/2007, 13h13
scully2501
Google fait des miracles pour trouver des réponses à tes questions:
Code:

1 2 ActiveSheet.ChartObjects("Graphique 1").Visible = False ActiveSheet.ChartObjects("Graphique 1").Visible = true
Et n'oublie pas de cliquer sur resolue en bas si tu as trouvé la reponse à ta question.

Bon courage

Bonjour
cela doit fonctionné:

Code:

1
2
3
4
Sub Macro1()  
    ActiveSheet.Shapes("graph_1").Visible = False
     ("le nom de ton graph")
End Sub

15/11/2007, 13h24
scully2501

Citation:

Envoyé par cb_60

Bonjour
cela doit fonctionné:
Sub Macro1()
ActiveSheet.Shapes("graph_1").Visible = False
("le nom de ton graph")
End Sub

Oui les deux fonctionnent tres bien pour masquer ou demasquer un graphique.
Avec l'objet shapes tu peux faire plus de chose (a voir dans l'aide de excel).
15/11/2007, 13h47
Kobaal

Merci pour ces réponses, mais ça ne marche toujours pas.
Avec les Shapes, il y a erreur "L'élément portant ce nom est introuvable"
Avec ChartObjects, j'obtiens "Impossible de lire la propriété ChartObjects de la classe Worksheet"

D'ailleurs, le nom du graphique à entrer comme ChartObjects ou Shapes, est ce le titre du graphique, ou le nom du type 'nom du feuillet' + "Graphique" + 'Numéro du graphique'?
15/11/2007, 13h50
scully2501

Citation:

Envoyé par Kobaal

Merci pour ces réponses, mais ça ne marche toujours pas.
Avec les Shapes, il y a erreur "L'élément portant ce nom est introuvable"
Avec ChartObjects, j'obtiens "Impossible de lire la propriété ChartObjects de la classe Worksheet"

D'ailleurs, le nom du graphique à entrer comme ChartObjects ou Shapes, est ce le titre du graphique, ou le nom du type 'nom du feuillet' + "Graphique" + 'Numéro du graphique'?

Peux tu nous montrez ton code et si possible nous envoyer ton fichier excel?

Voici le code

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Private Sub OptiGraphe()
Dim Nom As String
Dim NumRow As Long
Dim NumCol As Long
Dim Plage As Range
Dim GraphCible As Variant
 
 
Dim i As Byte
 
Nom = "Métier"
'Plage de recherche.
Set Plage = Range("A1:S96")
 
'Recherche du tableau
For Each r In Plage
    If r.Value Like Nom Then
    NumRow = r.Row
    NumCol = r.Column
    End If
Next
'avertissement si le tableau n'existe pas
If NumRow = 0 Then
    MsgBox ("Tableau " & Nom & " non trouvé. Assurez vous que ce nom existe bien")
    Else: MsgBox (" Tableau trouvé aux coordonnées: Numrow = " & NumRow & " ; NumCol = " & NumCol)
    End If
 
'Recherche du graphique ayant le titre correspondant
For Each Graph In ActiveSheet.ChartObjects
    i = i + 1
    ActiveSheet.ChartObjects(i).Activate
    If ActiveChart.ChartTitle.Text = Nom Then
    Set GraphCible = ActiveChart
    End If
Next
'avertissement si le graphique n'existe pas
If IsEmpty(GraphCible) Then
    MsgBox ("Graphique " & Nom & " non trouvé. Assurez vous qu'un graphique avec ce titre existe bien")
    Else: MsgBox ("Nom du graphe trouvé: " & GraphCible.Name)
    End If
 
'si la case sous le nom du tableau est vide, le graphique est masqué
If (NumRow <> 0) Then
    If IsEmpty(ActiveSheet.Cells(NumRow + 1, NumCol)) Then
    ActiveSheet.ChartObjects("Métier").Visible = False
    MsgBox ("Tableau " & Nom & " caché")
    Else: ActiveSheet.ChartObjects("Métier").Visible = True
    End If
End If
 
End Sub

(ici, je prend pour exemple le graphique intitulé "Métier", mais à terme, le nom recherché sera en argument)
(J'éditerai plus tard pour ajouter un fichier xls d'exemple)

15/11/2007, 14h08
scully2501

Une solution a te proposé mais je te garantit rien:

sur ton graphique fait bouton droit et clique sur fenetre graphique:

la tu verras le nom exact de ton graphique:

Citation:

[classeur1.xls]Feuil1Graphique1
15/11/2007, 14h17
Kobaal

Même en rajoutant le nom du classeur entre crochets, les erreurs restent les mêmes.
Il y a pas des librairies spéciales à activer? des fonctions non compatibles excel 2003? une petite option que tout le monde oublie mais qu'il faut activer sous peine de tout planter?
15/11/2007, 14h20
scully2501

Je viens de tester ton code:
Avec comme nom du titre du tableau et du graphique "Métiers"

J'ai conserver le nom du graphique par defaut "graphique 1" que tu peux trouver comme je t'ai dit en haut. le nom de ton graphique doit surement être à la place de Feuil1Graphique1

1 pièce(s) jointe(s)

Citation:

Envoyé par scully2501

Je viens de tester ton code:
Avec comme nom du titre du tableau et du graphique "Métiers"

J'ai conserver le nom du graphique par defaut "graphique 1" que tu peux trouver comme je t'ai dit en haut. le nom de ton graphique doit surement être à la place de Feuil1Graphique1

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Private Sub OptiGraphe_Click()
Dim Nom As String
Dim NumRow As Long
Dim NumCol As Long
Dim Plage As Range
Dim GraphCible As Variant
 
 
Dim i As Byte
 
Nom = "Métier"
'Plage de recherche.
Set Plage = Range("A1:S96")
 
'Recherche du tableau
For Each r In Plage
    If r.Value Like Nom Then
    NumRow = r.Row
    NumCol = r.Column
    End If
Next
'avertissement si le tableau n'existe pas
If NumRow = 0 Then
    MsgBox ("Tableau " & Nom & " non trouvé. Assurez vous que ce nom existe bien")
    Else: MsgBox (" Tableau trouvé aux coordonnées: Numrow = " & NumRow & " ; NumCol = " & NumCol)
    End If
 
'Recherche du graphique ayant le titre correspondant
For Each Graph In ActiveSheet.ChartObjects
    i = i + 1
    ActiveSheet.ChartObjects(i).Activate
    If ActiveChart.ChartTitle.Text = Nom Then
    Set GraphCible = ActiveChart
    End If
Next
'avertissement si le graphique n'existe pas
If IsEmpty(GraphCible) Then
    MsgBox ("Graphique " & Nom & " non trouvé. Assurez vous qu'un graphique avec ce titre existe bien")
    Else: MsgBox ("Nom du graphe trouvé: " & GraphCible.Name)
    End If
 
'si la case sous le nom du tableau est vide, le graphique est masqué
If (NumRow <> 0) Then
    If IsEmpty(ActiveSheet.Cells(NumRow + 1, NumCol)) Then
    ActiveSheet.ChartObjects("Graphique 1").Visible = False
    MsgBox ("Tableau " & Nom & " caché")
    Else
   ActiveSheet.ChartObjects("Graphique 1").Visible = True
    End If
End If
 
End Sub

J'ai supprimer les ":" apres else à la fin.

15/11/2007, 14h28
scully2501

Citation:

Envoyé par Kobaal

Même en rajoutant le nom du classeur entre crochets, les erreurs restent les mêmes.
Il y a pas des librairies spéciales à activer? des fonctions non compatibles excel 2003? une petite option que tout le monde oublie mais qu'il faut activer sous peine de tout planter?

Pour moi dans outils/ références j'ai:

*visual basic for application
*Microsotf excel 10.0 object library (10.0 est la version toi tu auras autre avec 2003)
*OLE automation
*Microsotf office 10.0 object library
*Microsotf forms 2.0 object library
15/11/2007, 14h38
Kobaal

1 pièce(s) jointe(s)

J'ai recopié ton code (en corrigeant avec le nom du graphique), et toujours la même erreur:
Impossible de lire la propriété ChartObjects de la classe Worksheet

J'ai bien les mêmes références que toi (version 11.0 pour l'object library)
J'ai joint un classeur d'exemple.

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub OptiGraphe_Click()
Dim Nom As String
Dim NumRow As Long
Dim NumCol As Long
Dim Plage As Range
Dim GraphCible As Variant
 
 
Dim i As Byte
 
Nom = "Métier"
'Plage de recherche.
Set Plage = Range("A1:S96")
 
'Recherche du tableau
For Each r In Plage
    If r.Value Like Nom Then
    NumRow = r.Row
    NumCol = r.Column
    End If
Next
'avertissement si le tableau n'existe pas
If NumRow = 0 Then
    MsgBox ("Tableau " & Nom & " non trouvé. Assurez vous que ce nom existe bien")
    Else: MsgBox (" Tableau trouvé aux coordonnées: Numrow = " & NumRow & " ; NumCol = " & NumCol)
    End If
 
'Recherche du graphique ayant le titre correspondant
For Each Graph In ActiveSheet.ChartObjects
    i = i + 1
    ActiveSheet.ChartObjects(i).Activate
    If ActiveChart.ChartTitle.Text = Nom Then
    Set GraphCible = ActiveChart
    End If
Next
'avertissement si le graphique n'existe pas
If IsEmpty(GraphCible) Then
    MsgBox ("Graphique " & Nom & " non trouvé. Assurez vous qu'un graphique avec ce titre existe bien")
    Else: MsgBox ("Nom du graphe trouvé: " & GraphCible.Name)
    End If
 
'si la case sous le nom du tableau est vide, le graphique est masqué
If (NumRow <> 0) Then
    If IsEmpty(ActiveSheet.Cells(NumRow + 1, NumCol)) Then
    ActiveSheet.ChartObjects("Graphique 6").Visible = False
    MsgBox ("Tableau " & Nom & " caché")
    Else
   ActiveSheet.ChartObjects("Graphique 6").Visible = True
    End If
End If
 
End Sub

J'ai corrigé à la fin et sa marche pour moi.
suivi des tests est le nom de ta feuille à ne pas mettre

J'ai compris pourquoi ca ne marchais pas au debut, tu n'as pas de graphique qui s'appelle Graphique 1 puisque le 1er graphique que tu as commence par graphique2

15/11/2007, 15h05
Kobaal

Aah ouf, ça marche aussi chez moi !
merci beaucoup de ton aide !
Par contre, juste un dernier truc: comment obtenir le nom du graphique sans le nom de la feuille?

Citation:

Envoyé par Kobaal

Aah ouf, ça marche aussi chez moi !
merci beaucoup de ton aide !
Par contre, juste un dernier truc: comment obtenir le nom du graphique sans le nom de la feuille?

La je ne peux te dire.
A la barbare tu peux rechercher le nom l'onglet, chercher le nombre de caractere de l'onglet. et enlever ce nombre au nom du graphique.

Exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 'nom du graphique avec feuille: nom = feuillegraphique1 nbcar = len(nom) nom_onglet = ThisWorkbook.Name '(je suis pas sur de ce code à voir) nbcar2 = len(nom_onglet) nbcar3 = nbcar-nbcar2 nom_graph = right(nom,nbcar3)
C'est une solution mais je pense qu'il existe une fonction pour trouver que le nom du graphique

15/11/2007, 15h38
scully2501
Essai avec:
Code:

1 2 ChartObjects.Name

Citation:

Envoyé par scully2501

Essai avec:

Code:

1
2
 
ChartObjects.Name

Impec !
Pour information, le "ChartObjects.Name" retourne "Chart 15" (dans mon document complet, c'est le 15eme graphique), tandis que le "ActiveChart.Name" retourne 'nom du feuillet' + "Chart 15"

Donc pour d'éventuelles personnes qui auraient le même problème que moi, voici le code finalisé:

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Sub OptiGraphe(Nom As String)
Dim NumRow As Long
Dim NumCol As Long
Dim Plage As Range
Dim GraphCible As Variant
 
 
Dim i As Byte
i = 0
 
'Plage de recherche.
Set Plage = Range("A35:S96")
 
'Recherche du tableau
For Each r In Plage
    If r.Value Like Nom Then
    NumRow = r.Row
    NumCol = r.Column
    End If
Next
'avertissement si le tableau n'existe pas
If NumRow = 0 Then
    MsgBox ("Tableau " & Nom & " non trouvé. Assurez vous que ce nom existe bien")
    Else: 'MsgBox (" Tableau trouvé aux coordonnées: Numrow = " & NumRow & " ; NumCol = " & NumCol)
    End If
 
'Recherche du graphique ayant le titre correspondant
For Each Graph In ActiveSheet.ChartObjects
    i = i + 1
    If ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text = Nom Then
    Set GraphCible = ActiveSheet.ChartObjects(i)
    End If
Next
 
 
'avertissement si le graphique n'existe pas
If IsEmpty(GraphCible) Then
    MsgBox ("Graphique " & Nom & " non trouvé. Assurez vous qu'un graphique avec ce titre existe bien")
    Else: 'MsgBox ("Nom du graphe trouvé: " & GraphCible.Name)
    End If
 
'si la case sous le nom du tableau est vide, le graphique est masqué
If (NumRow <> 0) Then
    If IsEmpty(ActiveSheet.Cells(NumRow + 1, NumCol)) Then
    ActiveSheet.ChartObjects(GraphCible.Name).Visible = False
    'MsgBox ("Tableau " & Nom & " caché")
    Else
   ActiveSheet.ChartObjects(GraphCible.Name).Visible = True
   'MsgBox ("Tableau " & Nom & " affiché")
    End If
End If
 
 
End Sub

(il reste certainement optimisable et beaucoup de msgbox sont à supprimer, mais au moins, ça marche !)
Merci encore scully2501 !

edit: topic résolu et code revu (plus rapide)