Fichier suivi des absences

Bonjour SVP aider moi a trouver un fichier simple de gestion des absences des étudiants sure excel merci

Bonjour,

à ta disposition ...

Dans l'onglet paramètres, tu mets :

• les noms en colonne A
• les motifs d'absence en colonne C
• en E les codes M (matin) et A (après-midi) ... on doit pouvoir n'en mettre qu'un seul ou au contraire encode subdiviser sans doute (je ne me souviens plus bien)
• en G2, mets 2019

Merci mais au niveau des synthèses les feuilles sont prothégées

joel eko a écrit :

Merci mais au niveau des synthèses les feuilles sont prothégées

Pas du tout ...

Il s'agit de TCD tableaux croisés dynamiques qui sont rafraîchis à chaque ajout ou suppression dans la feuille saisie par cette instruction

Sheets("ID").PivotTables("TCD_ID").PivotCache.Refresh

Ce qu'il faut, c'est saisir dans l'onglet saisie après avoir réglé les paramètres !

Merci pour la promptitude.En fait ce que je recherche c'est de pouvoir relever dans le fichier le nombre d'absences d'une personne X dans une période donnée ( dans un mois par exemple).Ci-joint le fichier que j'utilise cordialement

ok

On change de sujet alors puisqu'au début c'était

joel eko a écrit :

Bonjour SVP aider moi a trouver un fichier simple de gestion des absences des étudiants sure excel merci

je vais laisser d'autres contributeurs répondre ...

Bon, j'ai repris en main "à ma sauce"

Active les macros, ensuite tout est automatique.

Une compilation dans un onglet

Sub compiler()
Dim ligne As Long, ws As Worksheet

With Sheets("RECAP")
    If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
    ligne = 2
    For Each ws In Worksheets
        If ws.Name <> "RECAP ALERTE" And ws.Name <> "RECAP" Then
            ldeb = 2
            lfin = ws.Cells(Rows.Count, 1).End(xlUp).Row
            cdeb = 1
            cfin = ws.Cells(2, Columns.Count).End(xlToLeft).Column
            ws.Range(ws.Cells(ldeb, cdeb), ws.Cells(lfin, cfin)).Copy Destination:=.Cells(ligne, 1)
            ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
        End If
    Next
End With
With Sheets("RECAP").Cells.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

End Sub

Ensuite un filtrage selon les critères entrés

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "RECAP ALERTE" Then Exit Sub
    If Not Intersect(Target, Sh.Range("A5").CurrentRegion) Is Nothing Then
        filtrer Sh
    End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    filtrer Sh
End Sub
Private Sub filtrer(Sh As Worksheet)
    If Sh.Name <> "RECAP ALERTE" Then Exit Sub
    compiler
    Sh.Range("A9").Offset(1, 0).Clear
    Sheets("RECAP").ListObjects(1).Range.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sh.Range("A1").CurrentRegion, CopyToRange:=Sh.Range("A9").CurrentRegion.Resize(1), Unique:=False
End Sub

ok merci beaucoup je vais bosser dessus demain et je te reviens