N° de semaine ISO sous VBA

Pierrot93

XLDnaute Barbatruc

• 7 Janvier 2010

• #2

Re : N° de semaine ISO sous VBA

Bonjour man,

perso, pour connaitre le numéro de la semaine en vba, je procède ainsi :

Code:

Dim x As Integer
x = DatePart("ww", Date, 2, 2)

bonne journée
@+

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 7 Janvier 2010

• #3

Re : N° de semaine ISO sous VBA

Salut, et une autre

Code:

Function NumSem(dDate As Date) As Integer
Dim t As Long
    t = DateSerial(Year(dDate + (8 - WeekDay(dDate)) Mod 7 - 3), 1, 1)
    NumSem = ((dDate - t - 3 + (WeekDay(t) + 1) Mod 7)) \ 7 + 1
End Function

PS : la formule avec DatePart donne par exemple pour le 29/12/2003 53 et non 1

 

Dernière édition: 7 Janvier 2010

Vote positif 0 Vote négatif

M

man95

XLDnaute Occasionnel

• 7 Janvier 2010

• #4

Re : N° de semaine ISO sous VBA

Bonjour Pierrot93

Merci pour ta réponse cela fonctionne à merveille. Est il possible de m'expliquer les arguments ",2 ,2" situé après Date ?

Man

 

Vote positif 0 Vote négatif

M

man95

XLDnaute Occasionnel

• 7 Janvier 2010

• #5

Re : N° de semaine ISO sous VBA

Bonjour KIKI29,

Je vais tester ta formule de ce pas.

Merci à vous tous de vos réponses ultra rapide !

Man

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Janvier 2010

• #6

Re : N° de semaine ISO sous VBA

Re, bonjour Kiki

les arguments correspondent au premier jour de la semaine(2=lundi) et le 2ème argument représente la constante précisant la façon de déterminer la première semaine de l'année, ci-dessous les differentes possibilités :
(cf aide vba)

vbUseSystem 0 Utiliser l'argument NLS API.
vbFirstJan1 1 Commencer par la semaine du 1er janvier (valeur par défaut).
vbFirstFourDays 2 Commencer par la première semaine comportant au moins quatre jours dans l'année nouvelle.
vbFirstFullWeek 3 Commencer par la première semaine complète de l'année.

Cliquez pour agrandir...

Touche de fonction F1 sur le mot "datepart", te donnera tous les détails...

bon après midi
@+

 

Vote positif 0 Vote négatif

M

man95

XLDnaute Occasionnel

• 7 Janvier 2010

• #7

Re : N° de semaine ISO sous VBA

Merci beaucoup Pierrot93 pour ces infos

Man

 

Vote positif 0 Vote négatif