Discussion :

[Wishguu]

Bonjour à toutes et à tous,

Voici mon problème :
J'ai une formule qui me permet de calculer la rémunération d'un salarié en fonction de son chiffre d'affaire et de différents critères.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function Rémunération(CA, Smin, Smax, Hmin, Hmax, Taux As Single) As Single
Dim Rému As Single
 
If CA <= Hmin Then
    Rému = Smin
ElseIf ((CA >= Hmin) And (CA < Hmax)) Then
    Rému = Smin + Taux * (CA - Hmin)
Else:
    Rému = Smax
End If
 
    Rémunération = Rému
 
End Function

Avec :

Ca = Chiffre d'Affaire
Smin = salaire min
Smax = salaire max
Hmin = Chiffre d'affaire min de déclenchement de la part variable du salaire
Mmax = Chiffre d'affaire max à partir duquel on atteint le plafond de rémunération
Taux = coefficient de la part variable.

La fonction fonctionne, le problème provient de l'application automatique de cette fonction à X cellules et Y colonnes.

J'ai X salariés, chacun ayant des Smin, Smax, Hmin... différents.
Pour chaque salarié, je souhaite avoir l'évolution de sa rémunération en fonction de son Chiffre d'affaire.
Sur la feuille "Catégorie1" son listés en lignes chaque salarié (cellules vides) avec leurs coefficients respectifs.
Sur la feuille "TabCatégorie1" son listé en colonnes chaque salarié avec l'évolution de leur rémunération calculée avec la fonction "Rémunération"

Mon souci : je n'arrive pas à automatiser ce process
(Sur le document, j'ai fait à la main les trois premiers)

Anyone help please ?

(j'ai déjà tenté l'enregistrement de macro, sans succès)