Discussion :

[Gonteur]

Bonjour,

Je cherche à réinitialiser une feuille Excel à son ouverture

J'ai réussi à supprimer les filtres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
 With ThisWorkbook.Worksheets("Ma Feuille")
 If .FilterMode Then .ShowAllData
 End With
 End Sub

Mais je n'y arrive pas pour les colonnes et/ou lignes masquées

Merci de l'intérêt que vous y porterez

[Ben_L]

Bonjour,

Dans un nouveau classeur, masquez quelques colonnes.
Puis lancez l'enregistreur de macros, sélectionnez toute la feuille, faîtes un clic droit sur les entêtes de colonnes et cliquez sur "Afficher".
Arrêtez l'enregistreur de macros et allez voir le code qui a été créé.
Vous pourrez alors nettoyez ce code pour obtenir ce que vous voulez.

Réitérez avec les lignes si l'adaptation n'est pas évidente.

Cela devrait vous permettre de trouver la bonne syntaxe

[Gonteur]

Merci Ben_L de ton aide c'est très apprécié.

je ne suis vraiment pas expert mais je tente d'apprendre à chaque fois.

Le code qui ressort de la manipulation est

Selection.EntireColumn.Hidden = False

je ne sais pas trop comment l'appliquer dans le Workbook

[Gonteur]

Merci Ben_L, je ne connaissais pas l'outil enregistreur de macro, cela m'a dirigé vers une réponse fonctionnel

La voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
With ThisWorkbook.Worksheets("Ma Feuille")
If .FilterMode Then .ShowAllData
    Columns("A:ZZ").Select
    Selection.EntireColumn.Hidden = False
End With
End Sub

[Gonteur]

Et plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
With ThisWorkbook.Worksheets("Billets 17-18")
If .FilterMode Then .ShowAllData
    Columns("A:ZZ").Hidden = False
End With
End Sub

[Ben_L]

Il est souvent plus pratique et plus rapide d'utiliser l'enregistreur de macros...
Reste ensuite, effectivement, à apprendre à extraire la partie importante du code généré automatiquement.
De façon générale, on peut dire que le plus important pour nettoyer le code de l'enregistreur, c'est de supprimer toutes les actions de sélection ainsi que les références aux objets actifs.

Une autre remarque importante concernant le code que vous proposez ici : l'utilisation de Columns sans qualificateur (càd sans préciser la référence de l'objet auquel appartient cette méthode) est équivalente à l'appel ActiveSheet.Columns.
Dans la mesure où vous appelez la méthode Columns à l'intérieur d'un With qui fait référence à la feuille qui vous intéresse, il serait préférable d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    With ThisWorkbook.Worksheets("Billets 17-18")
        If .FilterMode Then .ShowAllData
        .Columns.Hidden = False
        .Rows.Hidden = False
    End With
End Sub