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