Lister les onglet sur la feuille et pouvoir les renommer

[MuscatMimi]

Bonjour a toutes et a tous


est-il possible d'afficher ,via,une Macro,
la liste de tout les onglets du classeur, sur une feuil
au fur et a mesure qu'il y en a de créés
et de pouvoir,
également les renommer????


Merci a tous a l'avance

Bon dimanche

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Bonjour Vaucluse

pour lister les noms des feuilles sur la feuille active :

Option Explicit
Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
    Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub

pour les renommer, il faudrait les critères permettant de déterminer le nouveau nom...

bon dimanche.
@+

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re

pour incrémenter la liste au fur et à mesure de la création, code ci dessous à placer dans le module "thisworkbook" :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = Sh.Name
End Sub

@+

 

[wilfried_42]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Bonjour VaucluseImmo, Pierrot93 🙂

Voici un classeur avec Formules et Macros

 

[MuscatMimi]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Bonjour Wielfried,et Pierrot

j'ai pris le code de Pierrot,mais il y a que, celui la qui marche

Sub test()
Dim i As Integer
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub

Par contre Wilfried, ton code fonctionne avec formule et macros
pas l'un ,,ou l'autre??

A+++++++++

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re

le code donné à 10h44 fonctionne bien chez moi (excel2003), par contre tu l'as bien placé dans le module "thisworkbook" ?

@+

Edition : se déclenche lorisque tu crées une nouvelle feuille...

 

[wilfried_42]

Re : Lister les onglet sur la feuille et pouvoir les renommer

re:

j'aurais pu, mais Pierrot l'ayant déja fait... ca ne servait pas à grand chose 😀

dans le classeur joint, pour renommer la feuille, il suffit de saisir le nouveau nom en colonne B (Sauf sur le nom Feuille, controlé par macro).

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re

Aarf, bonjour Wilfried🙂, t'ais même pas salué dans mon précédent post, désolé... bon dimanche à toi..

 

[MuscatMimi]

Re : Lister les onglet sur la feuille et pouvoir les renommer

OK, milles excuses ,tu a raison wilfried

merci a tout les deux

En fait ce code, va me servir,avec mon Usf quand je créé un nouveau "fournisseur"
dans la validation, je créé une copy d'une feuille, modéle,dans mon classeur, pour ce nouveau fournisseur
mais il faut que je puisse,la renommer, ou voir la supprimer

Pour Supprimer une feuil de mon classeur, la je sais pas faire
en fait il faut que je l'a supprime de la liste de la feuille 1

A++++++

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re

pour renommer une feuille :

Sheets("Feuil1").Name = "toto"

renomme la feuille "Feuil1" en "toto"...

@+

 

[MuscatMimi]

Re : Lister les onglet sur la feuille et pouvoir les renommer

a partir de mon Usf, "Fournisseurs"
comme je crée une Feuille a la création d'un nouveau fournisseur
avec ton code, ça va me noter le nom de cette feuille en Col A
Aprés ,il faut que je puisse renommer, si besoin, cette feuil,
et aussi pouvoir supprimer cette feuill Fournisseur éventuellement

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re

pour renommer une feuille lors de sa création :


macro événementielle, à placer dans le module "thisworkbook"

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Name = "nomfeuille"
End Sub

attention le nom doit évoluer, car si nom déjà utilisé, messsage d'erreur...

 

[MuscatMimi]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re Pierrot

avec ce code

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).Value = Sh.Name
End Sub

je dois ajouter ce dernier code que tu m'a passé??

Sh.Name = "nomfeuille"

A++++++

 

[Pierrot93]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re

le dernier code donné sert à renommer la feuille lors de sa création, donc oui, si tu veux le faire.... Attention le nom de la nouvelle feuille devra changer à chaque fois, tu ne peux avoir 2 feuilles ayant le même nom dans un classeur...

bonne soirée
@+

 

[MuscatMimi]

Re : Lister les onglet sur la feuille et pouvoir les renommer

Re Pierrot

J'ai compris

Mais , une derniére question, est-t'il possible depuis la liste
des Noms onglets en Colonne A

de supprimer une ,ou plusieurs feuilles?????

Cordialement