Bonjour,

Sur une feuille qui comporte plusieurs tableaux les uns au-dessus des autres, j'aimerais faciliter la navigation en figeant les volets adéquats.

Voici le code:
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
Sub test()
        
        Application.ScreenUpdating = True
        
        Dim c As Range      'cellule sélectionnée par l'utilisateur
        Dim c2 As Range     'cellule au coin de la région dont on veut figer les volets
        
        Set c = ActiveCell
        Set c2 = Cells(c.CurrentRegion.Rows(1).row, 1)

        ActiveWindow.FreezePanes = False
        Application.Goto c2, True
        ActiveWindow.SplitRow = c2.row + 2
        ActiveWindow.SplitColumn = c2.Column + 5
        ActiveWindow.FreezePanes = True
        
        c.Activate

End Sub
Le souci, c'est que, d'une part, la ligne 13 du code ne s'exécute a priori pas bien - au pas à pas, la ligne n'est pas fractionnée - et que, d'autre part, une fois la macro exécutée, l'écran ne bouge plus verticalement - seule, la barre de défilement monte et descend sous l'action de la molette.

Est-ce que vous voyez où pourrait se situer la solution?


ICI, une discussion au sujet d'un problème que j'avais rencontré pour figer des volets, au cas où cela vous intéresse.