Problème dans la récuperation

[zozotitou]

Bonjour à tous,
Je vous expose mon problème

J'ai le numéro de la semaine dans un case exemple
en "A1" = 24
et je voudrais par VBA afficher le premier jour de la semaine et le dernier
exemple :
en "A2" = 11/06/2007 (qui est le lundi)
en "A3"= 15/06/2007 (qui est le vendredi)

Merci de votre aide
cdlt

 

[JYLL]

Re : Problème dans la récuperation

Bonjour Zozotitou et le Forun,

Voici un calendrier récupéré sur le Forum et modifié qui dévrait répondre à ton besoin.

Bon test.

 

[zozotitou]

Re : Problème dans la récuperation

Bonjour Jean-Yves,

Ton fichier est protégé pour la lecture des données dans les cases et ne pas savoir comme récupéré les infos



Cdlt
Zozotitou

 

[JYLL]

Re : Problème dans la récuperation

Erreur de réponse, papy déraille complétement.

Milles excuses.

 

[zozotitou]

Re : Problème dans la récuperation

Re-bonjour Jean-Yves et le forum,

J'ai peut-être mal posé mon problème
Je vous mettre le n° d'une semaine dans une case et récupérer la date du lundi et du vendredi et cela pour m'importe semaine sélectionné), je chercher pas à avoir un calendrier.
Exemple :
A1 = 24
A2 = 11/06/2007 (qui représente le lundi)
A3 = 15/06/2007 (qui représente le vendredi)

Cdlt

 

[Pierrot93]

Re : Problème dans la récuperation

Bonjour Zozotitu, Jyll

peut être le code ci dessous :

Sub test()
Dim s As Byte, p As Date, d As Date, x As Date
s = Range("A1").Value
p = DateSerial(Year(Date), 1, 1)
d = DateSerial(Year(Date), 12, 31)
For x = p To d
    If DatePart("ww", x, vbMonday, vbFirstFourDays) = s Then
        Range("A2").Value = x
        Range("A3").Value = x + 4
        Exit Sub
    End If
Next x
End Sub

Bon après midi
@+

 

[zozotitou]

Re : Problème dans la récuperation

Merci beaucoup Pierrot c'est ce que je cherche.

 

[zozotitou]

Re : Problème dans la récuperation

Mon autre probléme
Comment récuperer dans un texbox le N° de la semaine par rapport à la date du jour.

 

[Pierrot93]

Re : Problème dans la récuperation

Bonjour Zozotitou

regarde le code ci dessous :

TextBox1.Value = DatePart("ww", Date, vbMonday, vbFirstFourDays)

bonne journée
@+

 

[zozotitou]

Re : Problème dans la récuperation

Bonjour Pierrot
Dans le code DatePart("ww", Date, vbMonday, vbFirstFourDays)
Je recupére un date par le N° de la semaine


Cdlt

 

[Pierrot93]

Re : Problème dans la récuperation

Re
ta question

Mon autre probléme
Comment récuperer dans un texbox le N° de la semaine par rapport à la date du jour.

le code que je t'ai donné renvoie le numéro de semaine dans ta TextBox...

 

[zozotitou]

Re : Problème dans la récuperation

Merci Pierrot
J'ai fait une erreur en recopient le code
cdlt
A+

 

[zozotitou]

Re : Problème dans la récuperation

Bonjour le forum,
dans un formulaire j'ai un textbox ou je rentre une date, mais je voudrais qu'il soit sous la forme JJ/MM/AAAA