Bonjour a tous, j'ai eu une formule que LooReed m'as gentillement programmé, mais je n'arrive a ajouter plus que 2 cellules dans la formule, est ce que quelqu'un peut m'indiquer la marche a suivre? je veux calculer sur une trentaine de cellule environ. Voici la formule (Merci encore LooReed)
Un gros merci a l'avance
Function Lasomme(Cel1 As Range, Cel2 As Range)
Application.Volatile
Dim Tablo, NBVal, I, Somme
Tablo = Split(Cel1.Value, "-")
For I = 0 To UBound(Tablo)
Somme = Somme + Evaluate(Tablo(I))
Next I
NBVal = UBound(Tablo) + 1
Tablo = Split(Cel2.Value, "-")
For I = 0 To UBound(Tablo)
Somme = Somme + Evaluate(Tablo(I))
Next I
NBVal = NBVal + UBound(Tablo) + 1
Lasomme = Somme & " / " & NBVal
End Function