Utilier nom de cellule au lieu de nom de feuille dans VBA Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
Jen'
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 5 septembre 2017
Version d'Excel : 2010

Message par Jen' » 5 septembre 2017, 12:30

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 . :)

MODELE.xlsm
(377 Kio) Téléchargé 35 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 447
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 5 septembre 2017, 12:43

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.
J
Jen'
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 5 septembre 2017
Version d'Excel : 2010

Message par Jen' » 5 septembre 2017, 13:25

WOUAW !!
Magnifique, ça fonctionne très bien, c'est parfait et super rapide , merci beaucoup :sp: :bien:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message