Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Se déplacer en vertical dans une feuille

Scorpio

XLDnaute Impliqué
Bonjour le Forum,
Dans ce classeur j'aimerais me déplacer en vertical, ce que je fais maintenant, en feuille 2,
mais je voudrais pas une cellule en couleur, seulement un nom, par EX: Dep ou un autre,
Je n'arrive pas a modifier le code, est-ce qu'un gentil membre pourrais me rendre ce service ??
D'avance merci, et à ++++
Scorpio
 

Pièces jointes

  • DéplacementVerticalFeuilleOK.xlsm
    31.1 KB · Affichages: 12

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans le fichier joint, j'ai nommé 'BAS' la cellule A2 et 'HAUT' la cellule A52.
Puis dans les codes respectifs des boutons :
Pour le bas:
VB:
Application.Goto [BAS], True

et pour le haut :
Code:
Application.Goto [HAUT], True

Avez-vous songé aux liens hypertextes pour ce faire ?

Cordialement
 

Pièces jointes

  • DéplacementVerticalFeuilleOK.xlsm
    31.3 KB · Affichages: 2

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

D'où l'intérêt d'expliciter en détail son besoin.

Avec l'enregisteur de macro en route, puis une recherche (CTRL+F) de 'DEP' on obtiens à peu près ce qui suit.
Pour le haut j'ai juste changé la direction de la recherche, remplacer 'xlNext' par 'xlPrevious'.

C'est une méthode de recherche rapide, qui boucle. C'est à dire que si vous cliquez sur 'BAS' lorsque vous êtes sur la dernière cellule qui contient "DEP" alors le bouton' BAS' vous ramènera en haut etc... idem pour l'autre bouton.

VB:
Sub cherhchebas()
On Error Resume Next
ActiveSheet.Range("A:A").Find(What:="DEP", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo 0
End Sub

Sub cherhchehaut()
On Error Resume Next
ActiveSheet.Range("A:A").Find(What:="DEP", After:=Cells(ActiveCell.Row, 1), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo 0

End Sub

cordialement
 

Scorpio

XLDnaute Impliqué
Re,
Oui, je suis d'accord, alors moi, je ne suis pas 1 champion du code comme vous sur le Forum, d'où l'intérêt de vous demander le secours.
Super boulot Roblochon, 1 grand merci, c'est exactement ca.
A bientôt
Scorpio
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…