Application.Interactive = False
'Ton code
'NE PAS OUBLIER DE REMETTRE A TRUE !!!
Application.Interactive = True
Sub bloque()
k = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
t = Split(k, ",")
For i = o To UBound(t): Application.OnKey t(i), "": Application.OnKey UCase(t(i)), "": Next
'Application.OnKey "{BACKSPACE}", ""'ne fonctionne pas '
End Sub
Sub debloque()
k = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9,{BACKSPACE}"
t = Split(k, ",")
For i = o To UBound(t): Application.OnKey t(i): Application.OnKey UCase(t(i)): Next
'Application.OnKey "{BACKSPACE}"'ne fonctionne pas '
End Sub
Sub bloque()
Do
Loop
End Sub
Sub Bloque_Clavier()
Dim Compteur As Byte
On Error Resume Next
For Compteur = 1 To 255
Application.OnKey Chr(Compteur), ""
Next Compteur
End Sub
Sub Debloque_Clavier()
Dim Compteur As Byte
On Error Resume Next
For Compteur = 1 To 255
Application.OnKey Chr(Compteur)
Next Compteur
End Sub
Désolé Patrick, je n'avais pas vu que tu avais déjà évoqué cette solution sinon je t'eu citémais tu peux bloquer certaine touches comme ça par exemple