Problème avec le Backspace

[Dazz20]

Voici mon code pour forcer en majuscule l'entrer de donnée sur une feuille excel. Un problème survient lorsque j'utilise le "Backspace" la private sub ne
fonction plus et çà fait planter ma fonction . Je dois resortir de excel pour ré-active le tout. J'aurai besoin d'une solution. J'ai essayé plusieurs chose mais çà n'à pas marché...........
Merci à l'avance.
Dazz20.
😕

Private Sub Worksheet_Change(ByVal zz As Range)
On Error GoTo GESTERR
'If Target.Count > 1 Then Exit Sub
If Intersect(zz, [A1:M20]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If zz = "" Then Exit Sub
zz = UCase(zz)
'Application.EnableEvents = True
GESTERR:
Application.EnableEvents = True
End Sub

 

[Dan]

Re : Problème avec le Backspace

Bonjour,

Pourquoi ce fil ??? --> https://www.excel-downloads.com/threads/suite-au-back-space.65790/

Pourrais-tu lire les quelques lignes ici --> http://www.excel-downloads.com/forum/32841-charte-du-forum-lire-avant-de-poster.html

Merci pour ce forum et à bientôt