Format

[eutrophisation]

Bonjour
SVP pouvez vous me fournir la solution en ce qui concerne le format personnalisé ci dessous en gras qui n'est pas approprié pour mes saisies.
J'aurais souhaité unformat qui permettra de reproduire dans le commentaire ce qui est saisi dans la cellule.
Si je saisie dans la cellule 25 dans le commentaire j'aurais 25 et non pas 25,00 si je saisie 12,7564 dans la cellule 12,7564 et non pas 12.78

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column > 1 And Target.Count = 1 Then ' colonne 3 seulement
If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "0.00;standard") & " Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Shape.TextFrame.AutoSize = True
End If
Application.EnableEvents = True
End Sub
Salutations sportives

 

[sousou]

Re : Format

bonjour eutrophisation
Si tu supprime la notion de format?
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & " Modifié par:" & Environ("UserName") & _
" Le " & Now & vbLf

 

[eutrophisation]

Re : Format

merci ça marche