Renommer des onglets automatiquement Résolu/Fermé

Question

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

Moi49 · Answer

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

Gyrus · Answer

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

via55 · Answer

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

Anémone · Answer

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

Renommer des onglets automatiquement

4 réponses

Discussions similaires