Comment programmer l'équivalent de "CONTROL HOME" en VBA

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:

---

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.

Bonjour,

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

Code:

---

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.

Bonjour,

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

Code:

---

1 2 3 4 5

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

---

Merci pour vos réponses.

Les deux procédures fonctionnent parfaitement.

Bien cordialement