Calcul date fin pour des événements journaliers

Bonjour le forum

Je suis confrontée à un problème :

J'ai des événements journaliers de 2 à 7 possible

Je calcule la date début sans problème et à partir de cette date , je dois trouver la date de fin en fonction du nombre de mensualités et des jours sélectionnés bien sûr

Je m'arrache les cheveux et vous demande des idées pratiques

Merci à tous par avance

Bonne journée

Re

Je renvoie la partie validation qui maintenant me met bien les jours de versement dans Tj(n)

Tj(0) = 1er jour

Tj(1) = 2ème jour etc...

quant à la fonction chercherdatefin, elle ne ressemble à rien car elle a marché dans un autre contexte mais a commencé à être "rebidouillée" , c'est sur cela que je suis en train de me pencher

Private Sub Cmd_OK_Click()
Dim Tb(6), Tj(6)
NbChk = 0
IndTb = 0
    For ind = 1 To 7
        If Controls("Checkbox" & ind).Value = True Then
            NbChk = NbChk + 1
            Tb(IndTb) = ind
            IndTb = IndTb + 1
        End If
    Next
        If Tb(0) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(0) - Val(Format(Date, "w", 2))
            Tb_Util = 0
        ElseIf Tb(1) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(1) - Val(Format(Date, "w", 2))
            Tb_Util = 1
        ElseIf Tb(2) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(2) - Val(Format(Date, "w", 2))
            Tb_Util = 2
        ElseIf Tb(3) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(3) - Val(Format(Date, "w", 2))
            Tb_Util = 3
        ElseIf Tb(4) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(4) - Val(Format(Date, "w", 2))
            Tb_Util = 4
        ElseIf Tb(5) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(5) - Val(Format(Date, "w", 2))
            Tb_Util = 5
        ElseIf Tb(6) >= Val(Format(Date, "w", 2)) Then
            TB_Date1ereMensualite = Date + Tb(6) - Val(Format(Date, "w", 2))
            Tb_Util = 6
        Else
            TB_Date1ereMensualite = Date + 7 + Tb(0) - Val(Format(Date, "w", 2))
            Tb_Util = 7
        End If
        Tj(0) = Tb(Tb_Util)

        For IndJ = 1 To NbChk - 1
            Tb_Util = Tb_Util + 1
            If Tb_Util < NbChk Then
                Tj(IndJ) = Tb(Tb_Util)
            Else
                Tb_Util = 0
                Tj(IndJ) = Tb(Tb_Util)
            End If
        Next
        MsgBox "J1 " & Tj(0)
        MsgBox "J2 " & Tj(1)
        MsgBox "J3 " & Tj(2)
        MsgBox "J4 " & Tj(3)
        MsgBox "J5 " & Tj(4)
        MsgBox "J6 " & Tj(5)
        MsgBox "J7 " & Tj(6)
        TB_DateDerniereMensualite = ChercherDateFin(DateValue(TB_Date1ereMensualite), Tj(), Val(TB_NbreMensualites))
End Sub

Merci d'avance aux grosses têtes

Bonne fin de journée à tous

Bonsoir à tous

Il me semble que je m'en sois sortie

Bonne soirée à tous