Insérer le nom et la dfate du jour

[FAB²]

Bonjour à tous,

Mon problème est certainement connu mais je n'ai pas trouvé de réponse sur le forum.

Voilà, mon besoin est le suivant :
J'utilise un simple tableau de suivi des actions (une ligne par action). La dernière colonne contient une cellule appelée commentaire dans laquelle je suis l'historique de l'action.
Mon besoin est de pouvoir ajouter dans la cellule le nom de la personne qui saisit et la date du jour avant le commentaire.
Par exemple : [Fabien] 21/10/11 : blalblablalbla

Merci à tous pour ce forum et pour vos futures réponses

Fabien

 

[jpb388]

Re : Insérer le nom et la dfate du jour

Bonjour à tous
exemple:

Range("D5").Select
Selection.ClearComments
Range("D5").AddComment
Range("D5").Comment.Text Text:="[Fabien] " & Format(Date, "dd/mm/yy") & " :"
Range("D5").Comment.Visible = True

a+

 

[DoubleZero]

Re : Insérer le nom et la dfate du jour

Bonjour à toutes et à tous,

Une autre proposition :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
'Pour insertion en colonne B de "[Fabien] 21/10/11 : blalblablalbla"
For Each c In Range("b1:b" & Range("a65535").End(xlUp).Row)
'si la saisie est effectuée en colonne A
If c.Offset(, -1).Value <> "" Then
c.Value = "[" & Environ("username") & "]" & " " & Now & " : " & c.Offset(, -1).Value
End If
c.Offset(, -1).ClearContents
Next
End Sub

A bientôt .