XL 2019 erreur de valeur sur formule

O

olivier1984

XLDnaute Junior
Bonsoir à tous les experts du forum.

Je n'arrive pas à résoudre le problème d'erreur "valeur" sur une formule dans la feuille "PAIE" notamment sur les colonnes "Salaire brut" et "salaire brut prorata "

Principe : certains salariés sont payés à la journée et c'est uniquement pour eux qu'est réservée la colonne "jours travaillés". Pour tous ceux dont la colonne "jours travaillés est renseignée on devra afficher le calcul du brut dans la colonne "salaire brut prorata" et pour ceux dont cette colonne "jours travaillés" n'est pas renseignée on devra afficher le calcul du brut dans la colonne "salaire brut".

1er Problème : j'ai constaté que les formules marchent bien mais dès lors que la colonne "salaire dimanche" est vide C'est-à-dire lorsqu'il n'y a pas d'heures supplémentaires du dimanche (d'où colonne "jour dim" vide) ça renvoie automatiquement un message d'erreur, on dirait que ça veut m'obliger à toujours renseigner une valeur à ce niveau ce qui ne m'arrange pas.
Une proposition svp.

2ème problème :
La feuille ITS calcule parfaitement pour chaque salarié l'impôt sur le revenu puis j'associe manuellement la valeur à chaque salarié dans la colonne "ITS" de feuille "Paie" (vous pourrez voir la formule utilisée).
Problème : j'ai en réalité j'ai une centaine d'ouvriers et je ne pourrais pas répéter cette manœuvre pour tous ces ouvriers.
J'aimerais donc si possible incrémenter une formule "SI" qu'on devra écrire plutôt au niveau de la colonne "ITS" Dans la feuille "Paie" sachant que comme c'est sous forme de tableau, la formule se dupliquera sur toutes les autres lignes. Sans oublier que la base de calcul c'est soit le salaire brut soit le salaire brute prorata selon que l'employé est payé au jour ou mensuellement.

Ou à défaut d'une formule, un code macro qui récupèrera la valeur de l'impôt calculé dans la feuille "ITS" Et viendra coller cette valeur dans la feuille "Paie" au niveau du salarié concerné. Le problème aussi à ce niveau est qu'il faudra alors dupliquer pour tous les ouvriers (plus d'une centaine...) dans la feuille "ITS" ce Petit Tableau qui calcule l'impôt sur le revenu, ce qui n'est pas non plus évident (pour moi en tous cas.)
Toute solution ou proposition serait la bienvenue.

Dernier problème :
J'aimerais un code VBA qui me permettra d'imprimer tous les bulletins dans un seul fichier pdf (Voir la feuille "cadre 2018"). Pour les formules de recherche qui afficheront les éléments du bulletin il n'y a aucun soucis je saurais parfaitement le faire.


Merci d'avance à tous ceux qui se pencheront sur mes soucis.
Cordialement.
 

Pièces jointes

  • PAIE GIGI PRO.xlsm
    780.3 KB · Affichages: 6
Dernière modification par un modérateur:
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Bonjour,

olivier1984 à dit:
1er Problème :
...
Une proposition svp.
Cliquez pour agrandir...
Une proposition :
Code: 
=SI([@[Jours Travaillés]]="";SOMME([@[Salaire Base]];[@[Total Primes]];[@[Salaire dimanche]]);"")
et
Code: 
=SI([@[Jours Travaillés]]="";"";SOMME([@[Salaire au prorata]];[@[Salaire dimanche]]))


olivier1984 à dit:
2ème problème :
La feuille ITS calcule parfaitement pour chaque salarié l'impôt sur le revenu puis j'associe manuellement la valeur à chaque salarié dans la colonne "ITS" de feuille "Paie" (vous pourrez voir la formule utilisée).
Cliquez pour agrandir...
Une proposition :
Code: 
=SIERREUR(INDEX(ITS!E:E;EQUIV([@[Nom & Prénom]];ITS!B:B;0)+1);"-")
 
Dernière édition:
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour olivier1984, TooFatBoy, le forum,

Pour l'impression en PDF des bulletins de paie voyez le fichier joint et cette macro :
VB: 
Sub PDF()
Dim F As Worksheet, c As Range, a(), n
Set F = Sheets("CADRE_2018")
F.Visible = xlSheetVisible 'au cas où...
F.Select
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each c In [Liste_Salariés] 'liste de validation
    If c <> "" Then
        F.Copy Before:=F
        ActiveSheet.Range("N26") = c
        ReDim Preserve a(n)
        a(n) = ActiveSheet.Name
        n = n + 1
    End If
Next
If n = 0 Then Exit Sub
Sheets(a).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Fichier PDF.pdf"
Sheets(a).Delete
End Sub
A+
 

Pièces jointes

  • PAIE GIGI PRO.xlsm
    983.7 KB · Affichages: 7
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Une remarque sur le 2ème problème qui ne me paraît pas cohérent.

Le prélèvement à la source de l'ITS par l'employeur ne doit pas utiliser le barème de l'impôt.

Il doit utiliser le taux moyen d'imposition calculé par le fisc sur tous les revenus du ménage.

A+
 
Vote positif 0 Vote négatif
O

olivier1984

XLDnaute Junior
job75 à dit:
Une remarque sur le 2ème problème qui ne me paraît pas cohérent.

Le prélèvement à la source de l'ITS par l'employeur ne doit pas utiliser le barème de l'impôt.

Il doit utiliser le taux moyen d'imposition calculé par le fisc sur tous les revenus du ménage.

A+
Cliquez pour agrandir...
Merci Pour cette qui est logique cependant ce que vous dîtes est vrai quand il s'agit des personnes physiques exerçant une activité commerciale or là il s'agit des employés et c'est ainsi que s'applique ce taux dans la législation fiscale de notre pays.
Sachant que chaque pays tient une fiscalité qui lui est spécifique...
 
Vote positif 0 Vote négatif
O

olivier1984

XLDnaute Junior
TooFatBoy à dit:
Bonjour,


Une proposition :
Code: 
=SI([@[Jours Travaillés]]="";SOMME([@[Salaire Base]];[@[Total Primes]];[@[Salaire dimanche]]);"")
et
Code: 
=SI([@[Jours Travaillés]]="";"";SOMME([@[Salaire au prorata]];[@[Salaire dimanche]]))



Une proposition :
Code: 
=SIERREUR(INDEX(ITS!E:E;EQUIV([@[Nom & Prénom]];ITS!B:B;0)+1);"-")
Cliquez pour agrandir...
Un grand merci à toi toofatboy pour ces propositions de formules.
Je te fais un retour incessamment après avoir testé.
Bon dimanche
 
Vote positif 0 Vote négatif
O

olivier1984

XLDnaute Junior
TooFatBoy à dit:
Bonjour,


Une proposition :
Code: 
=SI([@[Jours Travaillés]]="";SOMME([@[Salaire Base]];[@[Total Primes]];[@[Salaire dimanche]]);"")
et
Code: 
=SI([@[Jours Travaillés]]="";"";SOMME([@[Salaire au prorata]];[@[Salaire dimanche]]))



Une proposition :
Code: 
=SIERREUR(INDEX(ITS!E:E;EQUIV([@[Nom & Prénom]];ITS!B:B;0)+1);"-")
Cliquez pour agrandir...
Bonjour Toofatboy
C'était juste pour te dire un grand merci pour toutes tes formules proposées qui marchent parfaitement et il n'y a plus aucun message d'erreur.
Cordialement
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour olivier1984, le forum,

En fait il faut créer tous les bulletins de paie et les personnaliser un par un chaque mois.

On utilisera donc cette macro pour éditer le fichier PDF :
VB: 
Sub PDF()
Dim t, F As Worksheet, i, a(), n
t = Timer
Set F = Sheets("CADRE_2018")
F.Visible = xlSheetVisible
For i = F.Index + 1 To Worksheets.Count
    ReDim Preserve a(n)
    a(n) = Worksheets(i).Name
    n = n + 1
Next
If n = 0 Then Exit Sub
Sheets(a).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Fichier PDF.pdf"
F.Select
MsgBox "Fichier PDF créé en " & Format(Timer - t, "0.00 \sec"), , n & " employés"
End Sub
A+
 

Pièces jointes

  • PAIE GIGI PRO.xlsm
    958.7 KB · Affichages: 5
Vote positif 0 Vote négatif
O

olivier1984

XLDnaute Junior
job75 à dit:
Bonjour olivier1984, le forum,

En fait il faut créer tous les bulletins de paie et les personnaliser un par un chaque mois.

On utilisera donc cette macro pour éditer le fichier PDF :
VB: 
Sub PDF()
Dim t, F As Worksheet, i, a(), n
t = Timer
Set F = Sheets("CADRE_2018")
F.Visible = xlSheetVisible
For i = F.Index + 1 To Worksheets.Count
    ReDim Preserve a(n)
    a(n) = Worksheets(i).Name
    n = n + 1
Next
If n = 0 Then Exit Sub
Sheets(a).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Fichier PDF.pdf"
F.Select
MsgBox "Fichier PDF créé en " & Format(Timer - t, "0.00 \sec"), , n & " employés"
End Sub
A+
Cliquez pour agrandir...
Je crois que tu m'avais déjà donné la solution à ce problème ci précédemment et j'ai testé ça marche bien sauf si je n'ai pas été vigilant.
Et je t'ai dit merci dans un nouveau post que j'ai fait où je demande cette fois de l'aide sur un problème de formulaire.

Et je profite donc pour te faire explicitement le retour par rapport à l'impression des bulletins : ça marche à merveille merci énormément.

Cependant avec cette solution je ne pourrais pas personnaliser les bulletins de chaque ouvrier car ils sont environ 130 ça serait fastidieux et en plus ils ont exactement les mêmes caractéristiques de paie.

Merci encore
Cordialement
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Hello
et ce post.. tu l'as oublié?
excel-downloads.com

XL 2019 - Formulaire

Bonsoir à tous les experts du forum. Je suis très noviste en VBA en phase d'initiation je dirais. Je tiens à remercier tous ceux qui m'ont aidé hier à résoudre toutes mes difficultés que j'ai posées notamment Toofatboy et job75. Aujourd'hui je sollicite une toute petite aide sur mon...
excel-downloads.com excel-downloads.com
 
Vote positif 0 Vote négatif
O

olivier1984

XLDnaute Junior
vgendron à dit:
Hello
et ce post.. tu l'as oublié?
excel-downloads.com

XL 2019 - Formulaire

Bonsoir à tous les experts du forum. Je suis très noviste en VBA en phase d'initiation je dirais. Je tiens à remercier tous ceux qui m'ont aidé hier à résoudre toutes mes difficultés que j'ai posées notamment Toofatboy et job75. Aujourd'hui je sollicite une toute petite aide sur mon...
excel-downloads.com excel-downloads.com
Cliquez pour agrandir...
Ah voilà désolé j'étais complètement perdu je pensais que tu parlais de celui d'hier...

Toutefois par rapport à ce post sur mon problème de formulaire je n'ai encore reçu aucune proposition de solution sauf erreur ou omission de ma part c'est d'ailleurs pour ça que je me suis connecté tout à l'heure
 
Vote positif 0 Vote négatif

Discussions similaires

O
  • Question
XL 2019 boutons sur formulaire non fonctionnels
2 3
Réponses
35
Affichages
996
olivier1984
O
G
  • Question
XL 2016 Formule ancienneté
Réponses
1
Affichages
637
CISCO
CISCO
A
  • Question
XL 2021 Calculer le prorata d'un objectif en fonction de l'arrivée ou du départ du salarié
Réponses
4
Affichages
103
job75
job75
D
  • Question
XL 2013 Tranche de salaire imposable
Réponses
6
Affichages
404
DaONE
D
Véhuel
  • Résolu(e)
Microsoft 365 Heures de solidarité au prorata selon conditions
Réponses
3
Affichages
129
sylvanu
sylvanu
F
  • Question
XL 2021 Alternative fonction SI
Réponses
6
Affichages
617
Staple1600
Staple1600
O
  • Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
128
Thomas75
T
M
  • Question
Microsoft 365 Erreur de formule ?
Réponses
14
Affichages
452
moanin
M
J
  • Question
Microsoft 365 VBA Sum.if - Application de la formule dans la cellule et non pas sa valeur
Réponses
5
Affichages
114
vgendron
vgendron

Membres actuellement en ligne

14 membres et 152 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 085
Messages
2 116 071
Membres
112 648
dernier inscrit
Otete Christian