compter les semaines

Simons

XLDnaute Occasionnel

• 30 Novembre 2006

• #2

Re : compter les semaines

Bonjour SRI75 et tout le monde,

Voici un exemple :

Code:

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

Bye

 

Vote positif 0 Vote négatif

Simons

XLDnaute Occasionnel

• 30 Novembre 2006

• #3

Re : compter les semaines

Simons à dit:

Code:

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

Cliquez pour agrandir...

j'avais oublié les variables..😛

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2006

• #4

Re : compter les semaines

Bonjour, Stephane, Simons

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

Code:

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

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 30 Novembre 2006

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Novembre 2006

• #6

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.

Cliquez pour agrandir...

bonne soirée
@+

 

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 30 Novembre 2006

• #7

Re : compter les semaines

Bonsoir,
à adapter suivant tes demandes.
A+

 

Pièces jointes

• tableauservice.zip

  2.6 KB · Affichages: 48
• tableauservice.zip

  2.6 KB · Affichages: 44
• tableauservice.zip

  2.6 KB · Affichages: 46

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 1 Décembre 2006

• #8

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2006

• #9

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 :

Code:

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.

 

Dernière édition: 1 Décembre 2006

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 1 Décembre 2006

• #10

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.

 

Vote positif 0 Vote négatif