Lister les onglet sur la feuille et pouvoir les renommer

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #2

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

Bonjour Vaucluse

pour lister les noms des feuilles sur la feuille active :

Code:

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.
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #3

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" :

Code:

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

@+

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 22 Février 2009

• #4

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

Bonjour VaucluseImmo, Pierrot93 🙂

Voici un classeur avec Formules et Macros

 

Pièces jointes

• renommer feuille.xls

  36 KB · Affichages: 113
• renommer feuille.xls

  36 KB · Affichages: 113
• renommer feuille.xls

  36 KB · Affichages: 118

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 22 Février 2009

• #5

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

Cliquez pour agrandir...

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

A+++++++++

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #6

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...

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 22 Février 2009

• #7

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).

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #8

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..

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 22 Février 2009

• #9

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++++++

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #10

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

Re

pour renommer une feuille :

Code:

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

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

@+

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 22 Février 2009

• #11

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #12

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"

Code:

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...

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 22 Février 2009

• #13

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

Cliquez pour agrandir...

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

Sh.Name = "nomfeuille"

Cliquez pour agrandir...

A++++++

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Février 2009

• #14

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
@+

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 23 Février 2009

• #15

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

 

Vote positif 0 Vote négatif