Discussion :

[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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DateDiff("m", Cells(l, c_alpha).Value, date_actua) < D6mois Then

[Menhir]

le resultat que j'obtiens ne prends pas en compte la condition entre les deux dates :-(

Ta fonction ne peut pas marcher puisqu'à aucun moment tu ne renseignes "isDansSixMois".
J'ai l'impression que cette fonction s'appelait auparavant "isInfSixMois" et que tu as oublié de faire la modif dans le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DateDiff("m", Cells(l, c_alpha).Value, date_actua) < D6mois Then

Attention, pour que ça marche, il faudra que D6mois soit égal à 6 et non à 183..

[Invité]

et oui mas j'ai vue D6mois j'ai conclue... mais apparemment c'est pas bon j'ai pas tout lue! désolé

[undo74]

Bonjour Menhir;
Effectivement la fonction porté le nom isInfSixMois désolé pour l'erreur: oops:
merci

Bonjour rdurupt , Menhir,

j'ai testé la solution de rdurupt j'obtiens pas bon résultat
J'ai retravaillé mon code et j'obtiens les bonnes infos je ne sais pas si c'est conforme mais ça marche
mais je suis quand même preneur d'autres solutions :
Merci a vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function isDansSixMois (ByVal l As Integer, mois_actuel As Integer) As Boolean
'renvoie vrai si la ligne l a une date fin entre 0 et 6 mois de mois actuel
 
Dim c_alpha As Integer
c_alpha = 10
 
Dim rep As Boolean
rep = False
 
Dim Debutmois As Integer
Debutmois = 0
 
Dim Finmois As Integer
Finmois = 184
 
 
Dim date_actua As Date
date_actua = Worksheets("Table").Cells(18, mois_actuel + 2)
 
 
If ((Cells(l, c_alpha) - date_actua < Finmois) And _
    (Cells(l, c_alpha) - date_actua > Debutmois)) Then
        rep = True
End If
 
isDansSixMois  = rep
End Function