XL 2016 Indiquer la date du jour dans une cellule sans effacer les précédentes

ReneDav14000 · 6 Octobre 2022

Bonjour à toutes et à tous,
Tout est dit dans l'intitulé de la question. Je cherche à mettre en place une fonction qui me permettrait la saisie automatique de la date du jour sans effacer les précédentes dates.
Si j'enregistre des données le 05/10/2022 par exemple, et que j'en enregistre des nouvelles le 06/10/2022, je souhaite que la date du 5 reste sans être modifiée parce que l'on est le 6 et ainsi de suite au fur et à mesure des enregistrements.
J'espère que je suis suffisamment clair.
Auriez-vous une piste à me soumettre s'il vous plaît ?
En vous remerciant par avance

sylvanu · 6 Octobre 2022

Bonjour ReneDav,

ReneDav14000 à dit:
je souhaite que la date du 5 reste sans être modifiée parce que l'on est le 6 et ainsi de suite au fur et à mesure des enregistrements.

ReneDav14000 à dit:
J'espère que je suis suffisamment clair.

Non pas franchement.
Mettez un petit fichier test avec l'attendu, ce sera plus simple.
Dans la cellule doit on mettre toutes les dates, si oui comment ?

ReneDav14000 · 6 Octobre 2022

sylvanu à dit:
Bonjour ReneDav,

Non pas franchement.
Mettez un petit fichier test avec l'attendu, ce sera plus simple.
Dans la cellule doit on mettre toutes les dates, si oui comment ?

Bonjour,
Désolé de répondre aussi tardivement. C'est un tableau de pointage d'horaires d'arrivées et de sorties.
Normalement il est prévu qu'une sauvegarde du tableau soit faite tous les jours avant une remise à zéro.
Mais si le responsable n'a pas eu le temps, les agents doivent pouvoir pointer le lendemain sans que cela affecte ce qui a été fait la veille.

jcf6464 · 6 Octobre 2022

Bonjour à tous et le forum,

pour ma part ayant eu ce problème cet de mettre la cellule lier avec un calendrier car comme ces dit la date est en automatique la date du 6/01/2022 sera supprime en ouvrant le classeur vu que c'est en automatique,
bonne continuation jcf64

ReneDav14000 · 6 Octobre 2022

jcf6464 à dit:
Bonjour à tous et le forum,

pour ma part ayant eu ce problème cet de mettre la cellule lier avec un calendrier car comme ces dit la date est en automatique la date du 6/01/2022 sera supprime en ouvrant le classeur vu que c'est en automatique,
bonne continuation jcf64

Bonjour et merci pour votre réponse.
C'est justement ce problème que je cherche à contourner puisqu'il ne sera pas possible d'aller dans la cellule, la saisie manuelle étant interdite.
J'espère que nous allons trouver la solution et la partager avec vous à toute fin utile

ReneDav14000 · 6 Octobre 2022

J'avais pensé à quelque chose comme ça :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
If [a1] <> " " Then [b2] = Date
End Sub

ça marcherai pour A1 et B2 mais comment le répéter afin que toute la feuille soit concernée
Si la cellule de la colonne A n'est pas vide alors on ne modifie pas la cellule sur la même ligne dans la colonne B

sylvanu · 6 Octobre 2022

Peut être :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
    If Target <> "" And Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Date
End Sub

Mais si votre feuille est protégée, alors la colonne B n'est pas accessible en VBA, dans ce cas :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
    If Target <> "" And Cells(Target.Row, "B") = "" Then
        ActiveSheet.Unprotect
        Cells(Target.Row, "B") = Date
        ActiveSheet.Protect
    End If
End Sub

ReneDav14000 · 6 Octobre 2022

sylvanu à dit:

Peut être :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
    If Target <> "" And Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Date
End Sub

Mais si votre feuille est protégée, alors la colonne B n'est pas accessible en VBA, dans ce cas :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
    If Target <> "" And Cells(Target.Row, "B") = "" Then
        ActiveSheet.Unprotect
        Cells(Target.Row, "B") = Date
        ActiveSheet.Protect
    End If
End Sub

Oui effectivement, j'avais oublié ce gros détail. La feuille n'est pas entièrement protégée il n'y a que quelques colonnes dont la B
Merci pour votre code, je vais essayer. Par contre je ne saurai si ça marche que demain au changement de jour.

ReneDav14000 · 6 Octobre 2022

Déjà on peut saisir même si la feuille est protégée.
Je pense que le reste devrait fonctionner.

sylvanu · 6 Octobre 2022

ReneDav14000 à dit:
La feuille n'est pas entièrement protégée il n'y a que quelques colonnes dont la B

Non, ça c'est pas possible. XL travaille à l'envers.
Avec XL TOUTE la feuille est protégée sauf les zones que vous avez déverrouillées. Et non le contraire.

ReneDav14000 · 7 Octobre 2022

sylvanu à dit:
Non, ça c'est pas possible. XL travaille à l'envers.
Avec XL TOUTE la feuille est protégée sauf les zones que vous avez déverrouillées. Et non le contraire.

Oui vous avez raison, je me suis mal exprimé

XL 2016 Indiquer la date du jour dans une cellule sans effacer les précédentes

ReneDav14000

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Pièces jointes

jcf6464

XLDnaute Impliqué

Pièces jointes

ReneDav14000

XLDnaute Occasionnel

ReneDav14000

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

ReneDav14000

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Discussions similaires