Comment renvoyer date à partir de n° semaine

[Arpette]

Bonjour à tous, j'ai encore besoin de votre aide pour borner une semaine ex:
A1 = semaine 28, je souhaiterais en A2 = Du 12/07/2010 au 18/07/2010.

Merci d'avance.

 

[tototiti2008]

Re : Comment renvoyer date à partir de n° semaine

Bonjour Arpette,

un essai

Edit : J'avais fait une erreur dans la formule, fichier corrigé

 

[Arpette]

Re : Comment renvoyer date à partir de n° semaine

Bonjour Arpette,

un essai

Bonjour TotoTiti, je souhaiterais en code Vb, quand j'active la feuile je renseigne le n° de la semaine en A1 et borner en A2 Du ..... au.

Merci pour ton aide.

 

[kiki29]

Re : Comment renvoyer date à partir de n° semaine

Salut, voir réponse de tototiti2008 sur [XL-2003] Comment convertir un n° de semaine en Date - Forum des professionnels en informatique et adapter

 

[tototiti2008]

Re : Comment renvoyer date à partir de n° semaine

Bonjour kiki,
Re,

tiens, j'étais plus inspiré ce jour là qu'aujourd'hui (formule plus simple)

 

[JCGL]

Re : Comment renvoyer date à partir de n° semaine

Bonjour à tous,
Salut Toto,

Par formule avec l'année en A1 et la semaine en A2 au format Nombre :

=(A2*7+DATE(A1;1;1))-JOURSEM(AUJOURDHUI())

A++
A+ à tous

 

[tototiti2008]

Re : Comment renvoyer date à partir de n° semaine

Bonjour JCGL,
Re,

Je ne comprend pas bien la logique de ta formule...
Tu peux expliquer ?

Edit : Merci pour l'explication, je fouille ça même si j'ai les cellules grises en vacances aujourd'hui...

 

[JCGL]

Re : Comment renvoyer date à partir de n° semaine

Bonjour à tous,

Tentative d'explication dans le fichier joint...

4 =JOURSEM(AUJOURDHUI())
196 =A4*7
01/01/2010 =DATE(A1;1;1)

12/07/2010 =B8+B7-B6

A+ à tous

 

[tototiti2008]

Re : Comment renvoyer date à partir de n° semaine

Re,

il me semble que la 1ère semaine de l'année est la semaine du 4 janvier

Donc ça serait plutôt un truc comme ça, non ?

=((A2-1)*7+DATE(A1;1;4))-JOURSEM(DATE(A1;1;4);2)+1

 

[JCGL]

Re : Comment renvoyer date à partir de n° semaine

Bonjour à tous,

Le résultat est le même mais la formule est plus longue...

Dans mon fichier, rentre 1 en A4 et tu auras bien 04/01/2010

A+ à tous

 

[tototiti2008]

Re : Comment renvoyer date à partir de n° semaine

Re,

Oui mais demain ta formule renverra le 03/01/2010 pour la semaine 1...

 

[Papou-net]

Re : Comment renvoyer date à partir de n° semaine

Bonjour Arpette, les participants,

Voici ma solution par macro.

Espérant avoir été utile.

Cordialement à tous.

 

[Arpette]

Re : Comment renvoyer date à partir de n° semaine

Bonjour Arpette, les participants,

Voici ma solution par macro.

Espérant avoir été utile.

Cordialement à tous.

Bonjour Papou-net et le forum,

ta macro fonctionne bien, mais je n'arrive pas à l'insérer dans ma feuille Relevé_Journalier.Ci-joint mon fichier.
Merci de votre aide.

 

[Papou-net]

Re : Comment renvoyer date à partir de n° semaine

Bonjour Papou-net et le forum,

ta macro fonctionne bien, mais je n'arrive pas à l'insérer dans ma feuille Relevé_Journalier.Ci-joint mon fichier.
Merci de votre aide.

Bonjour Arpette,

En modifiant ton code ainsi, ça devrait fonctionner comme tu l'entends :

Private Sub Worksheet_Activate()
Dim Sme As Byte

Sme = DatePart("ww", Date, 2, 2)
Cells(1, 1) = "Semaine n° " & Sme
[COLOR="Red"][B]If Not Target.Address = "$A$1" Then Exit Sub[/B][/COLOR]
datedep = CDate("1/1/" & Year(Date))
For D = datedep To CDate("1/1/" & Year(Date) + 1)
  If DatePart("ww", D, 2, 2) = [B][COLOR="SeaGreen"]Sme[/COLOR][/B] Then
    Range("A2") = "Du " & D & " au " & D + 6
    Exit For
  End If
Next


End Sub

NB: Ligne rouge à supprimer, Range("A1") à remplacer par Sme

Espérant avoir répondu.

Cordialement.

 

[homepyrof53]

Re : Comment renvoyer date à partir de n° semaine

Bonjour,

Je te joins un fichier qui ne répond pas directement à ta demande mais qui peut t'aider.
Je me suis fait un fichier contenant des macros (fonction) sur les dates.
Toutes remarques sur des anomalies sont les biens venues.