[XL-2007] la date du vendredi prochain [Résolu]

[bosk1000]

bonjour à tous

est-il possible dans une cellule de faire apparaitre la date du prochain vendredi
de sorte que chaque semaine la cellule se mette à jour ?

merci

[pc75]

Bonjour,

Dans un module, tu colles cette fonction :

Code :

1
2
3
4
5
6
7
8
 
Function ProchainVendredi() As String
    Jour = Date
    Do While Weekday(Jour) <> 6
        Jour = DateAdd("d", 1, Jour)
    Loop
    ProchainVendredi = CStr(Jour)
End Function

Et dans ta cellule tu mets =ProchainVendredi()

[bosk1000]

parfait
merci

[pc75]

Envoyé par bosk1000

parfait
merci

Résolu ?