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é_HebdoBonjour 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.
Merci Homepyro, la solution de Papou me convient, mais je ne vois pas ton fichier qui m'interresse bien.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.
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.