[VBA-E]Changer la "légende" d'une feuille

**illight** · 09/02/2006, 11h27

Bonjour,

J'ai un petit soucis en VBA

Quand vous ouvrez visual basic éditor si vous allez sur une feuille vous avez ses propriétés qui s'affichent :

Je voudrais savoir si quelqu'un sait comment changer ce que j'ai entouré en rouge, en code VBA ?

J'ai beau essayé des captions, et des sources name il ne reconnait pas pour l'objet

Est-ce que quelqu'un aurait une idée sur la chose ?

Merci beaucoup pour votre aide

**Bigyork** · 09/02/2006, 11h30

Je ne crois pas que cela soit possible par code ou peut-être avec une API mais...

**Megaxel** · 09/02/2006, 11h32

Hello!
Je crois que j'ai une idée, sans les API:

Code :

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

1
2
3
Sub ChangeNom()
    ActiveWorkbook.Worksheets("feuil1").Name = "LeNomQueJeVeux"
End Sub

Non?

**Megaxel** · 09/02/2006, 11h33

Ok, j'ai dit une c********...
Désolé....
Je sors!

**ThierryAIM** · 09/02/2006, 11h49

Envoyé par Aide en ligne

Si vous ajoutez un contrôle ou un objet au moment de la conception, vous ne pouvez pas modifier sa propriété Name au moment de l'exécution.

je crois que c'est clair

**illight** · 09/02/2006, 12h07

Heuu non c'est pas clair parce qu ela ce n'est pas la propriété Name c'est une autre propriété..donc je ne connais pas le nom

**leroissejp** · 09/02/2006, 12h19

Bonjour,
Tout ce que tu peux faire, comme l'a indiqué Megaxel, c'est de renommer tes feuilles, alors tu auras
+ Feuil1(nom de la feuille)
+ Feuil2(autre nom de feuille)

le reste, ce n'est pas possible.

jpleroisse

**Megaxel** · 09/02/2006, 12h23

Et sinon, on peut avoir une idée du but de la manoeuvre? Pourquoi veux-tu modifier cette propriété (vu dans l'éditeur VBA), et pourquoi pas seulement le nom "visible" de l'onglet?

**Pierre Fauconnier** · 09/02/2006, 12h31

Bonjour

Cette propriété est la propriété Codename de la feuille... Cette propriété est en lecture seule, mais on peut la modifier via le vbproject du classeur

Code :

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

ThisWorkbook.VBProject.VBComponents(Worksheets("feuil1").CodeName).Name = "sh_Feuille1"

Pour créer une feuille et la "codenommer" directement, tu peux faire

Code :

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

1
2
3
4
5
6
7
8
Sub Creer_Feuille_Et_Renommer_VBA()
    Dim Feuille As Worksheet
 
    With ThisWorkbook
        Set Feuille = ThisWorkbook.Worksheets.Add()
        ThisWorkbook.VBProject.VBComponents(Feuille.CodeName).Name = "sh_MaFeuille"
    End With
End Sub

Attention: Il faut toutefois que la case "Faire confiance au projet Visual Basic" soit cochée dans le menu Excel Outils/Macros/Sécurité/Editeurs approuvés... (en tout cas pour XL2003, pour les versions antérieures, je pense que cette case n'existe pas...)

Envoyé par Megaxel

Et sinon, on peut avoir une idée du but de la manoeuvre?

Le but de la manoeuvre est que le code vba fonctionne même si un utilisateur renomme l'onglet dans Excel, car il est plus compliqué pour un utilisateur de modifier le nom VBA, surtout si le projet VBA est verrouillé.

Ainsi, si au sein du classeur, tu fais directement référence à la feuille via son nom vba,

Code :

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

sh_Feuille1.Range("a1") =...

ton code fonctionnera toujours, même si l'utilisateur modifie le nom de l'onglet... et il est plus simple de travailler avec des objets que l'on a soi-même nommés, plutôt que d'utiliser Feuil1, Feuil2, qui ne sont pas explicites...

Ok?

Pierre Fauconnier

**illight** · 09/02/2006, 13h36

Merci beaucoup Pierre

Elle ne doit pas etre en lecture seule puisque comme tu dis on peut la modifier

En fait le pourquoi je veux utiliser ça c'est que j'ai une macro qui supprime toutes les feuilles a chaque lancement de mon classeur qui import eun fichier texte, qui est éparpillé dans plusieurs feuilles

ce qui fait que quand je recharge je dois garder une feuille et son "codename" du coup change

De plus comme il l'a dit cela est très utile au lieu d'utiliser des noms de feuilles que ut as mis par une macro d'utiliser plutot ce codename

Merci beaucoup en tout cas

**Pierre Fauconnier** · 09/02/2006, 15h43

En fait, la propriété Codename d'un objet Sheet est en lecture seule.

Si tu essaies le code

Code :

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

thisworkbook.worksheets("Feuille1").codename = "sh_MaFeuille"

tu obtiendras une erreur "Propriété en lecture seule"...

mais la propriété Name d'un objet vbcomponent n'est pas en lecture seule, et c'est celle-là que tu modifies avec le code que j'ai donné dans mon message précédent.

Pierre Fauconnier

**Megaxel** · 09/02/2006, 15h46

Bien joué, Pierre!

[VBA-E]Changer la "légende" d'une feuille

Macros et VBA Excel

Discussions similaires

Partager

Partager