Date automatique

[clown]

Salut à tous!!

Voilà j'ai un petit souci : j'aimerais que lorsque j'ouvre excel une feuille apparaisse automatiquement, en première position (toujours la même la feuille "journalier"). Dans cette feuille, dans ma colonne B, à partir du moment où un élément sera inséré dans une cellule de la A j'aimerais que la date du jour apparaisse automatiquement.
A partir de là, et même après enregistrement, j'aimerais que les éléments rentré dans mes cellules par exemple le lundi n'apparaisse plus le mardi (je me retrouverai alors avec une feuille journalière vierge de tout sauf de l'intitulé des colonnes, et de la même façon les dates seraient mises à jour automatiquement).
Voilà je sais que c'est beaucoup, et je n'y parviens pas, alors si vous pouviez m'aider.

Merci!

[abcd]

Bonjour,

Je ne comprends pas le but de ta question.

Si tu enregistres une feuille avec les en-têtes et les formules, et que dans cette feuille tu saisis par après des données que tu ne veux plus voir lors d'une éventuelle réouverture de cette feuille, il te suffit de ne pas enregistrer les dernières données saisies.

Ou bien je n'ai rien compris du tout, ce qui est fort probable.

abcd

[clown]

Bah en fait le problème c'est que je dois enregistrer le reste du classeur, mais que je voudrais que cette feuille soit tous les jours vierges (mais dans une même journée par contre je voudrais que les éléments restent si on réouvre).

Voilà je sais je suis un peu compliqué!

[Skqgent]

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 ?

[clown]

Envoyé par Skqgent

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 ?

Oui voilà si c'est possible bien sûr!

[myDearFriend!]

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) :

DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK

Option Explicit
'myDearFriend! - www.mdf-xlpages.com

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

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

Cordialement,

[clown]

Envoyé par myDearFriend!

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) :

DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK

Option Explicit
'myDearFriend! - www.mdf-xlpages.com

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

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

Cordialement,

Tout d'abord merci pour ton aide précieuse.
Mais j'ai un petit souci : en fait sur ma première feuille "journalier" j'avais deux listes qui se modifiaient automatiquement l'une l'autre (un utilisateur génial ici m'avait aidé pour ça).
Maintenant depuis que j'ai ajouté le code de changement que tu m'as donné (et merci encore), ça ne fonctionne plus tres bien.
Je te joins un fichier exemple pour que tu vérifies par toi meme, si tu peux m'aider.
En tout cas merci encore!

[clown]

P'tit up les amis!