Discussion :

[Frenchman777]

Bonjour,

Je cherche à programmer une fonction calculant la somme des valeurs inverses dans une colonne. Lorsqu'une case rencontrée est vide, je souhaite que la fonction ignore cette case.

J'ai programmé la fonctione de base comme suit, mais j'ai du mal à trouver comment éviter les cases 'vides'. Pouvez vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function suminv(plage As Range) As Double
Dim case As Range, total As Double
Application.Volatile
total = 0
For Each case In plage
total = total + (1 / case.Value)
Next
suminv = total
End Function

Merci par avance

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function SumInv(plage As Range) As Double
Dim C As Range, Total As Double
    Application.Volatile
    For Each C In plage
        If C <> "" Then Total = Total + (1 / C.Value)
    Next
    SumInv = Total
End Function

Cordialement.

[Frenchman777]

Merci !

[hben1961]

Bonjour à tous,

Remplacer dans le code la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If C <> "" Then Total = Total + (1 / C.Value)

par la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If C <> "" And C <> 0 Then Total = Total + (1 / C.Value)

pour éviter aussi les cellules contenant des 0...

Cordialement