XL 2016 Excel Formule date Vendredis

J

JHA

XLDnaute Barbatruc

• 21 Octobre 2021

• #2

Bonjour à tous,

Ci joint 2 possibilités

VB:

=SIERREUR(INDEX($A$2:$A$60;PETITE.VALEUR(SI(JOURSEM($A$2:$A$60;2)=5;LIGNE($A$2:$A$60)-1);LIGNE(1:1)));"")

copier vers le bas
ou

Code:

=SIERREUR(INDEX($A$2:$A$60;PETITE.VALEUR(SI(JOURSEM($A$2:$A$60;2)=5;LIGNE($A$2:$A$60)-1);LIGNE(1:1)));"")

puis

=SI(MAX($C$2:$C2)+7>MAX($A$2:$A$60);"";$C2+7)

JHA

 

Pièces jointes

• Périodes.xlsx

  10.7 KB · Affichages: 5

Vote positif 0 Vote négatif

J

james7734

XLDnaute Junior

• 21 Octobre 2021

• #3

Très utile! merci beaucoup, mais y a t-il un moyen d'avoir un rendu comme ma pj c'est à dire répéter la date du vendredi d'avant jusqu'à la prochaine?

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 21 Octobre 2021

• #4

Bonjour à tous,

C'est beaucoup plus simple

VB:

=SI(JOURSEM(A2;2)=5;A2;B1)

JHA

 

Pièces jointes

• Périodes rev1.xlsx

  10.5 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

Jocelyn

XLDnaute Barbatruc

• 21 Octobre 2021

• #5

Bonjour le Forum,
Bonjour james7734, JHA

en B2 mettre la formule de JHA

VB:

=SIERREUR(INDEX($A$2:$A$60;PETITE.VALEUR(SI(JOURSEM($A$2:$A$60;2)=5;LIGNE($A$2:$A$60)-1);LIGNE(1:1)));"")

et en B3

Code:

=SI(NB.SI($C$2:C2;C2)<7;C2;C2+7)

A étirer vers le bas autant que nécessaire

Cordialement

 

Vote positif 0 Vote négatif

J

james7734

XLDnaute Junior

• 21 Octobre 2021

• #6

Excellent! Merci énormément!

 

Vote positif 0 Vote négatif