problème avec worksheet_change

[excelnase]

Bonjour

J'ai un petit souci avec la methode worksheet_Change.

ça concerne la saisie d'une adresse d'un client.


l'utilisateur saisi les données du client en minuscule dans 5 les cellules prévue pour
et quand il quitte de cellule, la donnée se met automatiquemet en majuscule (Si il le prévoit)
(L'utilisateur ne veut pas saisir toutes les adresses en majucule)

le problème est que la methode worksheet_change fait la boucle 199 fois
par cellule concernée avant de continuer et je ne sais pas pourquoi!!
Il n'y à pas de message d'erreur

voici la sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Pour la mise en majuscule de l'adresse
Dim Intersection , Plage As Range
UpcaseEnabled = Sheets("Feuil1").Range("B70").Value 'check si upcase =true
If UpcaseEnabled Then
Set Plage = Range("F11:F15")
Set Intersection = Application.Intersect(Target, Plage)
If Intersection Is Nothing Then: exit sub
Target.Value = UCase(Target.Value)
End if

j'ai essayé de mettre un exit sub après
l'instruction Target.value = Ucase(target.value)
mias la sub n'arrive pas j'usquà la ,elle recomence avant 😕



merci d'avance pour les tuyaux


Excelnase

 

[excelnase]

Re : problème avec worksheet_change

Bonjour

essaye

Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True

Merci du tuyau

c'est tout bon

j'ai vu ces instructions sur le net, mais j'ai pas pensé
que que ça marche,donc je ne les aie pas utilisées 😡


Salutations

excelnase