bonjour,
dans une feuille excel j'ai créé un bouton qui permet d'épurer tout ce que j'ai écri manuellement.

d'autre part , j'ai créé une formule ds visual (ci dessous) qui me permet de transformer en majuscule ce que j'écrit ds une cellule dès que j'appui sur entrée.

Ma formule marche très bien, mais le soucis est que lorsque je décide d'épurer mes données, le système rame comme pas possible, comme si j'avais créé une macro très longue.
quelqu'un aurait une idée d'ou pourrai provenir le problème ?
Moi j'ai pensé à dévier ma macro 'majuscule' lorsque je cliquer sur 'épurer', mais je sait pas comment faire.


merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim Cellule As Range
'target c'est la plage modifié dans mon classeur on calcul son
'intersection avec la plage à tester J2:J800
Set Plage = Intersect(Target, Range("J2:J800"))
If Plage Is Nothing Then Exit Sub 'Intersection vide on quitte
For Each Cellule In Plage ' sinon on parcours toutes les cellules de la plage d'intersection
   Cellule = UCase(Cellule)   ' et on passe en majuscule
Next
End Su