Besoin d'aide en VBA

Question

Bonjour,J'ai besoin de calculer le premier dimanche du mois precedent et le premier dimanche du mois en cours et les affecter à des variables.Merci de votre aide

Armojax · Answer

Hello vbabo,

Ci-dessous 2 petites fonctions, qui calculent le premier dimanche du mois, et celui du mois précédent.
Tu peux les utiliser dans une cellule d'une feuille Excel :
=PREMDIM() donne le premier dimanche du mois,
et idem pour PREMDIM1.

Sinon, tu adaptes le code pour le récupérer dans des variables VBA.

Function PREMDIM()
' premier dimanche du mois
  PREMDIM = Date - Weekday(Date, vbMonday)
  If Month(PREMDIM) = Month(Date) Then
    Do Until Day(PREMDIM) < 8
      PREMDIM = PREMDIM - 7
    Loop
  Else
    Do While Day(PREMDIM) > 8
      PREMDIM = PREMDIM + 7
    Loop
  End If
End Function

Function PREMDIM1()
' premier dimanche du mois précédent
  PREMDIM1 = Date - Weekday(Date, vbMonday)
  Do Until Month(PREMDIM1) <> Month(Date) _
  And Day(PREMDIM1) < 8
    PREMDIM1 = PREMDIM1 - 7
  Loop
End Function

Besoin d'aide en VBA

1 réponse

Discussions similaires

Newsletters