Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Nom feuille

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

roro69

XLDnaute Impliqué
Bonsoir à tous;
Voici ma question:
J'aimerai pouvor changer le nom de mes feuilles à chaque lancement d'un nouveau classeur dans les propriété du vba.
J'ai déjà ce bout de code qui me permet de changer le nom de mes feuilles:
Sub test()
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "F" & i + 1
i = i + 1
Next ws
End Sub
si quelqu'un pouvait m'aider merci d'avance.
Bonne soirée à tous
 
Trier par date Trier par votes
Re : Nom feuille

Re, Bonjour Didier

La valeur est "Feuil1"

Après avoir modifié comme ceci, ça fonctionne en prenant la nom de la feuille et non son code name

Code: 
Wb.VBProject.VBComponents([COLOR=blue]Ws.Name[/COLOR]).Properties("_CodeName") = "F" & i

Le code name des feuilles est bien F1,F2,F3
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Nom feuille

Bonjour à tous,
Salut PO 🙂,

Je pense que Roro souhaitait avoir le nom F1 dans le nom de l'onglet donc bien le Name et pas le (Name)

Si j'interprète mal la demande de Roro... c'est ce que je souhaiterais 😛

A+ 🙂
A+ à tous
 
Vote positif 0 Vote négatif
Re : Nom feuille

Re,

Ceci fonctionne placé dans le Perso.xls
Je vais le tester en Add-in

Code: 
Option Explicit

Sub Nomme_F()
Dim Ws As Worksheet
Dim i As Byte
On Error Resume Next
For Each Ws In ActiveWorkbook.Worksheets
Ws.Name = "F" & i + 1
i = i + 1
Next Ws
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Nom feuille

Re,

Je commence a me perdre un peu avec ces Name ....😀

Pour avoir le nom "F1" ou 2 ou 3 dans l'onglet de la feuille
Code: 
Private Sub AppXL_NewWorkbook(ByVal Wb As Excel.Workbook)
Dim Ws As Worksheet
Dim i As Byte
    For Each Ws In Wb.Worksheets
        i = i + 1
        'Wb.VBProject.VBComponents(Ws.Name).Properties("_CodeName") = "F" & i
        Ws.Name = "F" & i
    Next Ws
End Sub

C'est ça que tu souhaites ?
 
Vote positif 0 Vote négatif
Re : Nom feuille

Re,

J'étais en train de faire de multiples tests pour tenter de reproduire votre problème sur ma machine... J'étais justement sur un peu la même piste que btqr, à savoir : la valeur de Ws.CodeName au moment de l'exécution.

Voici ce que je constate :
Apparemment lors de la création du nouveau classeur, il y a un infime laps de temps (on parle en dixième, voire centième de seconde là) qui s'écoule avant que le CodeName de la feuille ne soit véritablement créé en interne dans VBE. Ainsi, sous certaine config, il semble que ce nom ne soit pas encore "disponible" au moment du déroulement du code.

Finalement, btqr contourne le problème en fournissant à la VbComponents le nom de la feuille et non son CodeName, et ainsi ça marche car lors de la création d'une feuille , les deux ont la même valeur ("Feuil1"), en tout cas avec la version française d'Excel. En réalité, vbComponents attend bien un CodeName.

Pourriez-vous tester cette version SVP :

Code: 
[COLOR=GRAY][B][I]DANS UN MODULE DE CLASSE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] AppXL_NewWorkbook([COLOR=NAVY]ByVal[/COLOR] Wb [COLOR=NAVY]As[/COLOR] Excel.Workbook)
[COLOR=NAVY]Dim[/COLOR] Ws [COLOR=NAVY]As[/COLOR] Worksheet
[COLOR=NAVY]Dim[/COLOR] i [COLOR=NAVY]As Byte
    For Each[/COLOR] Ws [COLOR=NAVY]In[/COLOR] Wb.Worksheets
        i = i + 1
        [COLOR=NAVY]Do While[/COLOR] Ws.CodeName = ""
            DoEvents
        [COLOR=NAVY]Loop[/COLOR]
        Wb.VBProject.VBComponents(Ws.CodeName).Name = "F" & i
    [COLOR=NAVY]Next[/COLOR] Ws
[COLOR=NAVY]End Sub[/COLOR]
Cordialement,

EDITION :

J'ajoute qu'en théorie :
Code: 
Wb.VBProject.VBComponents(Ws.CodeName).Properties("_CodeName")
et
Code: 
Wb.VBProject.VBComponents(Ws.CodeName).Name
sont équivalents
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Nom feuille

Bonsoir;
Merci pour toute vos réponses et votre attention ; eh bien je viens juste de rentrer et j'ai testé ta première version MDF et çà fonctionne bien chez moi ;merci beaucoup
Merci aussi à bqtr ;et jcgl.
Je vous sert un petit jura et trinque à votre bonne santé.
 
Vote positif 0 Vote négatif
Re : Nom feuille

Re,

Je viens de tester ta seconde version et ça marche nickel (Excel 2002).
Je ferais le test avec la première version chez moi sur mon ordi (Excel 2003) un peu plus costaud que celui-ci.

Merci pour les explications

Bonne soirée
 
Vote positif 0 Vote négatif
Re : Nom feuille

bqtr à dit:
Re,

Je viens de tester ta seconde version et ça marche nickel (Excel 2002).
Je ferais le test avec la première version chez moi sur mon ordi (Excel 2003) un peu plus costaud que celui-ci.

Merci pour les explications

Bonne soirée
Cliquez pour agrandir...
Merci pour ta collaboration qui m'a permis de cerner le problème. C'est tellement rageant de ne pas comprendre.

J'attends le retour de test de JCGL et si c'est bon, je posterai le correctif en entier.

Cordialement,
 
Vote positif 0 Vote négatif
Re : Nom feuille

Rebonsoir
Je viens de tester ta nouvelle version ;malgré quelque embrouilles entre les macros complémentaires crées ; je constates qu'elle fonctionne parfaitement; mieux que la première qui au bout d'un troisième essai me chargeait une erreur d'exécution "9".
Donc après avoir testé sur qutre nouveau classeur ta dernière version marche parfaitement.
Merci encore
 
Vote positif 0 Vote négatif
Re : Nom feuille

Re bonsoir JCGL Et mdf
Chez moi la dernière version de mdf marche super bien; par contre la version de bqtr change le nom des onglets et non celui des feuilles dans le projet VB.
Bonne soirée
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
277
job75
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
346
fanch55
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
114
un internaute
U
  • Résolu(e)
XL 2021 Taille de la feuille à l'ouverture
Réponses
11
Affichages
211
guy72
L
  • Résolu(e)
XL 2021 VBA _ Fermer un PDF
Réponses
5
Affichages
210
Laurent.
L
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
4 5 6
Réponses
86
Affichages
1 K
patricktoulon
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
591
tnion
T
A
  • Question Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
285
arvin
A
B
  • Question Question
Microsoft 365 couleur cellule A1 suivant la protection de la feuille
Réponses
4
Affichages
92
bendv
B
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
627
telemarrk
T
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
281
safranien
S
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
688
job75
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
538
MBEPID
M
U
  • Question Question
Autres [RÉSOLU] Renuméroter feuilles classeur dans le bon ordre avec cette macro
Réponses
2
Affichages
363
un internaute
U
E
  • Question Question
Microsoft 365 Total général TCD à gauche : Solution VBA ?
Réponses
2
Affichages
478
merinos-BernardEtang
E
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
434
Excellearning
E
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
384
thunder23
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
394
cathodique
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
970
laurent950
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
2 K
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…