Microsoft 365 Calcul de réccurence

Dranreb

XLDnaute Barbatruc

• 9 Juin 2023

• #2

Bonjour.
Avec cette formule il calcule bien le 15/6
En Tableau1[Date d'échéance] :

Code:

=SI([@[Date de début]]<>"";CHOISIR(EQUIV([@[Task Recurrance]];{"Hebdomadaire";"Mensuel";"1er du mois";"Tous les jours de la semaine";""};0);[@[Date de début]]+7;MOIS.DECALER([@[Date de début]];1);DATE(ANNEE([@[Date de début]]);MOIS([@[Date de début]])+1;1);[@[Date de début]]+1);"")

 

Vote positif 0 Vote négatif

S

sr94

XLDnaute Occasionnel

• 9 Juin 2023

• #3

super merci !
par contre si j'ai une échéance à aujourd'hui, que je mets Terminé en oui, et "tous les jours de la semaine" en réccurence il ne recalcule pas. Il faut attendre le jour suivant ? (il doit passer du vendredi au lundi pas au samedi). Egalement ça ne doit pas se calculer 1 seule fois mais de façon réccurente chaque jour, ou semaine etc ... la date de début est juste un point de départ.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juin 2023

• #4

Je n'ai as regardé la programmation, en attendant que ce problème soit réglé.
Après, je suppose qu'il faut quelque part une macro qui remplace toutes les Date de début dépassées et Terminé par la Date d'échéance.

 

Vote positif 0 Vote négatif

S

sr94

XLDnaute Occasionnel

• 9 Juin 2023

• #5

oui, je tourne en rond, je trouve pas de solution

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juin 2023

• #6

Cette macro devrait faire le taf :

VB:

Sub NouvellesEchéances()
   Dim LOt As ListObject, CDDéb As Integer, CDEch As Integer, CTerm As Integer, L As Long, RngLig
   Set LOt = Feuil1.ListObjects(1)
   CDDéb = LOt.ListColumns("Date de début").Index
   CDEch = LOt.ListColumns("Date d'échéance").Index
   CTerm = LOt.ListColumns("Terminé").Index
   For L = 1 To LOt.ListRows.Count
      Set RngLig = LOt.ListRows(L).Range
      If RngLig(1, CTerm).Value = "Oui" And RngLig(1, CDEch).Value <= Date Then
         RngLig(1, CDDéb).Value = RngLig(1, CDEch).Value
         RngLig(1, CTerm).Value = Empty
         End If
      Next L
   End Sub

 

Vote positif 0 Vote négatif

S

sr94

XLDnaute Occasionnel

• 9 Juin 2023

• #7

parfait merci !
est ce possible de modifier la formule de calcul d'échéance pour que le calcul se fasse uniquement sur les jours de la semaine ? et ce sera top

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juin 2023

• #8

Je ne comprends pas ce que vous voulez dire.
Il me semble que que la date de début doit être corrigée pour tous les réalisés dont la date de prochaine échéance a atteint celle du jour.

 

Vote positif 0 Vote négatif

S

sr94

XLDnaute Occasionnel

• 9 Juin 2023

• #9

Dans l'idéal la date de début ou d'échéance ne doit pas tomber un week end, mais c'est pas grave au final.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juin 2023

• #10

Ah, vous vouliez dires les jours ouvrés de la semaine.
Il devrait être possible de peaufiner la formule pour les jours ouvré de la semaine en utilisant une expression à base de JOURSEM au lieu de 1 …

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juin 2023

• #11

Bonjour,

En passant :

Calcul de réccurence

Cliquez pour agrandir...

Il ne faut pas cc mais il faut rr.

A+

 

Vote positif 0 Vote négatif