XL 2016 changer automatiquement le nom de l'onglet dans une macro

[fjall]

Bonjour,

J'ai un fichier avec différents onglets. J'ai une macro qui permet de cacher ou d'afficher certaines colonnes.
Je souhaite savoir s'il existe un moyen qui permet automatiquement de prendre en compte les onglets sélectionnés sans avoir à les nommer dans le VBA.
Exemple dans mon fichier : 3 onglets nommés foin, paille et avoine. Si j'ajoute d'autres onglets, je voudrai que ceux-ci réagissent à la macro.

D'avance, merci.

PS : j'ai pris la peine de chercher sur le forum mais je n'ai pas trouvé.

 

[Hasco]

Bonjour,

Marco tout masquer:

Sub Toutmasquer()
'
' Afficher Macro
'
'
    Dim ws As Worksheet

    For Each ws In ActiveWindow.SelectedSheets
        With ws
            .Range("D25").EntireColumn.Hidden = True
            .Columns("C:C").ColumnWidth = 78
            .Columns("B:B").ColumnWidth = 10
            .Columns("A:A").ColumnWidth = 4
        End With
    Next
End Sub

PS : j'ai pris la peine de chercher sur le forum mais je n'ai pas trouvé.

Et pourtant la solution était là: Connaître la liste des feuilles sélectionnées

bon après-midi