Excel, ScrollBar sur partie de la feuille / figer un graphique
sym59
Messages postés
46
Statut
Membre
-
sym59 Messages postés 46 Statut Membre -
sym59 Messages postés 46 Statut Membre -
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!
A voir également:
- Excel scrollbar
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
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 :
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