Date

5 réponses

amar

14/10/2003 à 13:27

Bonjour =E0 tous,

Comment =E0 partir d'une date inscrite ds une cellule peut-
on avoir le N=B0 de la semaine.
Le tout en VBA

Merci d'avance

5 réponses

Clément Marcotte

14/10/2003 à 13:36

http://groups.google.com/groups?as_q=num%E9ro%20semaine&ie=UTF-8&oe=UTF-8&as_ugroup=microsoft.public.fr.excel&lr=&hl=fr

"amar" a écrit dans le message de
news:126c01c39246$389ee7d0$
Bonjour à tous,

Comment à partir d'une date inscrite ds une cellule peut-
on avoir le N° de la semaine.
Le tout en VBA

Merci d'avance

Dédé

14/10/2003 à 13:44

Salut Amar !

Peut-être en utilisant la fonction suivante : (à copier dans un module
standart !!!)
Et surtout, dire merci beaucoup à Laurent Longre !! ;-))

Function NoSem(D As Date) As Long
'L. Longre
D = Int(D)
NoSem = DateSerial(Year(D + (8 - WeekDay(D)) Mod 7 - 3), 1, 1)
NoSem = ((D - NoSem - 3 + (WeekDay(NoSem) + 1) Mod 7)) 7 + 1
End Function

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"amar" a écrit dans le message de
news:126c01c39246$389ee7d0$
Bonjour à tous,

Comment à partir d'une date inscrite ds une cellule peut-
on avoir le N° de la semaine.
Le tout en VBA

Merci d'avance

Christian M

14/10/2003 à 13:49

ActiveCell.FormulaR1C1 = "=NO.SEMAINE(RC[-1])"

"amar" a écrit dans le message de news:
126c01c39246$389ee7d0$
Bonjour à tous,

Comment à partir d'une date inscrite ds une cellule peut-
on avoir le N° de la semaine.
Le tout en VBA

Merci d'avance

Dédé

14/10/2003 à 14:09

Salut Christian !

il me semble de la fonction No.Semaine() est disponible que si l'on a activé
la macro complémentaire "Utilitaire d'analise" ... à contrôler ;-))

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Christian M" a écrit dans le message de
news:%

ActiveCell.FormulaR1C1 = "=NO.SEMAINE(RC[-1])"

"amar" a écrit dans le message de news:
126c01c39246$389ee7d0$
Bonjour à tous,

Comment à partir d'une date inscrite ds une cellule peut-
on avoir le N° de la semaine.
Le tout en VBA

Merci d'avance

14/10/2003 à 15:27

Comment à partir d'une date inscrite ds une cellule peut-
on avoir le N° de la semaine.
Le tout en VBA

Pour avoir en B1 le N° de semaine correspondant à la date contenue en A1

Si tu es "sensible" à la norme Iso Européenne :
[B1] [1+int((A1-date(year(A1+4-weekday(Aa1+6)),1,5)+weekday(date(year(A1+4-weekday(A1
+6)),1,3)))/7)]

Si tu es "insensible" à la dite-norme :
[B1] = [weeknum(A1,2)]

AV

Date

5 réponses

Veuillez sélectionner un problème