D'après le livret distribué à chaque étudiant en début d'année, deux mesures sont envisagées pour tenter de limiter l'absentéisme :

• avertissement par lettre recommandée à partir de 3 absences injustifiées.
• exclusion (temporaire ou définitive) à partir de 5 absences injustifiées.

Les étudiants atteignant ces seuils peuvent être repérés par deux couleurs (jaune et rouge) en cliquant sur le bouton Actualiser de la feuille synthese.

Comme une lettre recommandée devra être envoyée à ces étudiants, le classeur absences_final.xlsm contient également une feuille de calcul qui pourra ensuite être utilisée pour faire du puplipostage ([PUBLI], [RDB]).

Un clic sur le bouton "5 absences" (respectivement "3 absences") fera apparaître dans la feuille "publipostage" les étudiants ayant atteint le seuil fatidique. La macro associée au bouton a le code suivant :

Sub CinqAbsences()
    ' on efface l'ancien contenu
    Set g = Worksheets("publipostage")
    g.Range("A2:C1000").Value = ""
    ' on remplit la feuille
    Set f = Worksheets("synthese")
    n = WorksheetFunction.CountA(f.Columns("B"))
    i = 2   ' premiere ligne vide dans publipostage
    For lig = 2 To n
        If (f.Cells(lig, 4) >= 5) Then
            g.Cells(i, 1) = f.Cells(lig, 2)
            g.Cells(i, 2) = f.Cells(lig, 3)
            g.Cells(i, 3) = f.Cells(lig, 4)
            i = i + 1   ' pour la prochaine insertion
        End If
    Next lig
End Sub

Après avoir effacé l'ancien contenu, le programme introduit une variable (I) correspondant à la première ligne vide dans la feuille "publipostage". Chaque fois qu'on trouve un étudiant dépassant le seuil, on le recopie et on incrémente la variable I (I = I+1) pour la prochaine insertion.