[Office 365]
Bonjour,
J'espère que vous allez bien.
Je me permets de vous contacter car je n'arrive à créer un code VBA qui me convient.
Vous trouverez en PJ le fichier Excel utilisé.
Comme vous pouvez le voir vous avez un onglet intitulé "Page de Garde" où je renseigne les principaux paramètres.
Je souhaiterai renommer les onglets coloré(s) de Rouge en fonction des noms renseignés dans la plage C11:C20 de cette "Page de Garde".
Le workbook se compose de 3 "parties" :
- "Diane "&"Nom attribué"
- "LF "&"Nom attribué"
- "EF "&"Nom attribué"
Si la celulle C11 se nomme "A" à la plage de "Entité 1", je souhaite que le code VBA renomme les 3 onglets :
- "Diane Entité 1" en "Diane A"
- "LF Entité 1" en "LF A"
- "EF Entité 1" en "EF A" etc.
Je pourrai utiliser les codes suivants :
Sheets("Diane Entité 1").Name = Sheets("Page de garde").Range("E" & 11)
Sheets("LF Entité 1").Name = Sheets("Page de garde").Range("D" & 11)
Sheets("EF Entité 1").Name = Sheets("Page de garde").Range("F" & 11) et le faire pour chacune des entités..
Néanmoins même si cela fonctionne et que les onglets portent bien les noms attendus, je souhaiterai que si d’aventure j'exerce une erreur de frappe dans la cellule C11 et que la modifie, une fois le code VBA relancé la feuille se renomme correctement (or vous l'aurez compris Diane Entité 1 ou encore LF Entité 1 n'existeraient plus dans le workbook car déjà lancé une fois le code).
Rajouter à cela, j'aimerai que les modèles soient en mode cachés et que le code VBA fasse apparaître seulement le nombre d'entité attendu. Ex : si dans la Page de garde seules 2 entités sont rentrées alors ne rendre visible que les onglets qui y sont dédiés et laisser les autres invisibles.
Bien à vous,
Merci d'avance
Bookmarks