Zoom sur graphique pour affichage en pleine écran [Résolu]

Signaler
Messages postés
32
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
17 février 2015
-
Messages postés
32
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
17 février 2015
-
Bonjour,

Je suis sur excel 2007, j'ai besoin de votre aide, car la je ne vois pas comment m'y prendre.

J'ai une feuille avec des données, avec celles-ci j'ai plusieurs graphique qui sont situé plus bas dans la feuille.

En fait l'idée, c'est de mettre un bouton pour chaque graphique à côte de mon tableau (qui contient les données).

Afin d'éviter de faire défiler la feuille pour aller sur le graphique.

L'idée, c'est grace a ce bonton, je puisse afficher le graphique en plein écran, sur l'idée d'une fenetre qui s'ouvrirait (affichant le graphique) en se superposant à ma feuille de calcul, et que je pourrais refermer en faisant un double click dessus, et donc revenir sur ma feuille de calcul.


Voila l'idée de ce que je voudrais faire, mais là je ne sais pas du tout comment faire ou aborder le problème.

Pouvez vous m'aider.
Merci par avance
--

2 réponses

Messages postés
6790
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 juin 2020
107
Bonjour,

Voici une manière de positionner le graphique en haut de la feuille et de le rétablir à sa position initiale. Exemple avec 2 graphiques

Mettre 2 boutons formulaire en haut de la feuille. Clic droit sur le bouton: affectée une macro- Nouvelle
Faire de même pour le 2ème bouton

Mettre ce code dans l'éditeur qui vient de s'ouvrir:

Option Explicit
Dim position As Boolean
Dim ecran
Sub Bouton1_Clic()
If position = True Then
Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 .Shapes("Graphique 1").Left = ecran.Left + 10 'a adapter
 .Shapes("Graphique 1").Top = ecran.Top + 100 'a adapter
End With
position = False
ActiveSheet.Shapes("Button 1").Select
    Selection.Characters.Text = "Rétablir"
    Range("A1").Select
Else
Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 .Shapes("Graphique 1").Left = ecran.Left + 10 'a adapter
 .Shapes("Graphique 1").Top = ecran.Top + 1000 'a adapter
End With
position = True
ActiveSheet.Shapes("Button 1").Select
    Selection.Characters.Text = "Afficher"
    Range("A1").Select
 End If
End Sub
Sub Bouton2_Clic()
If position = True Then
Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 .Shapes("Graphique 2").Left = ecran.Left + 500 'a adapter
 .Shapes("Graphique 2").Top = ecran.Top + 100 'a adapter
End With
position = False
ActiveSheet.Shapes("Button 2").Select
    Selection.Characters.Text = "Rétablir"
   Range("A1").Select
Else
Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 .Shapes("Graphique 2").Left = ecran.Left + 500 'a adapter
 .Shapes("Graphique 2").Top = ecran.Top + 1000 'a adapter
End With
position = True
ActiveSheet.Shapes("Button 2").Select
    Selection.Characters.Text = "Afficher"
    Range("A1").Select
 End If
End Sub
Messages postés
32
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
17 février 2015

Bonjour,

Ca fonctionne super bien, Merci beaucoup pour ton aide.

--