XL 2010 Renommer séquentiellement les feuilles objets (vbe)

herve62

XLDnaute Barbatruc

Supporter XLD

• 19 Septembre 2023

• #2

Bonsoir Laurent
Non je veux que ce soit Feuil3(France) et pas comme l'image

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Septembre 2023

• #3

herve62 à dit:

Bonsoir
Il me semble (plus sûr) 'il y qq années JOB m'avait permis de renommer les feuilles (voir image) 1 2 3 4 5 ... et pas 45 46 ...
mais je retrouve pas
Est ce vraiment possible ?

Cliquez pour agrandir...

Bonjour,
S'il n'y a pas plus que 5 feuilles, c'est facilement faisable manuellement dans vba

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2023

• #4

Bonsoir.
Tapez "Feuil3" au lieu de "Feuil45" dans le champ "(Name)" de l'objet Worksheet (à ne pas confondre avec sa propriété 'Name" qui est le nom d'onglet).
Mais pourquoi par "WshFrance" qui serait plus clair ?

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 19 Septembre 2023

• #5

Bonsoir Jacky
Le truc c'est que si le si le fichier se lance x fois ( possible d'aller à + de 500) je ne sais pas si VBE acceptera Feuil567 exemple ?
et se taper manuellement .... à chaque fois pas marrant

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Septembre 2023

• #6

herve62 à dit:

Bonsoir Jacky
Le truc c'est que si le si le fichier se lance x fois ( possible d'aller à + de 500) je ne sais pas si VBE acceptera Feuil567 exemple ?
et se taper manuellement .... à chaque fois pas marrant

Cliquez pour agrandir...

Heuu!!
Je ne comprend pas ce que tu veux dire...
Mon image démontre ce que Dranreb (que je salue), d'écrit.
Un "CodeName" d'une feuille est unique et ne change pas à l'ouverture d'un classeur
Ou alors je n'ai pas compris la question.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2023

• #7

Essayez un truc comme ça :

VB:

Sub WshCodeName()
   Dim Wbk As Workbook, Wsh As Worksheet
   Set Wbk = ActiveWorkbook
   For Each Wsh In Wbk.Worksheets
      Wbk.VBProject.VBComponents(Wsh.CodeName).Properties("_CodeName") = "Wsh" & Wsh.Index
      Next Wsh
   End Sub

Attention l'accès au modèle d'objet du projet VBA doit être approuvé dans les options du projet.

Non, mais c'est vrai que lorsqu'on crée des feuilles supplémentaires par VBA, il y met n'importe quoi comme CodeName. Alors au bout d'un moment ça pourrait être utile d'avoir un moyen de les renommer en masse …

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Septembre 2023

• #8

Bonsoir

Je crois qu' @hervé62 parle de ceci

Code:

Sub test()
Dim i%
For i = 1 To 5
ThisWorkbook.VBProject.VBComponents(Sheets(i).CodeName).Name = "STAPLE" & i
Next
End Sub

NB: Au préalable, cocher : Options/Centre de gestion.../Paramètres macros/Accès approuvé au modèle d'objet du projet VBA

PS: A tester sur un classeur vierge avec 5 feuilles

EDITION : Bim! collision
Désolé, Dranreb, pas vu ton message

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Septembre 2023

• #9

RE...
Hello JM
Oui par vba, mais se taper un code pour changer le "codename" de 2 feuilles, je trouve un peu exagéré.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Septembre 2023

• #10

Re

Bonjour @Jacky67
Si on compte toutes les fois sur XLD où on utilise VBA alors qu'Excel sait faire avec ce qu'il a dans le bide 😉
(formules, TCD, PQ etc...), on n'est pas rendu 😉

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 19 Septembre 2023

• #11

Ok merci bien à vous
je testerai demain , là à la main ça va
@Jacky67 > j'ai écris au #6 à plus de 500 !!
Bonne soirée
PS je viens juste de voir Jean Michel > là je ne pense pas que EXCEL supprime des onglets , en ajoute ...les renomme regarde si l'onglet nommé existe ..etc ???

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Septembre 2023

• #12

@herve62

Qui dans la vrai vie utilise un classeur avec 500 feuilles ?
Dans quel contexte ?

Ps: en général, je n'utilise que deux feuilles (voir trois)
Accueil, BD et TCD
😉

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Septembre 2023

• #13

herve62 à dit:

Bonsoir Laurent
Non je veux que ce soit Feuil3(France) et pas comme l'image

Cliquez pour agrandir...

Re..
C'est pourtant pas compliqué....
Tu remplaces Feuil45 par Feuil3 et Feuil46 par Feuil4 à l'endroit que j'ai encadré.[#3]
Il faut évidemment enregistrer le classeur.

 

Dernière édition: 19 Septembre 2023

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 19 Septembre 2023

• #14

Staple1600 à dit:

Re

Bonjour @Jacky67
Si on compte toutes les fois sur XLD où on utilise VBA alors qu'Excel sait faire avec ce qu'il a dans le bide 😉
(formules, TCD, PQ etc...), on n'est pas rendu 😉

Cliquez pour agrandir...

Honte à moi, j'en fais partie, cela est certainement dû que certain sont plus à l'aise en vbe qu'en formules.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 19 Septembre 2023

• #15

Bonjour à vous tous

@herve62

Ceci devrait te rassurer et bien sur tu peux enregistrer le fichier et le rouvrir sans problème😉



Mais qui à un fichier avec 10 000 000 de feuilles comme sur l'image 😵🤔😀

 

Pièces jointes

• Le million ou plus.xlsm

  8.5 KB · Affichages: 1

Dernière édition: 19 Septembre 2023

Vote positif 0 Vote négatif