Utilier nom de cellule au lieu de nom de feuille dans VBA

Bonjour à tous,

Tout d’abord, je tiens à vous dire que je suis une grande fan, j'utilise régulièrement excel cependant je ne suis pas une pro et je m'appuie bcp sur vos postes pour adapter ce que je veux obtenir.

Malheureusement, ajd malgré mes recherches, je sèche, je ne trouve pas de solution à mon cas.

Fichier en pièce jointe, je vous l'expose.

J'ai le code suivant, trouvé sur ce forum et qui fonctionne très bien afin d'utiliser l’option "grouper" dans une feuille protégée.

Private Sub Workbook_Open()

With Worksheets("250") 'Nom de ma feuille

.EnableAutoFilter = True

.EnableOutlining = True

.Protect Contents:=True, Password:="", UserInterfaceOnly:=True

End With

... etc vs le nombre de feuille que j'ai.

Mon cas est que je change le nom des feuilles vs le numéro de dossier que j'ai. afin d'éviter que cela me gène par exemple pour les lien hypertextes, j'ai nommé la cellule D2 de chaque feuille "_1", "_2",... etc.

Ce que je souhaiterai faire, c'est qu'au lieu que mon code se réfère à la feuille, il se réfère au nom que j'ai mis dans la cellule "D2". Est-ce que c'est possible ?

Est-ce que je suis assez claire dans ma demande ?

Merci d'avance de l'attention que vous porterez à mon cas, au plaisir de vous lire .

39modele.xlsm (377.00 Ko)

Bonjour,

Essaie :

Private Sub Workbook_Open()
    Dim nm As Name
    For Each nm In ThisWorkbook.Names
        With nm.RefersToRange.Worksheet
            .Unprotect '?
            .EnableAutoFilter = True
            .EnableOutlining = True
            .Protect Contents:=True, Password:="", UserInterfaceOnly:=True
        End With
    Next nm
End Sub

Cordialement.

WOUAW !!

Magnifique, ça fonctionne très bien, c'est parfait et super rapide , merci beaucoup

Rechercher des sujets similaires à "utilier nom lieu feuille vba"