Microsoft 365 ONGLETS

[BEUZEC]

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

 

[st007]

Bon dimanche,
Active les onlets

 

[MP59]

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

 

[BEUZEC]

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 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

 

[BEUZEC]

Bon dimanche,
Active les onlets

Merci pour ta réponse, mais comment activer les onglets ?

 

[BEUZEC]

ou comme ceci,
menu affichage ,executer macro renommer

Merci pour ta réponse mais
Dans le menu affichage je n'ai pas executer macro renommer

 

[st007]

Merci pour ta réponse, mais comment activer les onglets ?

Le simple fait d'aller sur l'onglet ...il se renomme

 

[BEUZEC]

D'abord encore merci
Mais je suis nul, faut-il cliquer D ou G sur l'onglet et n'oublie pas que je n'ai plus la date dans A 2

 

[MP59]

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.

 

[st007]

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"

 

[MP59]

Ok les dates n'étaient plus bonnes.
Nouveau fichier joint avec une ligne de code en + pour remettre les dates (mais il n'y a plus les formules)

 

[st007]

Donc après avoir renommé ta feuille30,
j'exécute

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

 

[st007]

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

 

[BEUZEC]

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

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 c'est vrai ça marche

 

[BEUZEC]

MERCI c'est vrai ça marche