BONSOIR Doum
ma proposotion , un peu tirée par les cheveux , additionne toutes les valeurs numeriques lors d'un double clic dans la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Byte
Dim Cible As String
Dim Total As Double
Cible = Application.Substitute(Target, ",", ".") 'pour que fonction Val puisse reconnaitre les decimales
Cible = Application.Substitute(Cible, " ", "x") ' pour gerer deux nombres qui se suivent séparés par un espace
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Total = Total + Val(Mid(Cible, i, Len(Cible) - i + 1))
i = i + Len(Str(Val(Mid(Cible, i, Len(Cible) - i + 1)))) - 1
End If
Next
Target = Total
End Sub
bonne soirée
MichelXld