Verrouillage ligne automatique en fonction de la date

Fermé

Fat17 Messages postés 87 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021 - 31 oct. 2017 à 11:50
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 31 oct. 2017 à 17:18

Bonjour,
L'idée est de verrouiller toute la feuille à l'exception de la ligne 35 (ou de la plage D35:K:35) correspondant à la date d'aujourd'hui pour permettre au personnel de saisir les heures d'entrée et de sortie.
Le lendemain (1er Novembre), la ligne active sera uniquement la 36 et ainsi de suite.
Je ne suis pas en mesure de formuler la macro correspondante, et c'est pourquoi je sollicite votre aide.
Bonne journée
Cordialement
Fat

Fichier joint
https://www.cjoint.com/c/GJFkSAHYVoL

A voir également:

Verrouillage ligne automatique en fonction de la date
Site de vente en ligne particulier - Guide
Aller à la ligne excel - Guide
Fonction si et - Guide
Partage de photos en ligne - Guide
Verrouillage clavier - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 31 oct. 2017 à 12:23

Bonjour,

fichier modifie pour ligne de pointage suivant date du Jour:
http://www.cjoint.com/c/GJFlvHd5HDf
A l'ouverture du fichier changement de protection lignes, pas si fichier reste ouvert x jours
Modifiez le mode passe protection feuille

Il vous faudra proteger le code VBA, pour ceci voir ici (entre autres)
https://www.excel-downloads.com/threads/vba-proteger-le-code-vba.81055/

Réponse 2 / 3

Fat17 Messages postés 87 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021
31 oct. 2017 à 15:25

Bonjour,
Merci pour la proposition, mais la ligne du jour n'est pas active.
Seule celle du 1er Octobre l'est, alors que ce qui est recherché, c'est que la ligne du jour (31 Octobre) soit, elle,active et tout le reste verrouillé.
Cordiamlement
Fat

Réponse 3 / 3

Fat17
31 oct. 2017 à 15:44

Bonjour,

Excuse moi,la plage D:K de la ligne 35 est effectivement active après verrouillage de la feuille, mais le plage D:K de la ligne 5 reste aussi active.
Par ailleurs, en changeant de date (cellule B2), il ne se produit aucun changement dans le tableau, alors que ce qui est recherché est que les plages actives soient toujours dans la ligne du jour.

Crdlmt
Fat

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 31 oct. 2017 à 15:59

Re,
Eh oui, j'ai oublie le verrouillage

Je fais
Suite:

fichier modifie: https://www.cjoint.com/c/GJFo7DBqyxf

Fat17 Messages postés 87 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
31 oct. 2017 à 16:16

Merci, ça fonctionne. La plage de la ligne 5 est inactive,et celle du 31-10-2017 active.
Mais si je change de date, c'est toujours la même plage qui est active (celle du 31-10-2017). J'ai même fait un test en modifiant la date du PC, mais pas de changement non plus. Est ce que cette procédure est contenue dans la macro ?
Par ailleurs, j'aimerais ajouter une mise en forme conditionnelle pour que la plage active du jour soit de couleur rose.
Merci encore pour ton aide.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Fat17 Messages postés 87 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 30 mars 2021
Modifié le 31 oct. 2017 à 16:19

Re,

Par ailleurs, en changeant de date (cellule B2), il ne se produit aucun
Ben oui, relisez ce que j'ai ecrit a ma premier reponse.......... Qui a mis =Aujourdhui() ???

Re,

Excuse moi, mais je ne comprend pas,
Même en modifiant la cellule B2 ou en la supprimant, on reste toujours sur 31-10-2017.
Est ce que demain, on va passer automatiquement au 01-11-2017 ?
Que faut-il mettre en B2 ?

Crdlmt
Fat

Re,

J'ai ecrit que le code ne marche que si vous fermez le fichier et le rouvrez le lendemain avec la formule =aujourdhui() en B2 vu que le code est dans Thisworkbook,

Private Sub Workbook_Open()

, procedure qui ne tourne qu'a l'ouverture du fichier
Donc vous ca marche comment, votre fichier est tout le temps ouvert ou ......?????

Discussions similaires

Statut « en ligne » alors que non

Que veut dire "correspondant occupé" lors d'un appel ?

Pix

Discussions similaires

Newsletters