Fonction VBA

Bonjour tout le monde, j'essaie de programmer une fonction fnAmende(PlageDeDates) qui calcule le montant d’amende

pour une liste de livres empruntés à la bibliothèque.

L’amende doit être calculée en multipliant le nombre total de jours en retard par rapport à la date du jour (fournie par la fonction Date()).

Pseudocode de base (vous pouvez le bonifier) :

Pour chaque cellule de la plage :

Si (aujourd’hui – cellule) > 0

fnAmende = fnAmende + ((aujourd’hui – cellule)* AmendeUnitaire)

Fin Si

Boucler

Merci de m'aider

Bonjour,

revoici votre fichier avec plusieurs exemples,

merci beaucoup ça fonctionne bien . C"est vraiment gentille