Re: extraire les valeurs numeriques dans cellule
bonsoir Philou , bonsoir Jon
la macro ci-dessous permet d'extraire toutes les valeurs numeriques de la cellule E1, quelques soit la longueur de champ
et ensuite d'additionner ces valeurs
Sub ExtractionValNumeriques()
Dim i As Byte
Dim Cible As String
Dim Nombre As Double, Total As Double
Cible = Range("E1")
Cible = Application.Substitute(Cible, ",", ".") 'pour que fonction Val puisse reconnaitre des decimales
'Cible = Application.Substitute(Cible, " ", "x")'gerer deux nombres qui se suivent séparés par espace
For i = 1 To Len(Cible)
If IsNumeric(Mid(Cible, i, 1)) Then
Nombre = Val(Mid(Cible, i, Len(Cible) - i + 1))
MsgBox Nombre
Total = Total + Nombre
i = i + Len(Str(Nombre)) - 1
End If
Next
MsgBox "Le total est : " & Total
End Sub
bonne soiree
michel