Date automatique

Skqgent à dit:

SI j'ai bien compris tu veux que tout les jours de la semaine a l'ouverture de ton fichier que la feuille soit vide, mais dans une même journée si tu ferme et réouvre pls fois le classeur les données soient tjs visible ?

Cliquez pour agrandir...

myDearFriend! à dit:

Bonsoir clown, abcd, Skqgent,

Ci-joint, peut-être une solution à ton problème.

J'ai utilisé le code VBA suivant (à mettre dans le module de code de l'objet ThisWorkbook) :

Code:

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Workbook_Open()
[COLOR=NAVY]Dim[/COLOR] R [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Long[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]False
    With[/COLOR] Sheets("Journalier")
        [COLOR=NAVY]Set[/COLOR] R = .Rows(Application.Rows.Count)
        [COLOR=NAVY]For[/COLOR] L = 2 [COLOR=NAVY]To[/COLOR] .Cells(Application.Rows.Count, 2).[COLOR=NAVY]End[/COLOR](xlUp).Row
            [COLOR=NAVY]With[/COLOR] .Cells(L, 2)
                [COLOR=NAVY]If[/COLOR] .Value <> "" And .Value <> [COLOR=NAVY]Date Then
                    Set[/COLOR] R = Union(R, .EntireRow)
                [COLOR=NAVY]End If
            End With
        Next[/COLOR] L
        R.Delete
    [COLOR=NAVY]End With[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]True
End Sub[/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Workbook_SheetChange([COLOR=NAVY]ByVal[/COLOR] Sh [COLOR=NAVY]As Object[/COLOR], [COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [COLOR=NAVY]If[/COLOR] Sh.Name <> "Journalier" [COLOR=NAVY]Or[/COLOR] Target.Count > 1 [COLOR=NAVY]Then Exit Sub
    If Not[/COLOR] Application.Intersect(Target, Columns("A")) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Target.Offset(0, 1).Value = IIf(Target.Value <> "", [COLOR=NAVY]Date[/COLOR], "")
    [COLOR=NAVY]End If
End Sub[/COLOR]

Cordialement,

Cliquez pour agrandir...