deplacement sur la feuille

[tactic6]

Bonjour le forum et tous les autres

j'essaie depuis ce matin de créer des raccourcis pour se deplacer plus vite sur ma feuille
ça marche tres bien pour les horizontales mais pas pour les verticales pourquoi ?
voici les codes

Sub dernierecell()
    Range("k66").Select
End Sub
Sub premierecell()
    Range("c12").Select
End Sub

je voudrais que quand je clic sur la macro "dernierecell" ma feuille affiche la cellule choisie alors que dans le cas présent la macro la sélectionne certes mais je ne la voies pas puisqu' elle est "hors champs"
en résumé je voudrait le même résultât qu'avec l'ascenseur mais en plus rapide

Merci et bon weekend

 

[Raja]

Re : deplacement sur la feuille

Bonjour,

Pour se déplacer dans la feuille, il suffit de marquer la rérérence de la cellule, par exemple G200 dans la zone nom (zone à gauche de fx - là où c'est déjà marqué la référence d'une cellule) et valider.

 

[tactic6]

Re : deplacement sur la feuille

Re
j'ai pas compris ce que tu veux m'expliquer
merci

 

[ninbihan]

Re : deplacement sur la feuille

Bonjour Tactic et Raja,

Ce qui donne en VBA
Application.Goto Reference:=Range("k67")

Slts,

Ninbihan

 

[tactic6]

Re : deplacement sur la feuille

Re
Aie erreur 1004
l'application Goto à échouée ??

 

[tactic6]

Re : deplacement sur la feuille

Re et pour ceux que ça interresse

Application.Goto Reference:=Worksheets("Nom de la Feuille").Range("A60"), _
    Scroll:=False
End Sub

et ça descend