Calcule la somme entre deux dates en condition sur 6 mois

[undo74]

Bonjour a tous,

je n'arrive pas a faire la somme sur deux colonnes en utilisant la fonction isDansSixMois
cette fonction me permet de pointer les lignes d'une date (date actua) qui se trouvent dans une table et des dates qui se trouve dans une colonne (c_alpha)
comme condition je fais la sommes dans les six mois
PI : 183 jours = 6 mois
le resultat que j'obtiens ne prends pas en compte la condition entre les deux dates
je ne sais pas si me demande en clair ????

ci-dessous la fonction isDansSixMois
merci d'avance pour votre aide.

Function isDansSixMois(ByVal l As Integer, mois_actuel As Integer) As Boolean
'renvoie si la ligne l a une date fin  dans les 6 mois de mois_actuel
'mois_actuel est le mois dont on souhaite la MAJ dans l'onglet Table

Dim c_alpha As Integer
c_alpha = 10 ' colonne date fin

Dim rep As Boolean
rep = False

'Dim D6mois As Integer
D6mois = 183 'nombre de jour entre deux date


Dim date_actua As Long
date_actua = Worksheets("Table").Cells(13, mois_actuel + 2)


If (Cells(l, c_alpha).Value - date_actua < D6mois) Then
    rep = True
End If

isDansSixMois= rep
End Function

 

[vgendron]

Re : Calcule la somme entre deux dates en condition sur 6 mois

Bonjour Undo,
en fait non, ce n'est pas très clair

aurais tu un fichier exemple à nous fournir?
avec tes données d'entrée et le résultat attendu sur un exemple.

 

[undo74]

Document

 

[R@chid]