Formule Numéro semaine en VBA

E

Eric 45

XLDnaute Occasionnel

• 5 Octobre 2006

• #2

Re : Formule Numéro semaine en VBA

Bonjour à tous et à toi Pierre

Essaie ce code :

Numero de semaine

Sub semaine_en_cours()
Dim prem_date As Single
Dim nb_date_annee As Date
Dim num_semaine As Integer

nb_date_annee = DateValue("1 janvier " & (Year(Date)))
prem_date = nb_date_annee
num_semaine = Abs(Date - prem_date) / 7

Range("c8").Value = "S" & " " & num_semaine

End Sub

A+

Cordialement

 

Vote positif 0 Vote négatif

P

Pierre31

XLDnaute Junior

• 5 Octobre 2006

• #3

Bonjour Eric,

Merci pour ta réponse.
Je viens d'appliquer ta solution et elle fonctionne.
Bon aprés midi
Cordialement
Pierre

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 5 Octobre 2006

• #4

Re : Re: Formule Numéro semaine en VBA

Bonjour,

Interessé par la question, j'ai testé le code : il ne fonctionne pas pour le 2 janvier 2006 par exemple => ça renvoie S 0 au lieu de renvoyer S 1.

@+

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 5 Octobre 2006

• #5

Re : Formule Numéro semaine en VBA

Re Bonjour

J'avais récupéré ce code quelque part car cela m'intéressait, mais je m'aperçois qu'il est faux pour beaucoup de dates,donc ATTENTION

et désolé.

Je cherche ..............

A+

Cordialement

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Octobre 2006

• #6

Re : Formule Numéro semaine en VBA

bonjour

j'espere que ce lien pourra t'aider

https://www.excel-downloads.com/threads/excel-a-trouve-du-contenu-illisible.138861/


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 5 Octobre 2006

• #7

Re : Formule Numéro semaine en VBA

Bonjour à tous

autre solution proposée par Laurent Longre:

Function num_sem(D As Date) As Long
'Auteur: Laurent Longre. Ce lien n'existe plus
'La fonction suivante renvoie le numéro de semaine conforme à la norme ISO, _
utilisée dans les pays européens (la première semaine d'un mois étant définie _
comme la première semaine comportant au moins quatre jours dans le mois).

D = Int(D)
num_sem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
num_sem = ((D - num_sem - 3 + (Weekday(num_sem) + 1) Mod 7)) \ 7 + 1
End Function

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Octobre 2006

• #8

Re : Formule Numéro semaine en VBA

Bonjour à tous

et pourquoi ne pas utiliser la fonction "DatePart" ?

Code:

Sub test()
Dim NumSem As Byte
NumSem = DatePart("ww", Date, 2, 2)
End Sub

A priori en jouant avec les differents arguments (voir aide VBA), sauf erreur de ma part ca a l'air d'être bon !!!

Bonne soirée à tous
@+

 

Vote positif 0 Vote négatif