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

Résolu/Fermé
Pascal8et5 - 13 déc. 2019 à 17:42
 Pascal8et5 - 13 déc. 2019 à 18:35
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

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
13 déc. 2019 à 18:20
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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
13 déc. 2019 à 17:56
Bonjour,

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

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

Merci 1000 fois

Cordialement
0