problème avec worksheet_change

excelnase

XLDnaute Nouveau
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 :confused:



merci d'avance pour les tuyaux


Excelnase
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
299 706
Messages
1 978 624
Membres
206 312
dernier inscrit
dameli70