Formulaire pointage automatisé

Bonjour DDETP88,

En faisant des recherches sur internet pour créer un fichier reprenant les heures de pointage de salariés, j'ai trouvé votre fichier que j'ai adapté. Je rencontre une problématique lorsque le pointage est activé. Certaines cellules dans la feuille "archive" sont verrouillées par un mot de passe afin qu'il ne puisse pas y avoir de modifications. En effet, le message d'erreur suivant apparaît "La cellule ou le graphique que vous essayer de modifier se trouve sur une feuille protéger...". Je souhaiterais avoir votre aide. Merci pour votre retour.

Bonjour Chocolatlolo,

Je rentre la semaine prochaine. Je reprends contact à ce moment là et on tentera de trouver une solution à ton problème.

Cordialement

Bonjour,

Je suis à votre écoute.

Merci de joindre le fichier utilisé et quelques explications.

Cordialement

Bonjour,

Meilleurs pour voeux pour cette nouvelle année 2020.

Je me suis aidée de votre fichier pour mettre en place une fiche de pointage par salarié.

Dans le fichier joint, sur la feuille archive, j'ai activé une protection afin que les heures enregistrées ne soient plus modifiables après la saisie.

Lorsque cette protection est active, et que l'on clique sur "enregistré" le message suivant apparaît "La cellule ou le graphique que vous essayer de modifier se trouve sur une feuille protéger..." .

Lorsque j'ôte la protection, cela fonctionne très bien. Mes connaissances en VBA sont un peu limitées.

Vous remerciant pour votre aide.

Chocolat Lolo

Bonjour,

C'est juste une déprotection de ta feuille avant écriture. Ce sera le plus simple.

Tu reprotèges ta feuille aussitôt.

Private Sub Valide_Click()
' dernière ligne
Ln = Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Row + 1

If Me.ComboBox1 <> "" And OptionButton1 = True Then
    'ARRIVEE DE L'ENTREPRISE
    With Sheets("Archive")
        .Unprotect Password:=""
        .Cells(Ln, "A") = Me.ComboBox1.Value
        .Cells(Ln, "B") = Date
        .Cells(Ln, "C") = Label2.Caption 'h ARRIVEE
        .Protect Password:=""
        MsgBox " Information validée, merci."
    End With
....

Si toutefois tu mets un mot de passe en protégeant ta feuille, il faudra également compléter le code par le mot de passe entre les guillemets.

Exemple pour le mot de passe "toto"

Private Sub Valide_Click()
' dernière ligne
Ln = Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Row + 1

If Me.ComboBox1 <> "" And OptionButton1 = True Then
    'ARRIVEE DE L'ENTREPRISE
    With Sheets("Archive")
        .Unprotect Password:="toto"
        .Cells(Ln, "A") = Me.ComboBox1.Value
        .Cells(Ln, "B") = Date
        .Cells(Ln, "C") = Label2.Caption 'h ARRIVEE
        .Protect Password:="toto"
        MsgBox " Information validée, merci."
    End With
...

Espérant avoir résolu ton problème, bonne suite.

Cordialement

Merci beaucoup pour ton aide très précieuse.

Cela fonctionne très bien.

Bien cordialement.