OVH Cloud OVH Cloud

comment utiliser ScrollRow

4 réponses
Avatar
André
Bonjour,

En vba 2000 je trie un fichier de 120 lignes et je voudrais à la fin du tri
utiliser ScrolRow pour remonter la ligne 120 à la ligne 12. J'ai beau
essayer ,je ni arrive pas.
L'un de vous peut-il m'aider?
Merci.

4 réponses

Avatar
Garette
Bonjour,

Sub test()
ActiveWindow.ScrollRow = 12
End Sub
Va afficher la cellule de la ligne 12 en haut à gauche de la fenetre mais la
cellule active restera la 120.
(Ou l'inverse pour ActiveWindow.ScrollRow = 120 et cellule active = 12)

Tu dis remonter la ligne 120, c'est à dire la déplacer ?
Dans ce cas c'est plutot :
Sub Test2()
Rows("120:120").Cut (Rows("12:12"))
End Sub
Avatar
Garette
Bonjour,

Sub test()
ActiveWindow.ScrollRow = 12
End Sub
Va afficher la cellule de la ligne 12 en haut à gauche de la fenetre mais la
cellule active restera la 120.
(Ou l'inverse pour ActiveWindow.ScrollRow = 120 et cellule active = 12)

Tu dis remonter la ligne 120, c'est à dire la déplacer ?
Dans ce cas c'est plutot :
Sub Test2()
Rows("120:120").Cut (Rows("12:12"))
End Sub
Avatar
JB
Bonjour,

Hier, j'avais donné cette réponse:

ActiveWindow.ScrollRow = 108

La ligne 108 est positionnée en haut de l'écran et la ligne 120 se
retouve en 12eme position.

Ci dessous, on fige les volets :

Range("A12").Select
ActiveWindow.FreezePanes = True
ActiveWindow.ScrollRow = 120

Cordialement JB




Cordialement JB

On 25 jan, 09:32, "André" wrote:
Bonjour,

En vba 2000 je trie un fichier de 120 lignes et je voudrais à la fin du tri
utiliser ScrolRow pour remonter la ligne 120 à la ligne 12. J'ai beau
essayer ,je ni arrive pas.
L'un de vous peut-il m'aider?
Merci.


Avatar
André
Je précise en utilisant ScrollRow je veux par ex: que la ligne 100 qui est
la fin du fichier, et toutes celles qui précèdent , se retrouvent en ligne
12. J'aurai ainsi d'apparent les 4 derniéres lignes car mon fichier démarre
en ligne 8.
J'ai déjà utilisé cette méthode mais je ne m'en s'ouviens plus et je n'ai
pas conservé d'exemple.
Merci pour la réponse.