XL 2010 [RESOLU] Verrouillage cellules après saisie

[Everlast03]

Bonjour,

J'ai tenté de faire un fichier de "pointage" pour mes salariés.
Cependant, je rencontre des problèmes lorsque je veux verrouiller les cellules après saisie.

Si mes macros ne sont pas claires, voici l'objectif :

1. L'utilisateur double clique dans une cellule lorsqu'il arrive (ou s'en va). Le temps est alors directement entré dans la cellule.
2. Il doit être impossible pour l'opérateur de double cliquer (ou modifier) dans une cellule déjà saisie

Merci d'avance pour votre précieuse aide.

N'hésitez pas si besoin de plus d'explications.

 

[Dranreb]

Bonjour.
Pourquoi ne feriez vous pas tout dans la BeforeDoubleClick ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Me.[D2:G367], Target) Is Nothing Then Exit Sub
If Me.Cells(Target.Row, "C").Value <> Date Then Exit Sub
If Target.Locked Then Exit Sub
Application.EnableEvents = False
Me.Protect UserInterfaceOnly:=True, Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
Target.Value = Time
Target.Locked = True
Me.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
End Sub

Indépendamment de cela, évitez les RECHERCHEV quand c'est possible :
En B2, à propager sur 365 lignes :

=NOMPROPRE(TEXTE($C2;"jjjj"))

 

[Everlast03]

Bonjour.
Pourquoi ne feriez vous pas tout dans la BeforeDoubleClick ?

Bonjour,

Merci pour l'analyse.
J'ai copié ceci, et uniquement ceci dans ma macro mais je n'ai aucune action lors du double click.
Dans quel état faut-il mettre la feuille ? (protegé ?)

Merci d'avance.

 

[Dranreb]

Il ne faudrait que ça, à priori.
En principe peu importe que la feuille soit déjà protégée ou non.
Re-joignez le classeur tel qu'il est après le remplacement de la Worksheet_BeforeDoubleClick

 

[Everlast03]

Comme ceci.

Merci

 

[Dranreb]

Ça a bien l'air de marcher, mais, si vous regardez bien le code, uniquement sur un double clic sur une cellule de D52:G52
Sur une autre ligne on sort par If Me.Cells(Target.Row, "C").Value <> Date Then Exit Sub
S'il ne la fallait pas cette instruction, j'en serais bien étonné…

 

[Everlast03]

Parfait !

Merci beaucoup !