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

Résolu
Pascal8et5 -  
 Pascal8et5 -
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
A voir également:

4 réponses

Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   339
 
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
1
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   339
 
Bonjour,

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

Cdlt
0
Pascal8et5
 
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)
0
Pascal8et5
 
Après différents essais, votre macro me semble PARFAITE !

Merci 1000 fois

Cordialement
0