Bonjour à tous,
J'ai une procédure événementielle qui me permet lorsque je valide une cellule dans la zone A1:A10 de mettre en majuscule automatiquement ce qui a été saisi :
Elle marche mais génère un code erreur 13 lorsque je cherche à effacer le contenu de plusieurs cellules de cette zone (bug sur target.value=ucase(target.value)
Comment puis-je eviter ce bug
Merci
J'ai une procédure événementielle qui me permet lorsque je valide une cellule dans la zone A1:A10 de mettre en majuscule automatiquement ce qui a été saisi :
Code:
Dim pl As Range
Set pl = Range("A1:A10")
If Not Intersect(pl, Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Elle marche mais génère un code erreur 13 lorsque je cherche à effacer le contenu de plusieurs cellules de cette zone (bug sur target.value=ucase(target.value)
Comment puis-je eviter ce bug
Merci