Verrouillage ligne automatique en fonction de la date

Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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/
0
Réponse 2 / 3
Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 3 / 3
Fat17
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Eh oui, j'ai oublie le verrouillage

Je fais
Suite:

fichier modifie: https://www.cjoint.com/c/GJFo7DBqyxf
0
Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention  
 
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() ???
0
Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Fat17 Messages postés 87 Date d'inscription   Statut Membre Dernière intervention  
 
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 ......?????
0