Sujet Précédent Sujet Suivant

Excel, ScrollBar sur partie de la feuille / figer un graphique

Fermé
sym59 Messages postés 40 Date d'inscription jeudi 10 mai 2012 Statut Membre Dernière intervention 11 août 2015 - 18 janv. 2014 à 19:03
sym59 Messages postés 40 Date d'inscription jeudi 10 mai 2012 Statut Membre Dernière intervention 11 août 2015 - 21 janv. 2014 à 10:17
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 : 

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:

1 réponse

Réponse 1 / 1
sym59 Messages postés 40 Date d'inscription jeudi 10 mai 2012 Statut Membre Dernière intervention 11 août 2015
21 janv. 2014 à 10:17
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)
    
    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
A adapter selon les besoins ;)
0