Proteger une cellule

Bonjour à tous,

Pouvez-vous m'aider sur ce petit problème.

J'aimerais interdire l'effacement d'une cellule une fois celle ci remplie.

en effet j'ai des personnes qui doivent entrer leurs noms dans une cellule et vérifier que c'est la bonne personne qui a fait le contrôle.

Mais il y a des petits malins qui écrivent le noms de leurs petits camarades.

J'aimerais que quand le vérificateur a mis son nom il ne puisse plus l'effacer.

Merci beaucoup de votre aide

Bonjour

Un essai.

Bye !

Merci bcp GMB pour le code ,

j'ai oublié de préciser un chose,

La case est sur 200 cellules vers le bas, je dois modifier :

If Taget.Adress = "$C$7" Then

Comme ça?

If Target.Adress = "$C$1:$C$200 Then

Merci de t'as réponse.

Je ne suis pas sûr de bien comprendre.

Si ta cellule est à l’adresse C200, il te faut changer l’instruction par :

If Target.Address = "$C$200" Then

Et s’il s’agit d’une plage de cellule qui s’étend de la cellule C1 à la cellule C200 il te faut changer par :

If Not Intersect(Target, Range("C1:C200")) Is Nothing Then

OK ?

Bye !

Merci beaucoup de ton aide gmb

Ca fonctionne

Je te souhaite un bon weekend