Discussion :

[Hadi2015]

Bonjour Forum,
j'ai un petit problème est ce qu'il y a quelqu'un qui peut m'orienter svp!

Je veux cacher/monter un graphe collectif /graphe données individuelles grâce à un bouton de commande, mais je rencontre une erreur (Sub ou fonction non définie) , est ce que j’ai une erreur dans mon code ou il y a des éléments que je dois ajouter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton58_Cliquer()
 
ActiveSheet.ChartObjects(3).Name = "collectif"
ActiveSheet.ChartObjects("Graphique 3").Name = "individuelle"
 
If ChartObjects("collectif ").Visible = True Then
  ChartObjects("Collectif").Visible = False
   CommandButton1.Caption = "individuelle"
Else
    ChartObjects("individuelle").Visible = True
    CommandButton1.Caption = "Collectif"
End If
End Sub

Merci d’avance !

[Theze]

Bonjour,

et de cette façon ?

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
 
Sub Bouton58_Cliquer()
 
    ActiveSheet.ChartObjects(3).Name = "collectif"
    ActiveSheet.ChartObjects("Graphique 3").Name = "individuelle"
 
    If Charts("collectif ").Visible = True Then
        Charts("Collectif").Visible = False
       CommandButton1.Caption = "individuelle"
    Else
        Charts("individuelle").Visible = True
        CommandButton1.Caption = "Collectif"
    End If
 
End Sub

Hervé.

[Hadi2015]

Bonjour ,
Je vous remercie beaucoup , j'ai appliqué le code , cependant une erreur d’exécution survient , j'ai attaché mon fichier pour faciliter la compréhension!
Merci encore une fois et je vous souhaite une excellente journée !

Fichier Forum.xlsm

[Theze]

Re,

Autant pour moi, c'est bien "ChartObjects" mais regarde bien le nom "collectif" comme tu l'as écris :

Code :

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

1
2
 
If .ChartObjects("collectif ").Visible = True Then

tu vois l'espace après le mot ? C'est ce qui donne l'erreur.
Bon, voici un code qui fonctionne :

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
 
Sub Bouton58()
 
    With ActiveSheet
 
        If .ChartObjects("collectif").Visible = True Then
 
            .ChartObjects("individuel").Visible = False
        ' Button58.Caption = "individuelle"
 
        Else
 
            .ChartObjects("individuel").Visible = True
            .ChartObjects("collectif").Visible = False
            'Button58.Caption = "Collectif"
 
        End If
 
    End With
 
End Sub

Hervé.

[Hadi2015]

Merci beaucoup ça marche très bien