Geler le nom des Feuilles Excel

**shadockgreg** · 17/11/2006, 11h24

Bonjour,

je voudrais empecher l'utilisateur de modifier le nom des feuilles (utilise dans les macros) dans un classeur Excel. Quelle instruction dois je utiliser ?

Autre idee sinon mais pas sur que ce soit possible ...
Le mieux serait que mon code utilise un nom de la feuille. Est il possible de donner une reference "absolue" a une feuille et de la reutiliser par la suite.
Je pensais a l'utilisation d'objets d'une collection mais je na'i pas vraiment d'idee. Set Mafeuille = Sheets(1) est impossible vu que je peux bouger les feuilles ...

Merci pour vos conseils
++ Greg

**ouskel'n'or** · 17/11/2006, 11h39

J'ai une idée mais qui n'est pas absolue.
Quand tu change le nom d'une feuille, elle conserve son index. Soit tu travailles avec l'index (pas bien pratique mais ça fonctionnerait) mais tu as une autre solution, à l'ouverture de ton fichier, définir le nom de tes feuilles.
Tu crées un tableaux de tous tes noms de feuilles et ensuite tu fais

Code :

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

1
2
3
4
5
Tableau = Array("", "Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5")
For each LaFeuille in activeworkbook.worksheets
     i = i + 1
     LaFeuille.name = LeTableau(i)
Next

Tu mets cette macro dans Sub Workbook_open()

Pour créer ta macro et obtenir l'index de chaque feuille, tu fais l'inverse en mettant provisoirement le résultat dans une feuille vierge

Code :

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

1
2
3
4
For each LaFeuille in activeworkbook.worksheets
     i = i + 1
     Cells(i,1).value = LaFeuille.name
Next

... et tu récupères ta liste pour créer le tableau
Juste une idée puisque la protection des feuilles n'empêche pas de modifier le nom

**SfJ5Rpw8** · 17/11/2006, 11h44

tu peu utiliser le "codeName"... : le nom que tu peu modifier dans l'éditeur VBE .. en modifiant la propriété noté (Name) , (avec les parenthéses)..

puis dans ton code ..

Code :

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

1
2
 
Debug.print Feuil1.NAME

avec Feuil1 .. le "CodeName" de ta feuille pas forcément = au nom de ta feuille ".Name"

**ouskel'n'or** · 17/11/2006, 12h00

Ah ! Je préfère effectivement. Je n'y avais pas pensé

**ouskel'n'or** · 17/11/2006, 12h30

J'ai restauré ma réponse, le pb avec Feuil1.name étant pour se repérer si tu as un grand nombre de feuilles et pour modifier tes macros si elles sont déjà écrite

Ensuite, si tes feuilles sont renomées par un utilisateur, à l'examen, tu ne t'y retrouveras plus.

**SfJ5Rpw8** · 17/11/2006, 12h34

Envoyé par ouskel'n'or

J'ai une idée mais qui n'est pas absolue.
Quand tu change le nom d'une feuille, elle conserve son index. ...

et si tu change l'ordre des feuilles...?

Tu peu aussi protéger le classeur, menu outils /protection / classeur/structure

**SilkyRoad** · 17/11/2006, 12h36

bonjour

je sais que j'interviens après la bataille, mais en complément des infos données par bbil

http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/#LI

http://silkyroad.developpez.com/VBA/...alcul/#LII-B-6

bonne journée
michel

**ouskel'n'or** · 17/11/2006, 12h46

Envoyé par bbil

et si tu change l'ordre des feuilles...?

Tu as vérifié ? L'index ne change pas, et donc tu peux toujours associer le nom à l'index, non ? (je n'ai pas enregistré mon test)
Tu dis si tu penses le contraire

**SfJ5Rpw8** · 17/11/2006, 13h25

Envoyé par ouskel'n'or

Tu as vérifié ? L'index ne change pas, et donc tu peux toujours associer le nom à l'index, non ? (je n'ai pas enregistré mon test)
Tu dis si tu penses le contraire

si il bouge finalement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub liste()
Debug.Print "Avant :"
For Each lafeuille In ActiveWorkbook.Worksheets
  Debug.Print lafeuille.Name
 Next
Sheets(1).Move After:=Sheets(2)
Debug.Print "Aprés déplacement"
For Each lafeuille In ActiveWorkbook.Worksheets
  Debug.Print lafeuille.Name
 Next
End Sub