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
- Word et excel gratuit - Guide
- Graphique camembert excel - Guide
- Changer carte graphique - Guide
2 réponses
Salut,
Peut être peux tu afficher les graph 1 et 2 sue la feuil2 et 3 et 4 sur la feuil 3. Ne te reste plus qu'à masquer les feuil 2 et 3 puis à les faire afficher au bouton grâce à une macro réalisable soi même.
Peut être peux tu afficher les graph 1 et 2 sue la feuil2 et 3 et 4 sur la feuil 3. Ne te reste plus qu'à masquer les feuil 2 et 3 puis à les faire afficher au bouton grâce à une macro réalisable soi même.
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.