Besoin d'aide en VBA
Fermé
vbabo
Messages postés
6
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
13 avril 2006
-
13 avril 2006 à 13:20
vbabo - 18 avril 2006 à 12:57
vbabo - 18 avril 2006 à 12:57
A voir également:
- Besoin d'aide en VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Vba dépassement de capacité ✓ - Forum Excel
1 réponse
Armojax
Messages postés
1860
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
2 octobre 2024
1 528
13 avril 2006 à 14:29
13 avril 2006 à 14:29
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
18 avril 2006 à 12:57
Merci pour ta reponse claire et precise.
je m'empresse de le tester .
Encore une fois merci beaucoup de votre aide !