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
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
Dernière édition: