[VBA-E]dévier une macro

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:

---

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

---

Citation:

---

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.

---

si c'est la macro épuré qui rame, pourquoi ne pas nous montrer celle là plutôt ?

oui en effet, désolé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

Private Sub CommandButton2_Click() 'Remettre à blanc les cellules Worksheets("recapitulatif").Range("a1", "f700").Interior.Color = RGB(255, 255, 255) 'Epurer la sélection des localisations Range("f2", "f800").ClearContents 'Epurer la somme des emplacements sélectionnés et à éditer Range("L2", "L9").ClearContents 'Epurer la liste des articles pour copie des doublons Range("Z1", "Z500").ClearContents 'Epurer la liste des doublons Range("i24", "k50").ClearContents   'Epurer les articles sélectionnés Worksheets("Liste Comp Inventaire").Range("a1", "O8000").ClearContents Worksheets("Liste Comp Inventaire").Range("a1", "O8000").Interior.Color = RGB(255, 255, 255)   'Ne garder que les 3 premiers trigrammes C6 = 10 L6 = 5 For i = 1 To 5 Worksheets("recapitulatif").Cells(L6, C6) = "-" L6 = L6 + 1 Next If Worksheets("recapitulatif").Range("j3") = "" Then Worksheets("recapitulatif").Range("j3") = "-" End If If Worksheets("recapitulatif").Range("j4") = "" Then Worksheets("recapitulatif").Range("j4") = "-" End If   'Colorier de jaune les localisations entammées C2 = 5 l2 = 2   For h = 1 To 700 If Worksheets("recapitulatif").Cells(l2, C2 - 1) <> "" Then Worksheets("recapitulatif").Cells(l2, C2).Interior.Color = RGB(255, 255, 153)   End If l2 = l2 + 1 Next   'Colorier de gris les localisations comptés entièrement C1 = 5 l1 = 2   For y = 1 To 700 If Worksheets("recapitulatif").Cells(l1, C1) <= 0 Then Worksheets("recapitulatif").Cells(l1, C1).Interior.Color = RGB(192, 192, 192) Worksheets("recapitulatif").Cells(l1, C1 + 1).Interior.Color = RGB(192, 192, 192) Worksheets("recapitulatif").Cells(l1, C1 - 1).Interior.Color = RGB(192, 192, 192) Worksheets("recapitulatif").Cells(l1, C1 - 2).Interior.Color = RGB(192, 192, 192) Worksheets("recapitulatif").Cells(l1, C1 - 3).Interior.Color = RGB(192, 192, 192) Worksheets("recapitulatif").Cells(l1, C1 - 4).Interior.Color = RGB(192, 192, 192) End If l1 = l1 + 1 Next   End Sub

---

bonjour,
est le code originale?
car dans les boucles
for i to nb
instruction
je ne vois pas next i
idem pour les autres boucles for j to nb
lors de la compulation du code si c l original tu aurai du avoir un pb!!!!

essai de mettre au début de ton code 'd'épurage" :

Code:

---

1 2	Application.EnableEvents = False

---

afin de "stopper" les codes événementiels...


puis en fin .. tu repasse à true...