Insérer le nom et la dfate du jour

FAB² · 21 Octobre 2011

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 · 21 Octobre 2011

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 · 21 Octobre 2011

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

Bonjour à toutes et à tous,

Une autre proposition :

Code:

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 🙂.

Insérer le nom et la dfate du jour

FAB²

Guest

jpb388

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Insérer le nom et la dfate du jour

FAB²

Guest

jpb388

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency