Sommeprod et VBA

Bonjour le forum

Quelqu'un peut il me donner l'équivalence de la formule suivante

en VBA

=SOMMEPROD((A1>{63;150;4000})*(A1-{63;1500;4000});{0,2;0,1;0,05})

le résultat serait affiché dans un textbox

Merci par avance

Rebonjour le forum

Je mets un fichier exemple à ma demande

pour étayer le résultat que je souhaite avoir en vba

Merci par avance

Bonjour,

Une proposition avec une fonction personnalisée à utiliser dans une feuille de calcul ou dans un code VBA.

Option Explicit
Public Function test(Cellule) As Currency
    If IsEmpty(Cellule) Or Not IsNumeric(Cellule) Then Exit Function
    Select Case Cellule
        Case Is <= 630
            '
        Case Is <= 1500
            test = 0.2 * Cellule - 126
        Case Is <= 4000
            test = 0.3 * Cellule - 276
        Case Is >= 4000
            test = 0.35 * Cellule - 476
        Case Else
            '
    End Select
End Function

Bonjour Jean Eric

Merci de ta réponse. Elle marche parfaitement.

Peux tu m'expliquer la suite des nombres 126, 276, 476 ?

Bonne journée

A+

Re,

Pour exemple pour un montant > 4000

(valeur - 630) x 20% + (valeur - 1500) x 10% + (valeur - 4000) x 5%

Soit:

valeur x 35% - 126 -150 - 200 = valeur x 35% - 476

Cordialement

Re

ça devient alors très clair

je te remercie infiniment

A bientôt