Lien VBA

[Eric]

J'aimerai faire das liens dans une même feuille. Mais pour cela j'aimerai que la cellule que je selectionne se positionne en haut de la feuille.

En fait quand je suis suir une feuille et que je fais un lien vers la cellule A50 par exmeple (Range('A50').Select, la macro se positionne bien sur la cellule mais elle est au millieu de la page ou en bas! Je voudrais que A50 arrive en haut de la page !!

Vous avez une idée !!

 

[Creepy]

Bonjout à tous,

il faut faire comme cela :

Range('a1').select
ActiveWindow.SmallScroll Down:=110 ' Decale de 110 cellules

Essaie tu verras que ton affichage commence à la cellule A111, puisque je lui ai demandé de descendre vers le bbas de 100 lignes

A toi de manipuler cette commande par une variable par exemple qui ferrait la difference entre la position actuelle et la posistion 50 pour s'y rendre.

++

Creepy

 

[_Thierry]

Bonjour Eric, Creepy, le Forum

Non non Creepy, on peut faire bien plus simple et Direct...😉

Option Explicit

Sub TheScroller()
Dim Ligne As Long

Ligne = Application.InputBox('Indiquez le Numéro de la Ligne à atteindre', 'Row Navigator', Type:=1)

ActiveWindow.ScrollRow = Ligne

End Sub

Et dans le cas d'Eric :

Option Explicit

Sub TheScroller()
Dim Cell As Range

Set Cell = Application.InputBox('Indiquez L'addresse à atteindre exemple : ''X35888''', 'Row Navigator', Type:=8)

    With Cell
        .Select
        ActiveWindow.ScrollRow = .Row
    End With
End Sub

Bon Après Midi
[ol]@+Thierry[/ol]