Detection touche suppression

Bonjour,

Je finalise un programme mais je n'arrive pas à tester l'appui sur la touche suppression. aller dans le module "identification" et jusqu'àu paragraphe suivant :

If Saisie = "administrateur" Then

Application.EnableEvents = False

'For Each ws In Sheets

'ws.Unprotect

'Next

While GetAsyncKeyState(&H2E) = 0 CEST ICI !!

DoEvents

Wend

Application.EnableEvents = True

For Each ws In Sheets

ws.Protect

Next

End If

cela ne marche pas. lorsque j'appui sur la touche suppression, je reste toujours dans la boucle. Quelle est mon erreur ?

merci beaucoup pour votre aide,

jerome

Bonjour

Je ne sais pas où est ton problème : touche suppression inefficace

Chez moi cela fonctionne

Pour vérifier j'ai modifié le code

  If Saisie = "administrateur" Then
    Application.EnableEvents = False
    'For Each ws In Sheets
    'ws.Unprotect
    'Next
    While GetAsyncKeyState(&H2E) = 0
      DoEvents
    Wend
    MsgBox "sortie"
    Application.EnableEvents = True

Je tapes le mot de passe

J'appuie sur la touche Suppression et j'ai le message à l'écran

Peut pas t'aider plus