personnalisé la rangée à l'ouverture d'un fichier excel en VBA

Bonjour à tous,

À chaque ouverture de mon fichier, après avoir trouver la cellule contenant EX: "pascal" j'aimerais que sa ligne soit positionné, dans la fenêtre window, à la cinquième rangée du haut pour être prêt à entrer les données. Les 4 premières étant l'entête seront figés. Je ne veux pas qu'il soit déplacé mais défilé..., j'espère d'avoir bien expliqué?

Pouvez-vous m'indiquer la formule exacte...je ne suis vraiment pas certain ce que j'avance ci-bas.

Code:

---

1 2 3 4 5 6

Sub workbook_open()   Cells.Find("pascal").Select activewindow.......   End Sub

---

MERCI BEAUCOUP!

Bonjour

Je ne suis pas certain d'avoir bien compris.
Regarde ce que fait ceci :

Code:

---

Application.Goto Reference:=Worksheets("Feuil2").Range("A10"), Scroll:=True

---

(choisis true ou false selon ce que tu veux pour l'argument scroll)
ou cela :

Code:

---

ActiveWindow.ScrollRow = 10

---

en conjuguant au besoin avec Select, selon le but que tu cherches à atteindre.

EDIT : en te re-relisant, le mot "figées" retient mon attention.
Ne serait-ce pas ceci, que tu voudrais finalement ? :

Code:

---

1 2 3 4 5

With ActiveWindow .SplitRow = 4 .FreezePanes = True .Panes(2).ScrollRow = 5 End With

---

(pas certain, mais ce pourrait bien être ce que tu cherches)

Je ne suis pas très loin de la réponse avec activewindow.scrolrow = 5 que tu me suggères...

À l'ouverture du fichier je lui demande de chercher un mot en particulier exemple: "pascal"

mon programme trouve effectivement la cellule rechercher et la page est bien positionner à la ligne 5...sauf que...

La cellule trouver est à la ligne 35 présentement, j'aimerais que ce soit cette ligne qui remonte en haut de la page soit à la cinquième ligne de la page pour plus de visibilité.

autrement dit, après avoir trouver la cellule contenant "pascal", je veux que toute sa ligne soit affiché en haut de la page soit à la ligne 5.

à la prochaine ouverture le mot "pascal" sera à la ligne 36 mais je veux qu'il soit toujours lisible sur la cinquième ligne de la page. Suis-je un peu plus claire? C'est pas trop évident

Bonjour,

Code:

---

1 2 3 4 5 6 7 8

Sub oioi() Const ValeurCherchee As String = "toto" Const LignesAuDessus As Long = 4 Dim LaFeuille As Worksheet Set LaFeuille = ActiveSheet   ActiveWindow.ScrollRow = Application.WorksheetFunction.Max(LaFeuille.UsedRange.Find(ValeurCherchee).Row - LignesAuDessus, 1) End Sub

---

à totalement sécuriser :

1) renseigner tous les paramètres de la méthode Find
2) prévoir le cas où Find ne trouve rien (= utiliser une variable range et tester si elle n'est pas "nothing")
3) customiser la valeur cherchée, la feuille où chercher et le nombre de lignes affichées au dessus
4) prévoir comment gérer le cas où la valeur cherchée est sur une ligne plus petite que le "nombre de LignesAuDessus" (ou égale)


j'ai déjà partiellement sécurisé le cas 4 ...

Si tu veux que l'on s'entende, montre ce que tu entends par "page". Les termes sont ici importants et sont partie intégrante d'un langage partagé et compris par tous sans laisser la moindre place à l'ambiguïté.
Le mieux sera, si tu as des difficultés à utiliser des termes techniques et pour éviter tout doute et toute confusion (déjà assez nombreux), de mettre ici une capture d'écran de ce que tu souhaites voir affiché (entêtes comprises) dans le cas, par exemple, de ta "ligne 35"

Merci Joe.levrai

Je ne comprend pas beaucoup ton codage mais il fait exactement ce que je m'attends de lui!

Et cette fois je n'oubli pas de faire résolu "pour le Modérateur"

Merci encore.