Inserer auto de la date à chaque saisie Fermé

Question

Bonjour,

J'ai un fichier partagé d'analyse des problèmes.
dans l'une des colonnes, les utilisateurs doivent renseigner de façon régulière les progrès.

J'aimerais que, à chaque fois que la cellule est éditée, le format automatique de la cellule soit: Date automatique de la saisie - Texte, genre: 16/06/2008: amélioration du ... 

J'ai beau me rappeler, je ne me souviens pas de la logique Vba permettant cela... Quelqu'un saurait m'aider??

A vot' bon coeur, messieurs Dames... ;)

zebrain38 · Answer

Ah, précision qui vaut son pesant de Cahuètes, c'est sous Excel que je recherche la solution... ;)

zebrain38 · Answer

Hello tout le monde,

Je progresse un tout petit peu, au fil de mes recherches...

J'ai trouvé ca:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TheDate As String

Aujourdhui = Date
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
Application.EnableEvents = False
TheDate = Aujourdhui & ": " & Target.Value
Target.Formula = TheDate
Application.EnableEvents = True
End If

End Sub

Ca marche très bien (cool!!), sauf que lorsque je fais une selection + suppression des valeurs, un message d'erreur apparait et la macro ne fonctionne plus...

Est ce que quelqu'un saurait comment faire pour pouvoir supprimer les valeurs des cellules sans que ca buggue?

Merci d'avance!

Inserer auto de la date à chaque saisie

2 réponses

Discussions similaires