Fonction Excel renvoie une erreur #VALEUR si rajoute de valeur dans plage

Bonjour,

J'ai mis en place une fonction simple qui me permet de faire une somme des valeurs des cellules.

En gros, on définit une plage que l'on va parcourir: si l'année de la cellule de la plage correspond à l'année "Af" renseignée dans la fonction, on va récupérer la valeur situé sur la même ligne, 4 colonnes plus loin)

Mon code fonctionne bien sauf si je rajoute une valeur dans la plage: j'obtiens alors l'erreur #VALEUR"

Function total(Plage As Range, Af As Integer)
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
    If Year(wCell) = Af Then
        ligne = wCell.Row
        colonne = wCell.Column
        total = total + Cells(ligne, colonne + 4)
    End If
Next
End Function

N'étant pas familié des fonctions VBA, j'aurais besoin de votre aide.

Merci

Bjr,

il faudrait connaître les valeurs pour savoir si c'est Year(wCell) qui provoque l'erreur ou bien total + Cells(ligne, colonne + 4)

ajoute au code un

debug.print wCell.value

et

Cells(ligne, colonne + 4).value

met aussi Year(wCell.value) = Af et total + Cells(ligne, colonne + 4).value

Bonjour

Ta fonction a bien l'air de fonctionner...

Bye !

Bonjour,

Dsl de ne pas avoir répondu. J'ai trouvé l'erreur en fonctionnant en step by step.

Merci de votre aide, et pour le temps accordé