Afficher la cellule D1 sans utiliser la molette de la souris ? Résolu/Fermé

Question

Bonjour, 

Après avoir travaillé sur plusieurs feuilles, et positionné le curseur un peu partout dans les cellules, je souhaite revenir en cellule D1 sur toutes les feuilles avec une macro par exemple.

Pas trop compliqué avec :

Sub CelluleD1()
'
' CelluleD1 Macro
' Macro enregistrée le 13/12/2019 par utilisateur
'
For Each f In Worksheets
 f.Select False
Next
Range("D1").Select
Sheets(1).Select
End Sub


Mais... parfois je vois à l'écran ma cellule D1 (avec quelques autres, bien sûr), mais sur d'autres feuilles, même si le curseur est bien en D1, l'affichage ne me montre pas cette plage, je vois des plages de cellules plus bas par exemple.
Je suis alors obligé d'utiliser une touche du clavier telle que flèche haut, flèche gauche ou droite, afin que la partie de la page qui m'intéresse apparaisse à l'écran.

Peut-on automatiser cette fonction "flèche haut" en même temps que la macro ?

Cordialement,

Pascal

Frenchie83 · Answer

Bonjour,

Copiez ces 2 lignes à la fin
ActiveWindow.ScrollRow = 1
ActiveWindow.Scrollcolumn = 1

Cdlt

Pascal8et5 · Answer

Bonjour Frenchie83,

je vous remercie pour ta réponse rapide.
Si votre code fonctionne pour la feuille 1, il ne marche pas hélas pour d'autres feuilles du classeur.

Comment diable faire remonter l'ascenseur ?
Il y a sûrement un "bouton" caché ! (LOL)

Frenchie83 · Answer

Ma macro fonctionne, encore faut -il savoir l'utiliser. Exemple qui fonctionne
    For i = 1 To Sheets.Count
        Sheets(i).Select
        [D1].Select
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
    Next i

Pascal8et5 · Answer

Après différents essais, votre macro me semble PARFAITE !

Merci 1000 fois

Cordialement

Afficher la cellule D1 sans utiliser la molette de la souris ?

4 réponses

Discussions similaires