Renommer des onglets automatiquement [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
jeudi 3 octobre 2013
Statut
Membre
Dernière intervention
10 mars 2014
-
 Anémone -
Bonjour à tous,

Je ne sais pas si il y a quel qu'un qui peut m'aider avec mon problème mais je prend une chance des fois que...

Je m'explique :
Dans mon fichier excel j'ai un première onglet qui ce nome "FICHE" qui contiens un liste de nom de pièces qui varie selon les projets.
Ensuit j'ai 3 autre onglets nommé "DEVIS-A" "LISTE-A" et "COMM-A".

J'aimerais que mais 3 onglets ce nomme automatiquement selon la valeur entré dans la liste de l'onglet "FICHE" et que la partie "DEVIS , LISTE et COMM"reste intacte.
ex: DEVIS-CUISINE

Est-ce possible?

Merci à l'avance
Bonne journée à tous :D
A voir également:

4 réponses

Messages postés
24
Date d'inscription
mercredi 22 mai 2013
Statut
Membre
Dernière intervention
5 octobre 2013
1
Slt

DS chaque onglets (Devis, liste et Comm), Crée une cellule qui reprend le nom d'une pièce (cuisine) et le nom du document à créer (Devis...). Tu peux entrer cette formule ds la cellule en question: =CONCATENER("Devis";'Fiche'!A1).
Fiche A1 étant la cellule dans la feuille "Fiche" comportant de nom d'une pièce
Puis crée le code suivant:

Sub RenommeOngletsNomCelluleB1()

Dim Feuille As Worksheet

For Each Feuille In Worksheets
Feuille.Name = Feuille.Range("B1").Value
Next Feuille

End Sub

En espérant avoir répondu à tes questionnements
Cdt
Moi49
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci sa fonctionne
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
514
Bonjour,

Une proposition avec une liste de validation
https://www.cjoint.com/c/CJdsRUf6vzQ
A+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci sa fonctionne super bien!
Par-contre dans une maison il y a plusieurs pièces,donc j'aimerais ajouter la même série de 3 onglet et pouvoir les renommé d'une cellule différant a chaque fois. Je n'y arrive pas avec les solution déjà proposé.
Merci a l'avence
Messages postés
12936
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 février 2021
2 132
Bonjour

Oui possible avec un petit code VBA

Faire Alt et F11 pour ouvrri l'editeur VBA
Dans la fenetre de gauche selectionner la feuille FICHE

Dans la grande fenetre de droite coller ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
nom = Target.Value

For i = 1 To Worksheets.Count
If Left(Sheets(i).Name, 5) = "DEVIS" Then Sheets(i).Name = "DEVIS-" & nom
If Left(Sheets(i).Name, 5) = "LISTE" Then Sheets(i).Name = "LISTE-" & nom
If Left(Sheets(i).Name, 4) = "COMM" Then Sheets(i).Name = "COMM-" & nom
Next


End Sub

Chaque fois qu'on change le nom (CUISINE par ex) en A1 de la feuille FICHE , les noms des 3 feuilels changeront en conséquence

Si tu veux entrer le nom choisi dans une autre cellule de la FICHE remplace la référence $A$1 dans le code par celle de ta cellule mais sans oublier les $

Cdlmnt

Merci beaucoup sa fonctionne très bien.

Par contre j'aimerais ajouté les même 3 feuilles plusieurs foi et changer leur non de la même façon mais a partir d'une nouvelle cellule.

Pouvez-vous m'aider.

Merci encore
Messages postés
12936
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 février 2021
2 132
Pourquoi vouloir faire une usine à gaz !!
Dans ce cas choisis la solution que t'avais donné moi49
Tu mets le nom de chaque feuille dans une cellule de cette feuille et tu appliques sa macro pour donner à l'onglet le même nom que celui dans la cellule

Cdlmnt