Inserer auto de la date à chaque saisie
zebrain38
-
zebrain38 -
zebrain38 -
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... ;)
A voir également:
- Inserer auto de la date à chaque saisie
- Insérer une vidéo dans powerpoint - Guide
- Saisie gestuelle iphone - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Comment insérer des points de suite sur word - Guide
2 réponses
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!
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!
