Boite de commentaire ...

[KyFranRD]

Bonjour

J'ai une boite de commentaire et je voudrais savoir comment insérer plusieurs commentaires à la suite.....

Mais bon le fichier sera plus explicite

Merci à l'avance

 

[phlaurent55]

Re : Boite de commentaire ...

Bonjour Kyfrand,

avec ce code:

Private Sub CommandButton2_Click()
ActiveCell.Value = ActiveCell.Value & " :" & TextBox1.Value
Unload Me
End Sub

à+
Philippe

Edit: Bonjour Jean-Marcel

 

[KyFranRD]

Re : Boite de commentaire ...

Bonjour phlaurent et jean marcel


Je vous remercie et teste cela de suite 😉

 

[KyFranRD]

Re : Boite de commentaire ...

Par contre phlaurent, dis moi comment insérer l'heure au commentaire. Je parviens à y insérer la date et le nom de l'interface mais pas l'heure ????

Merci à l'avance

Bon ben c'est bon j'ai reussi

dsl pour le message inutile

J'ai incorporé >>>>


Private Sub CommandButton2_Click()

Range("B5").Value = Range("B5").Value & vbCrLf & " :" & TextBox1.Value & " ,Date >>" & Format(Date, "dd/mm/yyyy") _
& " , Heure >>" & Format(Time, "hh:mm")
Unload Me

End Sub


A ++ 😛

 

[KyFranRD]

Re : Boite de commentaire ...

merci jean marcel

plus court que ma version