Microsoft 365 ONGLETS

BEUZEC · 24 Mai 2020

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 · 24 Mai 2020

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

st007 · 24 Mai 2020

Bon dimanche,
Active les onlets

MP59 · 24 Mai 2020

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 · 24 Mai 2020

MP59 à dit:
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 · 24 Mai 2020

st007 à dit:
Bon dimanche,
Active les onlets

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

BEUZEC · 24 Mai 2020

st007 à dit:
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 · 24 Mai 2020

BEUZEC à dit:
Merci pour ta réponse, mais comment activer les onglets ?

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

BEUZEC · 24 Mai 2020

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 · 24 Mai 2020

BEUZEC à dit:
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 · 24 Mai 2020

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 · 24 Mai 2020

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 · 24 Mai 2020

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

st007 · 24 Mai 2020

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 · 24 Mai 2020

MP59 à dit:
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

st007 à dit:
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 · 24 Mai 2020

MERCI c'est vrai ça marche

Microsoft 365 ONGLETS

BEUZEC

XLDnaute Nouveau

Pièces jointes

st007

st007

XLDnaute Barbatruc

Pièces jointes

MP59

XLDnaute Occasionnel

Pièces jointes

BEUZEC

XLDnaute Nouveau

BEUZEC

XLDnaute Nouveau

BEUZEC

XLDnaute Nouveau

st007

XLDnaute Barbatruc

BEUZEC

XLDnaute Nouveau

MP59

XLDnaute Occasionnel

st007

XLDnaute Barbatruc

MP59

XLDnaute Occasionnel

Pièces jointes

st007

XLDnaute Barbatruc

st007

XLDnaute Barbatruc

Pièces jointes

BEUZEC

XLDnaute Nouveau

BEUZEC

XLDnaute Nouveau

Discussions similaires