Macro pour bien afficher les fichiers Excel

Posté le par

Vous avez envie que vos document s’ouvrent sur la première feuille, et que dans chaque feuille la sélection soit sur A1 au lieu d’être en plein milieu.

Voici la macro à placer dans votre fichier personnel, et à rattacher à un raccourci pratique.

Sub BienPrésenter()
    ' sélectionne la cellule A1 de chacune des feuilles
    ' et se met sur la première feuille visible
    
    ' ATTENTION: on doit activer ou sélectionner une feuille
    ' avant de pouvoir sélectionner une cellule de cette feuille
    premVisible = 0
    For Each f In ActiveWorkbook.Sheets
        If f.Visible = True Then
            f.Select
            f.Range("A1").Select
            'on récupére le numéro de la première feuille visible
            'important au cas où la première serait masquée
            If premVisible = 0 Then premVisible = f.Index
        Else
            f.Visible = True
            f.Select
            f.Range("A1").Select
            f.Visible = False
        End If
    Next f
    'on se met sur la première feuille visible
    ActiveWorkbook.Sheets(premVisible).Select
    ActiveWorkbook.Sheets(premVisible).Range("A1").Select
End Sub

Partagez:

Ceci pourrait aussi vous intéresser: