Afficher la cellule D1 sans utiliser la molette de la souris ? [Résolu]

Signaler
-
 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

4 réponses

Messages postés
2060
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
25 janvier 2020
255
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
Messages postés
2060
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
25 janvier 2020
255
Bonjour,

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

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

Merci 1000 fois

Cordialement