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.

 

[Arpette]

Re : Comment renvoyer date à partir de n° semaine

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.

Merci Papou-net, c'est nickel. J'avais posé une question hier à 8h38 sur insertion ou suppression de ligne et mise en page aurais tu une idéee. Macro dans feuille Relevé_Hebdo
Merci d'avance.

 

[Arpette]

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.

Merci Homepyro, la solution de Papou me convient, mais je ne vois pas ton fichier qui m'interresse bien.

Merci d'avance.

 

[Arpette]

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.

Merci homepyrof, je ne vois pas ton fichier.
@+

 

[homepyrof53]

Re : Comment renvoyer date à partir de n° semaine

Bonsoir

Toutes mes excuses j'avais compressé mon fichier en rar au lie de zip

Le voici