Discussion :

[instelaer]

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

[pgz]

Bonjour.

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

PGZ

[JackOuYA]

Bonjour.

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

PGZ

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

et Close du classeur

[instelaer]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

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...;

[James007]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[instelaer]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[James007]

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