Renommer des onglets automatiquement
Résolu
Anémone39
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Anémone -
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
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:
- Renommer toutes les feuilles d'un classeur excel
- Liste déroulante excel - Guide
- Renommer des fichiers en masse - Guide
- Word et excel gratuit - Guide
- Trier un tableau excel - Guide
- Fusionner feuilles excel - Guide
4 réponses
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
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
Anémone
Merci sa fonctionne
