Discussion :

[captainamerica75]

Bonjour a tous
J’ai une fonction dans un module qui me permet d’avoir une liste de date entre 2 dates. J’aimerais que toutes mes résultats soient affichés dans la zone de liste cependant a chaque fois Il ne met que le dernier résultat comment puis-je faire ?????

Ci-dessous le code



Code :

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
 
Function test()
Dim Date1 As Date
Dim Date2 As Date
Dim LastMonth As Integer
Date1=DateSerial(Year(Forms![Formulaire1].[datestart]),Month(Forms![Formulaire1].[datestart), Day(Forms![Formulaire1].[datestart]))
Date2 = DateSerial(Year(Forms![Formulaire1].[dateend]), Month(Forms![Formulaire1].[dateend]),Day(Forms![Formulaire1].[dateend]))
LastMonth = 0
For d = Date1 To Date2
If LastMonth <> Month(CDate(d)) Then
MsgBox (Format(CDate(d), "dd/mm/yyyy"))
LastMonth = Month(CDate(d))
End If
Next d
End Function

Merci pour votre aide !!!! bonne journée

[Maxence HUBICHE]

C'est quoi ce code là ???

1- ta fonction ne renvoie rien.
2- tu testes sur un mois, que tu changes à chaque mois... pourquoi ?
3- tu fais des DateSerial qui ne servent à rien



Je te propose plutôt :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Function ListerDates(DateMin as Date, DateMax as date) as string
    dim i as long
    dim s as string
    For i = DateMin to DateMax
        s = s & ";" & format(i,"dd/mm/yyyy")
    Next
    ListerDates = mid(s,2)
End Function

Il ne te restera plus qu'à passer tes deux dates (de ton formulaire) en paramètres de ta fonction.

[captainamerica75]

Bonjour Maxence,

merci pour ton aide !!!!! la boucle fonctionne nickel !!!!! Je souhaiterais que les dates que me retourne la fonction alimente ma zone de liste est ce que cela est possible?

Autre chose, est-il possible d'inclure une condition supplementaire dans cette boucle ? a savoir que que j'ai un groupe d'option dans mon formulaire qui permet d'indiquer une cadence de facturation (hebdomadaire, mensuelle, trimestrielle, ect...ect... (cf pièce jointe) ).

merci bcp