Bonjour tout le monde,
En VB. Vous pouvez aussi créer la fonction personnalisée suivante :
Function PREMIER_DIMANCHE(maDate As Date) As String
Dim temp As Byte, annee As Integer, mois As Integer
annee = Year(maDate)
mois = Month(maDate)_
temp = 9 - Weekday(DateSerial(annee, mois, 1))
If temp = 8 Then temp = 1
PREMIER_DIMANCHE = Right("0" & Trim(Str(temp)), 2) _
& "/" & Right("0" & Trim(Str(mois)), 2) _
& "/" & annee
End Function
Si vous mettez une date du 14/07/2024 en A1, la fonction =PREMIER_DIMANCHE(A1) vous donnera le 07/07/2024.