Inserer auto de la date à chaque saisie
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... ;)
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... ;)
Configuration: Windows XP Internet Explorer 6.0 Excel 2003
2 réponses
-
Ah, précision qui vaut son pesant de Cahuètes, c'est sous Excel que je recherche la solution... ;)
-
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!
