Bonjour à tous,

J'ai une question concernant la réalisation d'une fiche de paie.
Je dois appliquer un taux situé dans une feuille appelée "TAXE" qui diffère en fonction de la qualité du salarié, à savoir s'il est cadre ou non ainsi que de ses revenus.
La qualité du salarié est dans la feuille "PERSONNEL".
J'ai essayé de réaliser la macro, cependant elle ne marche pas, pourriez vous m'aider ?

En vous remerciant d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
'RETRAITE
'calcul retraite complementaire - salarie non cadre
If Sheets("PERSONNEL").Cells(2, 12) <> "oui" And Cells(21, 3).Value <= "6618" Then
Cells(33, 3).Value = Cells(21, 3).Value
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(16, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(16, 3)
Else
Cells(33, 3).Value = "6618"
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(16, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(16, 3)
End If
'calcul retraite complementaire - TRANCHE A
If Sheets("PERSONNEL").Cells(num_ligne, 12) = "oui" And Cells(21, 3).Value <= "2206" Then
Cells(33, 3).Value = Cells(21, 3).Value
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(18, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(18, 3)
Else
Cells(33, 3).Value = "2206"
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(18, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(18, 3)
End If
'calcul retraite complementaire - TRANCHE B
If Sheets("PERSONNEL").Cells(num_ligne, 12) = "oui" And Cells(21, 3).Value > "2206" And Cells(21, 3).Value <= "8824" Then
Cells(33, 3).Value = Cells(21, 3).Value
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(20, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(20, 3)
Else
Cells(33, 3).Value = "0"
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(20, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(20, 3)
End If
 
 
'calcul retraite complementaire - TRANCHE C
If Sheets("PERSONNEL").Cells(num_ligne, 12) = "oui" And (Cells(21, 3).Value >= 8824 And Cells(21, 3).Value <= 17648) Then
Cells(33, 3).Value = Cells(21, 3).Value
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(22, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(22, 3)
Else
Cells(33, 3).Value = "0"
Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(22, 4)
Cells(33, 5).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(22, 3)
End If