Formule Numéro semaine en VBA

[Pierre31]

Bonjour à toutes et tous,

Comment écrit-on en VBA la formule permettant de calculer le numéro de semaine par rapport à la date d'aujourd'hui.

D'avance merci pour vos réponses.
Cordialement
Pierre

 

[Eric 45]

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

 

[Pierre31]

Bonjour Eric,

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

 

[SergiO]

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.

@+

 

[Eric 45]

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

 

[MichelXld]

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

 

[michel_m]

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

 

[Pierrot93]

Re : Formule Numéro semaine en VBA

Bonjour à tous

et pourquoi ne pas utiliser la fonction "DatePart" ?

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
@+