XL 2016 groupages et syntheses des bulletin de salaires

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MBEPID

XLDnaute Nouveau
Bonjour à tous
Je suis les salaires mois par mois .
Je souhaite faire de récap par salariés et par an à partir du matricule.
Je souhaite également une fiche récapitulative annuelle des tous les salaires.
Comment procéder ?
Merci
 
Bonjour Mbepid,
Un essai en PJ pour "Recap par salarié" avec :
VB:
=SIERREUR(INDEX(INDIRECT(C$5&"!"&LIGNE()-1&":"&LIGNE()-1);EQUIV($C$2;INDIRECT(C$5&"!3:3");0));"")
( attention vos matricules ont des espaces à la fin, le matricule dans Recap doit être exactement le même )
Pour le second point, acceptez vous les macros VBA ?
 

Pièces jointes

Bonjour Mbepid,
Un essai en PJ pour "Recap par salarié" avec :
VB:
=SIERREUR(INDEX(INDIRECT(C$5&"!"&LIGNE()-1&":"&LIGNE()-1);EQUIV($C$2;INDIRECT(C$5&"!3:3");0));"")
( attention vos matricules ont des espaces à la fin, le matricule dans Recap doit être exactement le même )
Pour le second point, acceptez vous les macros VBA ?
Bonjour Sylvanu
Merci pour la prompte et excellente réponse.
La première formule est magnifique.
Elle marche à merveille.
Oui je suis partant pour les macros.
N'hésite pas à modifier le tableau pour un meilleur résultat.
Cdt
 
Oui je suis partant pour les macros
En PJ un essai. La macro s'active automatiquement lorsqu'on sélectionne la feuille Récap annuel. Avec :
VB:
Sub Worksheet_Activate()
    Dim T, L%, C%, N%, Total
    Application.ScreenUpdating = False
    T = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
    For C = 3 To 26
        For L = 8 To 34
            If L <> 20 And L <> 23 And L <> 29 Then
                For N = LBound(T) To UBound(T)
                    Total = Total + Sheets(T(N)).Cells(L, C)
                Next N
                Cells(L, C) = Total: Total = 0
            End If
        Next L
        Application.StatusBar = "Consolidation pour matricule :  " & Cells(3, C)
    Next C
    Application.StatusBar = ""
End Sub
J'ai mis le matricule traité dans le statusbar car la macro est assez longue.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
672
Réponses
3
Affichages
189
Réponses
2
Affichages
960
Réponses
28
Affichages
317
Réponses
4
Affichages
291
Retour