Excel, ScrollBar sur partie de la feuille / figer un graphique
sym59
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
sym59 Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
sym59 Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un tableau (à rallonge) et des graphiques sur une feuille Excel... Je souhaiterais pouvoir voir la suite du tableau sans perdre de vue les graphiques .
J'ai donc pensé à couper la feuille en 2 pour n'utiliser la scrollBar que sur la partie contenant le tableau ou à figer les graphiques pour toujours les avoir à l'ecran.
En revanche, je ne veux pas avoir deux fenêtres Excel de la même feuille, c'est pénible à utiliser :
En espérant que quelqu'un sache comment faire =)
Merci à tous!
J'ai un tableau (à rallonge) et des graphiques sur une feuille Excel... Je souhaiterais pouvoir voir la suite du tableau sans perdre de vue les graphiques .
J'ai donc pensé à couper la feuille en 2 pour n'utiliser la scrollBar que sur la partie contenant le tableau ou à figer les graphiques pour toujours les avoir à l'ecran.
En revanche, je ne veux pas avoir deux fenêtres Excel de la même feuille, c'est pénible à utiliser :
If Windows.Count = 1 Then
ActiveWindow.NewWindow
ActiveWindow.WindowState = xlNormal
End If
En espérant que quelqu'un sache comment faire =)
Merci à tous!
1 réponse
-
Bonjour,
J'ai trouvé une sollution alternative : elle ramène les graphiques sur la page lorsqu'on sélectionne une cellule (n'importe laquelle).
C'est moins design que mon idée de départ mais çà marche !
A introduire dans les modules des feuilles Excel :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
A adapter selon les besoins ;)
Dim NbGraphs
NbGraphs = ActiveSheet.ChartObjects.Count
If NbGraphs = 0 Then Exit Sub
For i = 1 To NbGraphs
If i < 3 Then
ActiveSheet.ChartObjects(i).Top = Rows(ActiveWindow.ScrollRow).Top + 15
Else
ActiveSheet.ChartObjects(i).Top = Rows(ActiveWindow.ScrollRow).Top + 15 * 13
End If
'ActiveSheet.ChartObjects(i).Height = 15 * 11
'ActiveSheet.ChartObjects(i).Width = 15 * 17
Next i
End Sub
