Fonction sur Excel Résolu

Question

Bonjour à vous, 

J'essaye de créer une fonction pour procéder au calcul à partir d'une grille tarifaire :
Les 10 premiers articles sont à 30€
Les 10 articles suivants (20-10) sont à 25€, auxquels on ajoute les 300€ (10 * 30€) des articles précédents.
Etc...

Je rencontre un problème avec la fonction suivante car elle me retourne #VALEUR! dans ma cellule. Mais je n'arrive pas à identifier le soucis. 

Function Tarif_Paye(nombre)

'Déclaration et initialisation de valeurs
Dim NbPaye, Paye_Marginale As Integer
NbPaye = nombre
Tarif_Paye = 0

'Grille tarifaire
Table_Paye = Array(0, 10, 20, 30, 40, 50, 60, 99)
Table_Tarif = Array(0, 30, 25, 20, 15, 10, 5, 0)

'Calcul rapide des montants intermédiaires
Table_Antecedant = Array(0, 0, 0, 0, 0, 0, 0, 0)
For i = 1 To UBound(Table_Paye)
    Table_Antecedant(i) = Table_Antecedant(i - 1) + Table_Paye(i) * Table_Tarif(i)
Next

For j = 1 To UBound(Table_Paye)     'Pour chaque plage tarifaire

Debut = Table_Paye(j - 1) + 1   'Montant bas de la plage
    Fin = Table_Paye(j)             'Montant haut de la page

Select Case NbPaye              'Vérifie la condition suivante
        Case Debut  To Fin          'Si le montant recherché est compris dans la plage
        Paye_Marginale = (NbPaye - Table_Paye(j - 1))   'Nombre de paye comprise dans la plage
        Tarif_Paye = Paye_Marginale * Table_Tarif(j) + Table_Antecedant(j - 1)  'calcul du tarif

End Select
Next

Tarif_Paye = Round(Tarif_Paye, 2)

End Function

Lors que je modifie la "function" en un Sub, j'obtiens bien le résultat souhaité (avec un léger remaniement du code pour le mettre en boucle sur ma liste dans mon classeur. Cependant lorsque je souhaite la transformer en fonction, je bloque. 

Pour les fonctions très simples, j'arrive bien à un résultat. Il doit y avoir une poutre que je n'arrive pas à voir. 
  Function carre(nombre)
     carre = nombre ^ 2 
  End Function

Je vous remercie d'avance pour votre aide,

Bonne soirée

via55 · Answer

Bonjour à toi

Pourquoi faire simple quand on peut faire compliqué !
Si j'ai bien compris ta problématique, personnellement je bâtirai ma fonction ainsi :
Function tarif_paye(nombre)
Select Case nombre
Case Is <= 10
pu = 30: plus = 0: moins = 0
Case Is <= 20
pu = 25: plus = 300: moins = 10
Case Is <= 30
pu = 20: plus = 550: moins = 20
Case Is <= 40
pu = 15: plus = 750: moins = 30
Case Is <= 50
pu = 10: plus = 900: moins = 40
Case Is > 50
pu = 5: plus = 1000: moins = 50
End Select
tarif_paye = (nombre - moins) * pu + plus
End Function
Cdlmnt
VIa

via55 · Answer

Bonsoir

1) Ta fonction personnalisée fonctionne très bien chez mois sans erreur de VALEUR

2) Par contre elle renvoie un résultat erroné à partir de 21 articles !

https://www.cjoint.com/c/LGgs6a2Oe7u

3) J'ai établi de mon côté sur ce fichier une fonction personnalisée tarif_paye2 qui a l'air de fonctionner et qui ne comporte pas le Array avec les 0

Cdlmnt
Via

Fonction sur Excel

2 réponses

Votre réponse

Discussions similaires