Formule dans commentaires !

[toune21]

Bonjour à tous,

Voilà j'ai cette petite macro, qui m'inscrit la formule de ma cellule en commentaire avec la date système, qui est très importante.

On Error Resume Next
For Each cell In Selection
If cell.HasFormula Then
muser = Application.UserName
mdate = Date
*
mformula = cell.FormulaLocal
cell.AddComment muser & " " & mdate & " " & vbLf & mformula
cell.Comment.Shape.TextFrame.AutoSize = True
End If
Next cell
End Sub

Le résultat du commentaire donne ceci :
MM. 30/09/2012
=H212&" du "&TEXTE(G217;"jj-mm-aa")&" au "&TEXTE(G218;"jj-mm-aa")

Je voudrais ajouter l'heure système.
Voilà j'ai ajouté (entre date et formula)
…
* mtime = Time
… et
cell.AddComment muser & " " & mdate & " " & mtime & " & vbLf & mformula"

et le résultat est :
MM. 30/09/2012 07:15:41 &vbLf & mformula

Je n'ai donc plus ma formule
Quelqu'un pour m'aider.
Déjà merci.
Cordialement

 

[Gardien de phare]

Re : Formule dans commentaires !

Bonjour,

cell.AddComment muser & " " & mdate & " " & mtime & " " & vbLf & mformula

HTH

--
François L

 

[toune21]

Re : Formule dans commentaires !

Bonjour François,

En fait la (guillemette) " était mal placée

Merci beaucoup, bon dimanche
MM