Discussion :

[lenoble09]

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

[casefayere]

Bonsoir,

sans aller plus loin :

Code :

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

....Cells(21, 3).Value <= "6618" Then...

ne serait pas

Code :

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

Cells(21, 3).Value <= 6618 Then

et ainsi de suite

[lenoble09]

Malheureusement non...

[casefayere]

Pourtant il s'agit de montants (plafonds) j'imagine ?

[lenoble09]

Tout à fait, mais cette formule ne m'affiche pas d'erreur, elle ne fonctionne juste pas :s

[casefayere]

Mais elle ne t'affichera pas d'erreur, c'est sur, elle considère tes chiffres comme du texte donc ça ne fonctionne pas, mais as-tu essayé au moins d'enlever tous les "" ?

Excuses-moi Bbil, pas vu ta réponse, mais je pense que j'ai raison, plus ce que tu constates

Bonne soirée

[SfJ5Rpw8]

Bonsoir,

si ta suite d'if/else agit sur la même zone il semble que ton organisation est mauvaise... seule ton dernier if/else et pris en compte.. puisque ton dernier "else" couvre tout est autres conditions...

[Philippe Tulliez]

Bonsoir,
Sans aller plus loin non plus et j'avoue que je ne sais pas ce que représente 6618
. Un code ou une valeur ?
Mais dans une partie de ton code, je vois déjà des lignes inutiles.
Dans ta condition If Sheets("PERSONNEL").Cells(2, 12) <> "oui" And Cells(21, 3).Value <= "6618" ou <=6618
Je lis que la seule chose différente est que si la condition est vrai Cells(33, 3).Value = Cells(21, 3).Value et si elle est fausse Cells(33, 3).Value = "6618" ou =6618
Donc, la partie de code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'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

Pourrait être réduite à

Code :

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

1
2
3
4
5
6
7
8
9
'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
Else
 Cells(33, 3).Value = "6618"
End If
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)

Tu peux aussi enlever les .Value cela ne change rien, Value étant la propriété par défaut de l'objet Cells

Code :

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

Cells(33, 7).Value = Cells(33, 3).Value * Sheets("TAXES").Cells(16, 4)

Et
Cells(33, 7) = Cells(33, 3) * Sheets("TAXES").Cells(16, 4)C'est du pareil au même.

[Philippe Tulliez]

Bonsoir à tous,
Désolé si ma réponse tombe mal mais entre le moment où j'ai commencé à répondre, il n'y avait qu'une seule réponse, et après l'envoi un nombre plus important est apparu.

[lenoble09]

Merci à tous pour vos réponses,

Celle qui se rapproche le plus de mon problème est la réponse de Bbil.

En effet, il faudrait que j'arrive à concentrer les formules de mes retraites TRANCHE A, B et C, dans une seule formule IF afin que ne soit pas pris en compte, uniquement la dernière formule TRANCHE C.

Comment puis je faire ?

En vous remerciant pour vos conseils très pros !

[Philippe Tulliez]

Bonjour,

En effet, il faudrait que j'arrive à concentrer les formules de mes retraites TRANCHE A, B et C, dans une seule formule IF afin que ne soit pas pris en compte, uniquement la dernière formule TRANCHE C.

Le plus simple serait que tu expliques la manière de calculer les retraites.

[ESVBA]

difficille de répondre sans savoir à quoi correspondent les cellules.

LEs guillements pour des nombres.

J'ajouterais le "oui" est-il bien en minuscule dans les feuilles...

La valeur de num_ligne est-elle bien définie ? num_ligne peut-il valoir 2 ?

1) Le test < 6618 avec les deux solutions oui/ non
2) le test < 2206 avec les deux solutions oui/non

Le programme peut faire le test 1 puis le test2 si num_ligne=2

A méditer.


ESVBA