Comment renvoyer date à partir de n° semaine

Papou-net à dit:

Bonjour Arpette,

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

Code:

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.

Cliquez pour agrandir...

homepyrof53 à dit:

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.

Cliquez pour agrandir...

homepyrof53 à dit:

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.

Cliquez pour agrandir...