A voir également:
- Besoin d'aide en VBA
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
1 réponse
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.
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
Merci pour ta reponse claire et precise.
je m'empresse de le tester .
Encore une fois merci beaucoup de votre aide !