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

[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...

[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]

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

Bonne soirée

en simplifiant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
IF  A = 1 THEN
     B= 1
ELSE 
     B=  2
ENDIF 
 
IF A = 3 THEN
   B=  3
  ELSE
   B =  4
ENDIF
 
 AFFICHE B

quelque soit la valeur de A Afficheras toujours 3 ou 4

A = 3 B= 3
A = 4 B= 4
A = 1 B= 4
A = 2 B= 4
A différent 3 B= 4

[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

[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.

[bifconsult]

Bonjour,

J'espère ne pas être hors sujet, mais pour imbriquer plusieurs IF (donc coller à la remarque de bbil):

Code :

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

1
2
3
4
5
6
7
8
9
 
If [condition1] then
formules
Elseif [condition2] then
formules
elseif [condition3] then
formules
...
End if

[Theze]

Bonjour,

Je trouve qu'il y a des incohérences dans les comparaisons mais bon voilà ce que j'en ai plus ou moins déduit :

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
44
45
46
47
48
49
50
51
52
 
Sub Retraite()
 
    Dim I As Integer 'évite la répétition des lignes
 
    Cells(33, 3).Value = 0 '<-- pourquoi ???
 
    'si c'est un salarié non cadre
    If Sheets("PERSONNEL").Cells(2, 12) <> "oui" Then
 
        I = 16
 
        Select Case Cells(21, 3)
 
            Case Is <= 6618
 
                Cells(33, 3) = Cells(21, 3)
 
            Case Else
 
                Cells(33, 3) = 6618 '<-- pourquoi ???
 
        End Select
 
    'si c'est un salarié cadre
    '(elsif permet de contrôler que "oui" est bien entrée dans la cellule)
    ElseIf Sheets("PERSONNEL").Cells(num_ligne, 12) = "oui" Then
 
        Select Case Cells(21, 3)
 
            Case Is <= 2206 'calcul retraite complementaire - TRANCHE A
                I = 18
 
            Case Is <= 8824 'calcul retraite complementaire - TRANCHE B
                I = 20
 
            Case Is <= 17648 'calcul retraite complementaire - TRANCHE C
                I = 22
 
            Case Else
                'Ici, dans le cas ou le salaire est supérieur à 17648...
 
        End Select
 
        Cells(33, 3) = Cells(21, 3)
 
    End If
 
    Cells(33, 7) = Cells(33, 3) * Sheets("TAXES").Cells(I, 4)
    Cells(33, 5) = Cells(33, 3) * Sheets("TAXES").Cells(I, 3)
 
End Sub

Hervé.

[gFZT82]

Bonjour,

Tu devrais pouvoir traduire le code avec ce logigramme :

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
 
Si CADRE alors
          Si R >= "17648" alors  (non défini dans ta procédure) ’ TRANCHE D ?
                   ActionA1
          Sinon, si R >="8824" alors	 ’ TRANCHE C
                   ActionA2
          Sinon, si R >= "2206" alors	’ TRANCHE B
                   ActionA3
          Sinon (cas où R < "2206") alors	’ TRANCHE A
                   ActionA4
          Fin si
Sinon (NON CADRE) alors 
          Si R <= "6618" alors
                   ActionA5
	  Sinon 
                   ActionA6
	  Fin si
Fin si

Cordialement.