Ajouter plusieur cellule

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

Bonjour,

Le programme sert à quoi exactement ?

Qu'y a t'il dans tes cellules ? Sous quelles formes ?

As tu un fichier d'exemple ?

Cordialement

Tu veux le faire sur par exemple sur tout le mois ?

Pour le premier mois, toute la colonne B ?

Oui exactement, tu as tout compris!!

Function LaSomme2(MonRange As Range)
Application.Volatile
Dim Tablo, NBVal, I, Somme
Dim Cell

For Each Cell In MonRange
    Tablo = Split(Cell.Value, "-")
    For I = 0 To UBound(Tablo)
        Somme = Somme + Evaluate(Tablo(I))
    Next I
    NBVal = NBVal + UBound(Tablo) + 1
Next

LaSomme2 = Somme & " / " & NBVal

End Function

Veille a ce que tes cellules aient soit le bon format soit complètement vide.

Par exemple ta cellule B6 a un espace, et ta cellule B28 n'avait pas le bon format.

Dit moi si cela te va.

Ah et eh..

Cette fois tu selectionnes une zone complète. Exemple :

=LaSomme2(B5:B35)

Oui ca l'air de tout bien fonctionner, un énorme merci!!!

Impeccable !

Bonne Soirée !

Moul.