Addition de chiffre de même cellule

Bonsoir,

J'ai essayé de faire l'addition de plusieurs chiffre qui sont dans une même cellule mais je n'ai pas trouvé de solution.

Est ce que l'un de vous pourrez m'aider.

Je vous ai joint mon fichier test ou vous avez les valeurs dans la colonnes A et je dois faire ça sur plusieurs ligne.

Est ce que l'un de vous aurait une macro VBA pour m'aider à faire cela.

Merci par avance de votre aide.

Cordialement.

Pif

Bonsoir,

Tes cellules contiennent du texte.

En principe ce sont des nombres qu'on additionne !

Bonsoir,

Avec une fonction qui n"est pas de moi mais de BrunoM45

Function SommeNombres(Rng As Range)
  Dim Ind As Integer, TabVal() As String, Total As Single
  ' Rendre la fonction volatile : doit être recalculée chaque fois qu'un calcul est effectué
 Application.Volatile
  ' Définir le tableau des valeurs séparées par un retour à la ligne
 TabVal = Split(Rng, Chr(10))
  ' Initialiser à ZERO le total
 Total = 0
  ' Pour chaque valeur du tableau, faire la somme
 For Ind = 0 To UBound(TabVal)
    Total = Total + Val(TabVal(Ind))
  Next Ind
  ' Renvoyer la somme à la fonction
 SommeNombres = Total
End Function

Bonjour,

Avec la somme de chaque cellule indiquée en colonne B :

Sub Test()
Dim Cel As Range
Dim T
Dim i As Integer
Dim S As Double
    With Worksheets("MPDTasks")
        For Each Cel In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
            T = Split(Cel, Chr(10))
            For i = 0 To UBound(T)
                If T(i) <> "" Then S = S + Replace(T(i), ".", ",")
            Next i
            Cel.Offset(, 1) = S
            S = 0
        Next Cel
    End With
End Sub

A+

Merci beaucoup pour votre support et votre réactivité.

Cela fonctionne parfaitement.

Merci et bonne soirée.

Pif