Excel_Action quand cellule perd le focus

Bonjour,
j'utilise un tableau qui possède 27 colonnes.
Les 9 premières lignes sont verrouillées. Elles servent d'en-tête de colonnes et comprennent des cellules de calcul pour synthétiser les différentes données qui sont saisies dans le tableau.
Un bouton de commande permet d'enlever la protection sur la cellule D5 afin d'autoriser sa modification par l'utilisateur.
Je ne veux pas utiliser de second bouton pour reverrouiller cette cellule. Je souhaiterais plutôt que cette dernière se verrouille automatiquement dès appui sur la touche "Entrée" ou dès que l'utilisateur clique sur l'une ou l'autre des cellules libres du tableau (A10-AA65536) (c'est ce qui s'appelle, je crois, perdre le focus).
Si quelqu'un pouvait m'aider à résoudre ce problème.
Par avance, merci

Bonjour.

L'évènement Change de la feuille pourrait peut-être convenir.

PGZ

Citation:

---

Envoyé par pgz

Bonjour.

L'évènement Change de la feuille pourrait peut-être convenir.

PGZ

---

associé à l'événement : Worksheet_Deactivate()

et Close du classeur ;)

Effectivement PGZ, j'y avais pensé avec ceci:

Code:

---

1 2 3 4 5

Private sub Worksheet_change(ByVal Target As Range) Select Case Target.Address Case "$A$10:$AA$65536" : Verrou End select End Sub

---

Ceci ne marche pas alors que :

Code:

---

Case "$A$10" : Verrou

---

fonctionne mais uniquement en pointant sur la case A10
Pour répondre à JackOuYa, je ne veux pas utiliser cette méthode qui demande à fermer le classeur alors que l'on veux travailler dessus
Merci à tous les deux

Il n'est pas bon ton case , tu peu utiliser intersect .., pour tester si target et bien dans ta plage..

mais tu n'as pas besoin de tester tu verrouille tout-tout simplement...;

Une ancienne manière de coder ferait peut être l'affaire ...

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Rng = Range("$A$10:$AA$65536") If Not Intersect(Target, Rng) Is Nothing Then Application.Run("Verrou") End If End Sub

---

Merci à vous 3 pour vos réponses aussi rapides. Grâce à vous en adaptant le code à James007, cela correspond à ce que je voulais.

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range Set Rng = Range("$A$10:$AA$65536") If Intersect(Target, Rng) Is Nothing Then SortirFormateurs End Sub

---

Content que tu aies pu résoudre ton problème ...
A +