Comment obliger les salarié à remplir certaine données Résolu/Fermé

Question

Bonjour, 

J'ai fait une feuille de suivi des jours travaillés pour les salariés cadre au forfait jour.

Et je souhaiterais savoir comment faire pour obliger les salariés à remplir les trois listes déroulantes du bilan mensuel en bas de la page. 

De plus s'il remplissent par non ils sont obligés de mettre le motif juste en dessous dans la case prévu à cet effet.

Si ces deux conditions ne sont pas respectées alors ils ne peuvent pas imprimer la page.

Cela est-il possible?

Je vous joins le fichier concerné

https://www.cjoint.com/c/GJEqHrieRXM

Merci d'avance à ceux qui pourront m'aider.

Raymond PENTIER · Answer

Par expérience, je peux te garantir que la méthode de loin la plus efficace est de ne pas leur verser leur salaire tant que la fiche n'est pas correctement remplie : C'est radical ! Au bout de 2 mois de ce régime, les documents arrivent dans les délais, remplis, commentés et signés ...

eriiic · Answer

Bonjour,

à mettre dans thisworkbook :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Const msg  As String = "Impression annulée, bilan mensuel incomplet dans "
    Dim feuille As Worksheet
    
    For Each feuille In ThisWorkbook.Windows(1).SelectedSheets
        With feuille
            If .[A44] = "Bilan mensuel à remplir par le salarié :" Then
                If Application.CountA(Union(.[D47], .[A51], .[A55])) <> 3 Then
                    Cancel = True
                    MsgBox msg & feuille.Name
                    Exit Sub
                Else
                    If (LCase(.[D47] = "non") And .[B48] = "") Or (LCase(.[D51] = "non") And .[B52] = "") Or (LCase(.[D55] = "non") And .[B56] = "") Then
                        Cancel = True
                        MsgBox msg & feuille.Name
                        Exit Sub
                    End If
                End If
            End If
        End With
    Next feuille
End Sub 

J'ai prévu le contrôle de toutes les feuilles sélectionnées en cas de sélection multiple.
Par contre si le choix est imprimer tout le classeur ça sortira. J'ai supposé qu'il pouvait y avoir des feuilles prêtes d'avance et par conséquent non remplies.
Si besoin complète en testant toutes les feuilles.
eric

Comment obliger les salarié à remplir certaine données

2 réponses

Discussions similaires