Discussion :

[omarter]

Salut,

Je ne sais pas si je me complique la vie, mais je n'arrive pas à trouver une fonction qui me donnerait la date du dernier dimanche connu.
Est-ce que quelqu'un pourrait m'éclairer svp ?

[decondelite]

Tu prends la date actuelle, et tant que le jour testé n'est pas dimanche tu recules de 1 jour: t'as plus qu'à traduire ça avec du code!

Regarde aussi le module DateTime dans la bibliothèque VBA: t'as plein de trucs intéressants dedans.

[omarter]

Merci pour ta réponse.
Voici ce que j'ai programmé (je ne suis pas un pro ), a priori ca fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To 8
    Find = Date - i
    Mydate = Format(Find, "dddd")
    If Mydate = "Sunday" Then
        Find = Date - i
        Find = Format(Find, "dddd, mmm d yyyy")
        i = 8
    End If
Next

End Sub

[Invité]

Bonjour,

Juste une remarque :

pour cette fois cela fonctionne, mais vous utilisez "Find" comme une variable et c'est un mot-clé, ce qui n'est pas conseillé.

Vous pouvez utiliser sans problème une variable vous convenant et qui n'est pas un mot-clé.

[Pierre Fauconnier]

Bonjour

Ca tient en une ligne

Code :

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

DimanchePrecedent = DatePivot + (1 - Weekday(DatePivot) Mod 8)

Pour faire plus joli, on peut l'utiliser dans une fonction

Code :

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

1
2
3
Function DimanchePrecedent(DatePivot As Date) As Date
    DimanchePrecedent = DatePivot + (1 - Weekday(DatePivot) Mod 8)
End Function

Si c'est pour utiliser dans Excel, pas besoin de passer par VBA
Voici la formule

Code :

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

=A1+(1-MOD(JOURSEM(A1);8))

[omarter]

Merci par vos réponses.
Je suis toujours faciné par vos manière de simplifier les choses ! Merci !!

[decondelite]

J'avoue que moi-même je n'ai pas pensé au Mod dont je suis pourtant assez friand, et pas qu'en VB/VBA.