code VBA très lent

y'a t il une possibilité de rendre ce code plus rapide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim DerLigne As Integer   Sheets("Feuil1").Activate   DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row     For n = DerLigne To 1 Step -1 If Cells(n, 11).Value = "KO" Then Cells(n, 11).EntireRow.Delete End If Next n

---

Bonjour,

J'aurais fait de la manière suivante :

Un tri pour obtenir les cellules avec "KO"
Clearcontents des lignes visibles
tri ascendant des lignes restantes pour envoyer les lignes vides à la fin de ton tableau

Citation:

---

Envoyé par Trystan441

Bonjour,

J'aurais fait de la manière suivante :

Un tri pour obtenir les cellules avec "KO"
Clearcontents des lignes visibles
tri ascendant des lignes restantes pour envoyer les lignes vides à la fin de ton tableau

---

Bonjour

Citation:

---

Le code SVP

---

lequel des trois instructions qui t'ont été indiquées par Trystan441 ?
(mets-y un peu du tien, s'il te plait)

Salut !

Met ce code en début de VBA :

Code:

---

1 2 3 4 5

With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With

---

Puis ceci en fin de VBA

Code:

---

1 2 3 4 5

With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True End with

---

L'enregistreur de macro te donnera tout ce dont tu as besoin pour réaliser ça !

Si tu as des questions sur la syntaxe, n'hésites pas,

Citation:

---

Envoyé par LogiLogi

Salut !

Met ce code en début de VBA :

Code:

---

1 2 3 4 5

With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With

---

Puis ceci en fin de VBA

Code:

---

1 2 3 4 5

With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True End with

---

---

Le morceau de code ci-dessous te permet de stopper le rafraîchissement d'image de ton classeur Excel (ScreenUpdating) ainsi que le calcul automatique (Calculation)
Place ce premier morceau juste après ton Sub. Ca va donc accélérer ta procédure.

Code:

---

1 2 3 4

With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With

---

Le code ci-dessous remettra au mode actif le rafraîchissement d'image ainsi que le calcul pour que tu puisses utiliser normalement ton classeur Excel.
Place ce second morceau juste avant ton End Sub

Code:

---

1 2 3 4

With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With

---

Le Code de Trystan441 est un grand classique, et il permet d'éliminer toutes les pertes de performances liées aux mises à jour visibles lors de travail sur les données. C'est indispensable de mettre ce genre de choses partout (avec à chaque fois le début et la fin) dès qu'on travaille avec des quantités de données un peu importantes.

Bonjour à vous,

Salut El Slapper (cela faisait longtemps!)

Outre les remarques - judicieuses - qui précèdent.

D'un bloc et sans intervention annexe et/ou balayage.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Sub Suppr_KO()   Dim dernl As Long   With Worksheets("Feuil1") dernl = .Cells(.Rows.Count, 1).End(xlUp).Row With .Range("A1:A" & dernl) .Replace What:="KO", Replacement:="", Lookat:=xlWhole .SpecialCells(xlCellTypeBlanks).EntireRow.Delete End With End With   End Sub

---

Bon week-end à vous, et Bon week-end au Forum.