Macro : masquer graphique sur EXCEL
greg
-
greg -
greg -
Bonjour,
J'ai un fichier Excel d'analyse où le résultat est l'affichage de 4 graphiques.
Je voudrais créer une macro qui me permet de pouvoir les masquer/afficher 2 par 2.
Exemple, je clique sur un bouton les graphiques 1 et 2 sont affichés, je reclique sur le bouton et ce sont les graphiques 3 et 4 qui s'affichent.
Quelqu'un aurait une idée pour réaliser cela?
Merci d'avance.
J'ai un fichier Excel d'analyse où le résultat est l'affichage de 4 graphiques.
Je voudrais créer une macro qui me permet de pouvoir les masquer/afficher 2 par 2.
Exemple, je clique sur un bouton les graphiques 1 et 2 sont affichés, je reclique sur le bouton et ce sont les graphiques 3 et 4 qui s'affichent.
Quelqu'un aurait une idée pour réaliser cela?
Merci d'avance.
A voir également:
- Macro graphique excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Graphique camembert excel - Guide
- Word et excel gratuit - Guide
- Comment faire un graphique sur excel - Guide
2 réponses
Bonjour,
tu peux utiliser ca :
If ChartObjects.Item(1).Visible = True Then
ChartObjects.Item(1).Visible = False
ChartObjects.Item(2).Visible = False
ChartObjects.Item(3).Visible = True
ChartObjects.Item(4).Visible = True
Else
ChartObjects.Item(1).Visible = True
ChartObjects.Item(2).Visible = True
ChartObjects.Item(3).Visible = False
ChartObjects.Item(4).Visible = False
End If
Si ce n'est pas les bons graphiques qui s'affichent, modifie les index dans les lignes de programme.
Bon courage
tu peux utiliser ca :
If ChartObjects.Item(1).Visible = True Then
ChartObjects.Item(1).Visible = False
ChartObjects.Item(2).Visible = False
ChartObjects.Item(3).Visible = True
ChartObjects.Item(4).Visible = True
Else
ChartObjects.Item(1).Visible = True
ChartObjects.Item(2).Visible = True
ChartObjects.Item(3).Visible = False
ChartObjects.Item(4).Visible = False
End If
Si ce n'est pas les bons graphiques qui s'affichent, modifie les index dans les lignes de programme.
Bon courage
J'ai juste crée des petites macros qui permettent d'aller d'une page à l'autre, sans les masquer :
Sheets("analyse 2").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
Et c'est suffisant pour moi.
Merci beaucoup.