compter les semaines

[sri75]

Bonour, je cherche une fonction en vba qui me permettrait se savoir dans quelle semaine je me trouve ( ex semaine du 1er janvier = 1 semaine du 31 décembre = 52 ).

J'ai trouvé pour compter les jours mais je sèche avec les semaines.

merci d'avance pour votre aide

stephane

 

[Simons]

Re : compter les semaines

Bonjour SRI75 et tout le monde,

Voici un exemple :

Sub semaine()
MaDate = Date
Numero = Format(MaDate, "ww", vbMonday) - 1
SEM = InputBox("Nous sommes actuellement en Semaine " & Numero, "Microsoft Excel", , vbOKOnly)
End Sub

Bye

 

[Simons]

Re : compter les semaines

Sub semaine()
MaDate = Date
Numero = Format(MaDate, "ww", vbMonday) - 1
SEM = InputBox("Nous sommes actuellement en Semaine " & Numero, "Microsoft Excel", , vbOKOnly)
End Sub

j'avais oublié les variables..😛

Dim SEM As String
Dim MaDate As Date
Dim Numero As Byte

 

[Pierrot93]

Re : compter les semaines

Bonjour, Stephane, Simons

une autre méthode, la fonction "DatePart" :

Sub test()
Dim MaSemaine As Byte
MaSemaine = DatePart("ww", "30/11/2006", 2, vbFirstFullWeek)
End Sub

bonne fin d'après midi
@+

 

[jp14]

Re : compter les semaines

Bonjour le FIL

Pour info
La numérotation des semaines est relativement complexe, une année comporte 52 ou 53 semaines.
La semaine 1 va dépendre du jour du 1er janvier.

extrait du quid:
" La première semaine de l'année est celle où se trouve le 1er jeudi de janvier..."

Ce qui entraîne des corrections à apporter a la valeur trouvé

JP

 

[Pierrot93]

Re : compter les semaines

Re Stephane, Simons, bonsoir Jp14

la fonction "DatePart" comporte l'argument "firtweekofyear" auquel est associé 3 constantes, ci dessous les définitions et les valeurs selon l'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.

bonne soirée
@+

 

[abc]

Re : compter les semaines

Bonsoir,
à adapter suivant tes demandes.
A+

 

[sri75]

Merci à tous

Merci à tous pour votre aide rapide.

Pour ma culture vba, pourriez vous m'expliquer le role des fonctions suivantes

Numero = Format(MaDate, "ww", vbMonday) - 1

je ne vois pas à quoi sert le "ww" et le -1

J'avais également crée le code suivant pour les jours, et je voudrais savoir si je peux m'affranchir de la date en dur :

ce code me dit que nous sommes le 334 ème jour de l'année.

datedujour = Date
date2 = "01 /01 / 2006"
jour = datedujour - date2

mrci pour vos conseils.

 

[Pierrot93]

Re : compter les semaines

Bonjour Stephane, Abc, Jp, Simons

Pour déterminer le numéro du jour de l'année tu peux toujours utiliser la fonction DatePart, code ci dessous :

Nbjours = DatePart("y", Date)

Pour plus d'info sur la fonction, tu fais touche de fonction F1 sur le mot pour le quel tu veux de l'aide.

bonne journée
@+

PS nous sommes bien aujourd'hui le 335ème jour de l'année, cf mon éphéméride.

 

[sri75]

Re : compter les semaines // final

Effectivement mon code était faux !

j'ai donc adapté le dernier code pour la semaine ce qui me donne :

Nbjours = DatePart("y", Date)

Nbsem = DatePart("ww", Date)

result = "Le numéro du jour est le " & Nbjours & " de la semaine" & " " & Nbsem

MsgBox (result)

merci encore à tous pour votre aide précieuse.