Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 ONGLETS

  • Initiateur de la discussion Initiateur de la discussion BEUZEC
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BEUZEC

XLDnaute Nouveau
Bonjour à tous et MERCIS ANTICIPES pour vos prochaines réponses.
Les Macros et moi cela fait 2
Je souhaiterai changer le nom des onglets par le résultat d'une formule se trouvant en A 2
Je pensais trouver une formule mais pas de chance !
j'ai 12 classeurs : 1 par mois
Chaque classeur à 28, 29, 30 ou 31 feuilles : 1 par jour
En A 2 j'ai une date ex : 01/01/2021 sur la feuille 1 et la suite pour le mois entier
Je voudrai donc que ce résultat soit le nom de l'onglet

Voilà le problème exposé - je compte sur vous et vous remercie encore
 

Pièces jointes

Solution
Pour la mise en place en prenant ton fichier du post #1
renommer manuellement la feuille 30
clic droit sur l'onglet
"visualiser le code"
inserer module
coller le code du #12
enregistrer le fichier au format .xlsm prenant en charge les macros
dans le menu Affichage Macro, exécuter macro
clic renomme puis exécuter

ce qui devrait résoudre ce post
Merci de ta réponse, mais je n'ai plus la date dans la cellule A 2 et je ne vopis pas l'erreur dans la feuille 30-01-2021
Pourquoi dis-tu que tu n'as plus la date en A2 ?
Dans le fichier que je t'ai retourné elle y est encore.
Dans ton fichier de départ la feuille 30 ne s'appelle pas Feuil30 ce qui fausse la valeur A2 de cette feuille.
 
Bien sure, ta cellule A2 se calcule par rapport au nom de l'onglet ...
Tu renomme l'onglet, la date change en A2 . Forcément

Tu utilisais le n° de la feuille pour établir le jour "+DROITE(CELLULE("filename";A1);2)-1"
 
Donc après avoir renommé ta feuille30,
j'exécute
VB:
Sub renomme()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.[A2] = sh.[A2].Value
        If sh.[A2] <> "" And sh.Name <> [A2] Then sh.Name = Format(sh.Range("A2"), "dd-mm-yy")
    Next
End Sub
mais en effet, tu perds la formule en A2, la date est figée
je vais voir celle de MP59
 
Pour la mise en place en prenant ton fichier du post #1
renommer manuellement la feuille 30
clic droit sur l'onglet
"visualiser le code"
inserer module
coller le code du #12
enregistrer le fichier au format .xlsm prenant en charge les macros
dans le menu Affichage Macro, exécuter macro
clic renomme puis exécuter

ce qui devrait résoudre ce post
 

Pièces jointes

Bonjour à vous 2,
ou encore (fichier joint)
Ps : pas de / dans les noms d'onglets
Ps : tu as un pb de nom à la feuille 30
MERCI c'est vrai ça marche
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
221
Réponses
7
Affichages
345
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…