Function avec sélection multiple

[trudy2]

Bonjour à tous ! J'ai un problème et j'espère que votre intelligence et votre compétence pourra le résoudre. J'aimerais répliquer la function

=somme()

d'Excel en VBA. Je l'ai appelée "PersoSum" :

Function PersoSum(NumberRange As Range)

    Dim cell As Range
    For Each cell In NumberRange
        PersoSum = PersoSum + cell.Value
    Next cell

End Function

Cette fonction fonctionne parfaitement avec une sélection simple. Par exemple :

=persosum(A1:A6)

Mais pas avec une sélection multiple. Par exemple :

=persosum(A1:A2;A4:A6)

Est-ce que quelqu'un saurait la corriger ?

Merci d'avance et bon week-end !

Trudy

 

[jp14]

Re : Function avec sélection multiple

Bonjour

Une fonction à tester

Function PersoSum(ParamArray Cellules1())
Dim i As Integer
Dim cell As Range
Application.Volatile
i = 1' pour mettre un point d'arret
For i = 0 To UBound(Cellules1)
    'MsgBox (Cellules1(i).Address)
    For Each cell In Range(Cellules1(i).Address)
        PersoSum = PersoSum + cell.Value
    Next cell
    
    
Next i
 End Function

JP

 

[trudy2]

Re : Function avec sélection multiple

Bonjour,

J'ai testé votre fonction et elle a l'air de fonctionner parfaitement. 1000 mercis !

Trudy.