Date en vba bouclé

Version imprimable

10/02/2015, 12h16
zertupo

Date en vba bouclé

Bonjours à tous !!

Voilà mon petit problème, j'aimerai générer une liste de date de jours ouvrés en vba sur excel. Par exemple en A2 correspondant à la date de aujourd'hui et je veux remonter tous les jours ouvrés jusqu'à 2 ans par exemple...

Je sais que les dates sont un soucis sur excel/vba, enfin en tout cas pour moi ^^, donc si quelqu'un peut m'aider, s'il sait comment on fait ?

Merci :)

Bonjour,

sans plus de détails sur le format des dates, je suis parti sur un format type 10/02/2015

voici le code à personaliser selon tes besoins

Code:

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
Option Explicit
Sub test()
Dim dateReponse As Date
Dim dateTemp As Date
Dim jour As Integer
Dim ligne
'demande la date de fin
dateReponse = InputBox("entrer la date de fin")
'récupère la date d'aujourd'hui
dateTemp = Date
'initialise la ligne de début
ligne = 1
Do
    'extrait le jour de la semaine
    jour = Weekday(dateTemp)
    'si le jour n'est pas un samedi (1) et pas un dimanche (7)
    If jour <> 1 And jour <> 7 Then
        'écrit dans la ligne la date temporaire
        Cells(ligne, 1) = dateTemp
        'passe à la ligne suivante
        ligne = ligne + 1
    End If
    'soustrait un jour à la date temporaire
    dateTemp = DateAdd("d", -1, dateTemp)
'boucle jusqu'a la date de fin
Loop While DateDiff("d", dateTemp, dateReponse) < 0
End Sub

tien moi au courant si cela correspond à tes attentes

c'est parfait c'est exactement ça !! merci beaucoup !! une petite modification pour le samedi que je voulais pas et voilà...depuis tout à l'heure je galérais avec des boucle for et des i-1 sauf si mais ça me faisait toujours revenir sur les deux jours vu que i enchainait après... merci beaucoup en tout cas

je retire pour le samedi c'est moi qui avait mal lu j'avais lu 2 ^^ merci encore

juste une petite question, si je veux faire l'inverse c'est quoi la condition ? j'aimerai partir de la date que je rentre pour arriver jusqu'à maintenant ... je fais :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 datereponse = inputbox("entrez la date de début") ligne=4 maintenant = format(now(),"mm/dd/yyyy") durée = range("D2") do jour=weekday(datereponse) if jour <>1 and jour<>7 then cells(ligne,1) = datereponse ligne = ligne+1 end if datereponse = dateadd("d",1, datereponse) loop while cells(ligne,1) = maintenant
ou

Code:

loop while datediff("yyyy", maintenant, datereponse+durée) <0

mais ça marche pas "incompatibilité de type".... la variable durée c'est par exemple si je veux les dates sur 4 ans je tape 4 dans ma cellule.

évidemment j'ai défini les variables même si je les ai pas écrit là...

si vous pouvez m'aider je suis désolé ^^

j'ai trouvé honte à moi !!! pour ceux que ça intéresse
Code:

1 2 3 4 5 6 7 8 9 do jour=weekday(datereponse) if jour <>1 and jour<>7 then cells(ligne,1) = datereponse ligne = ligne+1 end if datereponse = dateadd("d",1, datereponse) loop while datediff("d", date, datereponse)<0
fallait juste inverser.... :s je pensais avoir déjà essayé pourtant...