Bonjour,

J'essaye de faire fonctionner une macro dont l'objectif est de transformer automatiquement des données en minuscules en données en majuscules.
Pour cela, je sélectionne la feuille concernée dans laquelle j'écris 2 macros possibles pour le même résultat :

Macro 1 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [G2:G20]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True
End Sub
OU macro 2 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("G2:G20")) Is Nothing Then Exit Sub
zz.Value = UCase(CStr(zz.Value))
End Sub
Les 2 macros fonctionnent mais dès que je fais une suppression de plusieurs données en meme temps, j'ai un bug de la macro puis elle ne fonctionne plus... A quoi es-ce dû d'après vous ?

D'avance merci