Discussion :

[clamar75000]

Bonjour,
Sur Internet il y a beaucoup de questions sur ce sujet mais je n'en ai trouvé aucune de satisfaisante pour le cas où
1) les volets sont figés et
2) les données sont filtrées

Supposons que les volets soient figés après la 3ième ligne et après la deuxième colonne; Quand les données ne sont pas filtrées, la première cellule est la cellule L4C3.
Par contre en filtrant les données, en supposant que la première occurrence se situe à la ligne 10, la première cellule va être L10C4

Le code ci-après fonctionne correctement quand les données ne sont pas filtrées

Code :

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

1
2
3
4
5
6
7
Sub scrollpane()
   With ActiveWindow
      .ScrollRow = 1
      .ScrollColumn = 1
      .ActivePane.VisibleRange.Cells(1).Select
   End With
End Sub

Mais il se positionne toujours sur la même cellule quand les données sont filtrées, donc pas sur la première cellule visible de la fenêtre.

merci pour vos retours.

[anasecu]

Bonjour,

Ta question n'inspire pas beaucoup, alors je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ctrl_home()
Dim lig As Long
    lig = ActiveWindow.SplitRow + 1
    With ActiveSheet
        While .Rows(lig).Hidden
            lig = lig + 1
        Wend
        .Cells(lig, ActiveWindow.SplitColumn + 1).Activate
    End With
End Sub

Si tu masques aussi des colonnes, il faut le même traitement pour les colonnes.

[joe.levrai]

Bonjour,

on ajoutant la propriété SpecialCells ça semble correspondre à ton souhait

Code :

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

1
2
3
4
5
With ActiveWindow
    .ScrollRow = 1
    .ScrollColumn = 1
    .ActivePane.VisibleRange.SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
End With

[clamar75000]

Merci pour vos réponses.

Les deux procédures fonctionnent parfaitement.

Bien cordialement