Microsoft 365 Formules Excel semaine

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour,

J'aurais une petite question, s'il vous plaît : est-ce qu'il existe une formule Excel qui permet d'incrémenter les semaines pour avoir ces données :

Du 01/01/2024 au 05/01/2024
Du 08/01/2024 au 12/01/2024
Du 15/01/2024 au 20/01/2024
Du 22/01/2024 au 27/01/2024

Merci beaucoup !
 

Efgé

XLDnaute Barbatruc
Bonjour @VBA_dev_Anne_Marie , Salut @Victor21
Avec 01/01/2024 en A1
VB:
="DU "&TEXTE(A1-JOURSEM(A1;3)+SEQUENCE(54;;0;7);"jj/mm/aa")&" au "&TEXTE(A1-JOURSEM(A1;3)+SEQUENCE(54;;4;7);"jj/mm/aa")

Cordialement

EDIT

Et pour le fun; en limitant les dates sur l'année :
VB:
=LET(
Lundi;A1-JOURSEM(A1;3)+SEQUENCE(54;;0;7);
Vendredi;Lundi+4;
LesLundi;ANNEE(Lundi)=ANNEE(A1);
MesLundi;FILTRE(Lundi;LesLundi);
MesVendredi;FILTRE(Vendredi;LesLundi);
"DU "&TEXTE(MesLundi;"jj/mm/aaaa")&" au "&TEXTE(MesVendredi;"jj/mm/aaaa")
)
 

Pièces jointes

  • VBA_dev_Anne_Marie.xlsx
    13.8 KB · Affichages: 1
Dernière édition:

Gégé-45550

XLDnaute Accro
Bonjour,

J'aurais une petite question, s'il vous plaît : est-ce qu'il existe une formule Excel qui permet d'incrémenter les semaines pour avoir ces données :

Du 01/01/2024 au 05/01/2024
Du 08/01/2024 au 12/01/2024
Du 15/01/2024 au 20/01/2024
Du 22/01/2024 au 27/01/2024

Merci beaucoup !
Bonjour,
Une proposition en PJ.
Cordialement,
[EDIT] Oups !!! Pardon Efgé, je n'avais pas vu ta (excellente) réponse ! [/EDIT]
 

Pièces jointes

  • Classeur1.xlsx
    15.6 KB · Affichages: 4

Efgé

XLDnaute Barbatruc
Re
Bonjour @Gégé-45550
Pardon @Efgé, je n'avais pas vu ta (excellente) réponse !
Pas si excellente que ça.
Il y a problème sur certaines années comme 2048.
Pour y remédier :
VB:
=LET(
Lundi;A1-JOURSEM(A1;3)+SEQUENCE(54;;0;7);
Vendredi;Lundi+4;
LesLundi;ANNEE(Lundi)=ANNEE(A1);
LesVendredi;ANNEE(Vendredi)=ANNEE(A1);
Verif;LesLundi+LesVendredi >0;
MesLundi;FILTRE(Lundi;Verif);
MesVendredi;FILTRE(Vendredi;Verif);
"Du "&TEXTE(MesLundi;"jj/mm/aaaa")&" au "&TEXTE(MesVendredi;"jj/mm/aaaa")
)

Cordialement
 

Pièces jointes

  • VBA_dev_Anne_Marie.xlsx
    13.9 KB · Affichages: 2

VBA_dev_Anne_Marie

XLDnaute Occasionnel
Bonjour @VBA_dev_Anne_Marie , Salut @Victor21
Avec 01/01/2024 en A1
VB:
="DU "&TEXTE(A1-JOURSEM(A1;3)+SEQUENCE(54;;0;7);"jj/mm/aa")&" au "&TEXTE(A1-JOURSEM(A1;3)+SEQUENCE(54;;4;7);"jj/mm/aa")

Cordialement

EDIT

Et pour le fun; en limitant les dates sur l'année :
VB:
=LET(
Lundi;A1-JOURSEM(A1;3)+SEQUENCE(54;;0;7);
Vendredi;Lundi+4;
LesLundi;ANNEE(Lundi)=ANNEE(A1);
MesLundi;FILTRE(Lundi;LesLundi);
MesVendredi;FILTRE(Vendredi;LesLundi);
"DU "&TEXTE(MesLundi;"jj/mm/aaaa")&" au "&TEXTE(MesVendredi;"jj/mm/aaaa")
)
Bonjour,
Merci pour vos réponse ! Malheureusement, la formule ="DU "&TEXTE(A1-JOURSEM(A1;3)+SEQUENCE(54;;0;7);"jj/mm/aa")&" au "&TEXTE(A1-JOURSEM(A1;3)+SEQUENCE(54;;4;7);"jj/mm/aa") me donne "du 19/02/24 au 23/02/24" au lieu de "du 19/02/24 au 24/02/24"
 

Efgé

XLDnaute Barbatruc
Re
Le 24/02/2024 est un samedi alors que votre demande va du Lundi au Vendredi.
1719410333019.png

Il vaux mieux utiliser la version du poste 5

Cordialement
 

Discussions similaires

Réponses
46
Affichages
2 K
Réponses
2
Affichages
653

Statistiques des forums

Discussions
313 914
Messages
2 103 510
Membres
108 685
dernier inscrit
BAAK