Discussion :

[Gualino]

Bonjour,

J'ai un feuille qui contient un graphique. Je voudrais qu'il soit afficher dans cette feuille de le même manière que lorsqu'on le déplace dans une nouvelle feuille.

Ni l'enregistrement de macro ni google ne m'a permit de trouver la réponse...

Merci d'avance

[NEC14]

Bonjour,

Je crois que si c'est un graphique incorporé à la feuille , en le sélectionnant
F11 créera une nouvelle feuille basée sur ce graphique
Alt+ac affichera/désaffichera le plein ecran

Une autre piste, peut être :
créer une macro à laquelle tu affecte le raccourci de ton choix, avec comme
instruction :

Code :

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

1
2
3
ActiveSheet.ChartObjects("ton_graphique").Location 
Where:=xlLocationAsNewSheet
    Application.DisplayFullScreen = True

qui aura pour effet de placer le graphique dans une feuille indépendante en
plein écran

[Gualino]

Merci pour ton aide Nec, mais je galere toujours....

[NEC14]

Dans un nouveau module tu mets ce code. Ensuite soit tu l'affectes à un bouton, soit tu cliques Outils/Macro/Macro/Exécuter en cliquant sur le nom de la macro

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
22
23
24
25
26
27
28
29
 
Public tg, lg, hg, wg
Sub Macro1()
'
' Macro1 Macro
'
 
'
Set graphe = ActiveSheet.ChartObjects(1)
tg = graphe.Top
lg = graphe.Left
hg = graphe.Height
wg = graphe.Width
   'graphe.ShowWindow = False
   ActiveWindow.WindowState = xlMaximized
   t = ActiveWindow.Top
   l = ActiveWindow.Left
   h = ActiveWindow.Height
   w = ActiveWindow.Width
 
   ActiveWindow.WindowState = xlNormal
   'MsgBox graphe.Width
    graphe.Top = 0
    graphe.Left = 0
    graphe.Height = h - 60
    graphe.Width = w - 60
    ActiveWindow.WindowState = xlMaximized
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Sub retour()
Set graphe = ActiveSheet.ChartObjects(1)
  graphe.Top = tg
    graphe.Left = lg
    graphe.Height = hg
    graphe.Width = wg
End Sub

[Gualino]

Salut,

Merci, ca fait le boulot, mais je cherche a avoir le meme format que quand on bouge le graph...sans scroll bar ni cellule...