Nommer une cellule,par VBA, dont la feuille à un nom variable [Résolu/Fermé]

Signaler
-
 Romton60 -
Bonjour,
Voici mon problème
- J'ai créer une macro qui dit "fait une copie de la feuille "matrice" et renomme là avec la date du jour" celle-ci marche très bien!!

-Mais je voudrai rajouter a cette macro un code qui dirait "sur cette feuille que tu vient de créer, tu nomme la cellule F16 "lundi"

-Mon but étant de créer des feuille sur une semaine et les renommer avec les date de toute la semaine (sa pas de problème) et que ensuite dans une feuille "synthèse" sa m'additionne les cellule F16 de Lundi,Mardi, ETC..

Si quelqu'un a le code pour juste dire " de nommer la cellule F16 lundi sur la feuille qui vient d’être créer" ... Je suis preneur :)

D'avance Merci

2 réponses

Messages postés
32410
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
11 mai 2021
3 476
Bonjour,


Si quelqu'un a le code pour juste dire " de nommer la cellule F16 lundi sur la feuille qui vient d’être créer" ... Je suis preneur :)

Ton enregistreur de macro a la réponse.....
As tu essayé ??
Messages postés
32410
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
11 mai 2021
3 476
Code récupéré dans l'enregistreur de macro après avoir fait la manip à la main :
ActiveWorkbook.Names.Add Name:="Lundi", RefersToR1C1:="=Feuil1!R16C5"
Bonjour,

Merci de ton retour,

En effet j'avais essayer avec l'enregistreur mais du coup la macro ce réfère a au nom de la feuille où j'ai fait l'enregistrement
En sachant que le nom de feuille va changer chaque semaine ...

D'avance Merci
Messages postés
15763
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 mai 2021
1 488 > Romton60
Re,

regardez f894009 25 févr. 2016 à 13:39
Messages postés
15763
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 mai 2021
1 488
Bonjour a vous deux,

Un peu plus evolue pour faire la semaine en appelant a chaque creation de feuille

Sub Nom_Cellule()
Range("F16").Select
WS = ActiveSheet.Name
NCel = "='" & WS & "'!R16C6"
JourS = Format(Weekday(CDate(WS)), "DDDD", 2)
ActiveWorkbook.Names.Add Name:=JourS, RefersToR1C1:=NCel
End Sub
Bonjour,

Merci pour ce code, c'est exactement ce que je cherchait !

Merci de vos retour

Bonne journée