[XL-2003] Date en fonction du N° de la semaine [Résolu]

[apdf1]

Bonjour,

J'aimerais savoir comment faire pour calculer la date en fonction du N° de la semaine qui se trouve dans une textbox vers un label, le tout dans un USF

Merci d'avance et vous souhaite une bonne journée

Max

[jfontaine]

Bonjour,

Le code ci dessous retourne la date du lundi de la semaine recherchée

Code :

1
2
3
4
5
6
7
8
9
10
Dim dtePremierLundi As Date
Dim Semaine As Byte
 
Semaine = 47 'Semaine a rechercher
 
'Recherche le 1er lundi de l'année
dtePremierLundi = DateAdd("d", 8 - Weekday("01/01/" & Year(Now), vbMonday), "01/01/" & Year(Now))
 
'Affiche le premier jour de la semaine recherchée
MsgBox DateAdd("ww", Semaine - 1, dtePremierLundi)

[ZebreLoup]

En norme Européenne ou Américaine ?
Je veux bien regarder, mais franchement, la formule ne doit pas être compliquée à écrire. Si par exemple (je n'en sais rien), on compte uniquement les semaines complête, il suffit de cherche le premier lundi (ou dimanche) de l'année et d'y ajouter 7 fois le numéro de la semaine.

[jfontaine]

Déja répondu sur ton post plus haut

[apdf1]

Bonjour Jérôme,

Oui déjà répondu en partie et je t'en remercie encore, mais comment mettre en application se code.

Je m'explique j'ai un USF avec une TextBox et un label, le N° de semaine va dans la TextBox et je devrais avoir la date dans le label en fonction du N° de la semaine donnée dans la textBox

Merci d'avance et bonne journée

Max

[jfontaine]

Code :

1
2
3
4
5
6
7
8
9
10
Dim dtePremierLundi As Date
Dim Semaine As Byte
 
Semaine = Textbox.Text'Semaine a rechercher
 
'Recherche le 1er lundi de l'année
dtePremierLundi = DateAdd("d", 8 - Weekday("01/01/" & Year(Now), vbMonday), "01/01/" & Year(Now))
 
'Affiche le premier jour de la semaine recherchée
Label1.Caption = DateAdd("ww", Semaine - 1, dtePremierLundi)

[apdf1]

Re,

Oui est je le met comment qu'il affiche dans le label?

@+

Re,

Message d'erreur dans la ligne suivante.

Code :

Semaine = TextBox1.Text 'Semaine a rechercher

Incompatibilité de type

@+

Max

[jfontaine]

Essai

Code :

Semaine = Cbyte(TextBox1.Text)

[apdf1]

Re,

Toujours pareil

[jfontaine]

que contient textbox1?

[apdf1]

Rien

[jfontaine]

Je m'explique j'ai un USF avec une TextBox et un label, le N° de semaine va dans la TextBox et je devrais avoir la date dans le label en fonction du N° de la semaine donnée dans la textBox

Et si tu mettais un numéro de semaine comme dans ton enoncé

[apdf1]

re,

Au moment ou je fait appel a l'USF il me donne le message

[ZebreLoup]

Et n'hésite pas à faire quelques recherches pour savoir ce qu'est un Byte, ce que fait CByte... Il vaut mieux toujours comprendre les choses que l'on applique. Si un jour tu dois faire une modif, qu'il y a un bug ou autre...

[jfontaine]

ou as tu placé le code? quel évènement?

[apdf1]

Activate

[jfontaine]

Pas vraiment le bon emplacement.

Le mieux serait de le placer sur l’évènement click d'un bouton de validation qui sera utilisé par l'utilisateur après saisie dans la textbox

[apdf1]

Bonjour Jérôme,

Excuse moi de ne pas avoir répondu avant mais le boulot.

Effectivement j'ai mis le code dans l'événement d'un bouton comme tu le présumer sa marche Nickel;

Je te remercie et te souhaite une bonne journée

@+

Max