Bug avec macro mettant une plage de cellules en majuscule

[libellule85]

Bonsoir le forum,

Voici mon problème, j'ai une macro (ci-dessous) qui met les cellules d'une plage en majuscule :

Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("B4:B28")) Is Nothing Then
Target = UCase(Target)
End If
End Sub

mais quand j’efface la cellule cela me met en erreur macro.

Quelqu'un aurait-il une idée pour que je n'ai plus cette erreur lors de l'effacement d'une cellule ?

D'avance je vous remercie de votre aide

 

[Si...]

Re : Bug avec macro mettant une plage de cellules en majuscule

salut

peut-être à cause de l'appel récursif ?
Avec mon 2010, il faut inihiber puis réactiver les évènements

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, [B4:B28]) Is Nothing Then Exit Sub
  Application.EnableEvents = 0: Target = UCase(Target): Application.EnableEvents = 1
End Sub

 

[libellule85]

Re : Bug avec macro mettant une plage de cellules en majuscule

Bonjour Si...,

Je viens d'essayer ta solution et maintenant cela fonctionne impeccablement.
Un grand grand merci pour ton aide.