Exercice N° 4 - Création d'une fonction personnalisée

Exercice
5

Re @Mimimathy,

Je ne l’avais jamais utilisé mais juste entendu parlé la " fonction IIf " du coup je l’ais utilisé pour la première fois, ça a l’air de fonctionner.

Function Commission(Cel)
'Fonction si vrai, si faux

Application.Volatile 'Recalcul automatique

    Commission = IIf(Cel < 0, 0, IIf(Cel >= 0 And Cel < 10000, Cel * 8 / 100, _
        IIf(Cel > 10000 And Cel < 100000, Cel * 12 / 100, Cel * 18 / 100)))

End Function

@+