Report de dates

[Calvus]

Bonjour,

Je coince depuis un moment sur un report automatique de date d'une feuille à une autre.

J'ai un classeur avec une feuille par semaine.
Le nom des onglets est composé du jour.mois, ce qui donne
25.10
1.11
8.11
15.11
etc...

avec 52 feuilles à terme.

Sur ces feuilles, un tableau avec les jours de la semaine, et des formules calculant la date du jour, de B2 à N2.

J'ai une formule nommée permettant de lister les noms d'onglets au fur et à mesure de leur création.

=STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+1;32)&INDIRECT("IV1")

Mon problème est de calculer la date du premier lundi de chaque semaine.
J'ai réussi à faire une formule qui va chercher dans l'onglet précédant la date du dimanche, et me donne donc le lundi suivant.

=INDIRECT("'"&INDEX(Onglets;EQUIV(JOUR(D2)&"."&MOIS(D2);Onglets;1)-1)&"'!n2")+1

Celle-ci fonctionne sur n'importe quelle cellule, ex en D19, mais pas en B2 car ça crée une référence circulaire !

1/ Comment faire donc pour contourner ce problème ?

2/ Il doit probablement y avoir une formule moins complexe à adapter.... ?

Le fichier joint comporte 4 feuilles, avec les formules entrées respectivement en D19, qui sont à adapter pour B2.


Merci

 

[Chris401]

Re : Report de dates

Bonjour

Remplace la formule du nom défini Onglets par cette formule :

=STXT(CELLULE("filename";!$A$1);TROUVE("]";CELLULE("filename";!$A$1))+1;5)

En B2 :

=DATE(2010;DROITE(Onglets;2);GAUCHE(Onglets;2))

En D2 :

=SI(MOD(COLONNE();2)=1;"";B2+1)

Cordialement

 

[Calvus]

Re : Report de dates

Bonjour Chris401,

Merci beaucoup. Ca marche, et c'est plus court et plus efficace que ce que j'avais fait.

Peux tu m'expliquer ça ?
=STXT(CELLULE("filename";!$A$1);TROUVE("]";CELLULE("filename";!$A$1))+1;5)

Merci en tout cas. 🙂

 

[Chris401]

Re : Report de dates

Re

Cette formule donne le nom de l'onglet sans passer par une macro XL4 (la formule que tu avais avant)

Cordialement