et mince je me suis trompé de post pour repondre quand on et bete on ne change pas a 50 ans (loll)
bonjour et merci Nad-Dan de ta reponse si rapide et milles excuses pour ce nouveau post
mais vu que je suis nul de chez nul en macro (et encore le mot et faible) ou doit'je rajouter ta "declaration des variables"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
z = Target.Comment.Text
tablo = Split(z, Chr(10))
For i = 0 To UBound(tablo)
k = Evaluate(k + tablo(i))
Next
Target = IIf(k > 0, k, "")
Cancel = False
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Byte
Dim k, Z
......
End sub
car bien sur si je copie le code comme fait plus haut cela ne fonctionne pas du tout
mais le code de galopin (encore merci a lui) fonctionne pour des nombre entier mais pas si je met des nombres avec trois decimale
je sais que je doit vous parraitre bete mais quand on ne connait pas ......
amicalement