Optimisation de macro possible ?

Hello world ! :)

J'ai récemment demandé de l'aide sur ce forum, concernant une macro afin d'effacer des lignes en fonction d'un contenu et d'un éventuel autre paramêtre.

Aujourd'hui, je reviens vers vous, non pas parce que j'ai encore un problème avec ça, mais simplement dans un soucis d'optimisation.

La macro fonctionne parfaitement, mais elle est looooooooooongue, ayant un gros fichier à traiter.
Je souhaiterais savoir s'il existe une autre écriture de code / fonction / n'importe qui permettrait d'accélerer la procédure.

Voici le morceau de code de la macro qui est très lent :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim i0 As Long   For i0 = Range("V" & Rows.Count).End(xlUp).Row To 1 Step -1 If InStr(Range("V" & i0).Value, "AAA") > 0 Then Rows(i0).Delete If InStr(Range("V" & i0).Value, "BBB") > 0 Then Rows(i0).Delete If InStr(Range("V" & i0).Value, "CCC") > 0 Then Rows(i0).Delete If InStr(Range("V" & i0).Value, "DDD") > 0 And InStr(Range("T" & i0).Value, "") = 0 Then Rows(i0).Delete If InStr(Range("V" & i0).Value, "EEE") > 0 And InStr(Range("T" & i0).Value, "") = 0 Then Rows(i0).Delete If InStr(Range("V" & i0).Value, "") = 0 And InStr(Range("T" & i0).Value, "") > 0 Then Rows(i0).Delete Next i0

---

Vous auriez une idée sur la marche à suivre ?
je vous remercie par avance ! ;)

Cordialement,
Anto

Bonjour,

Peut être comme cela, mais pas sur que ça accélère le traitement

Code:

---

1 2 3 4 5 6 7 8 9

Dim i0 As Long   For i0 = Range("V" & Rows.Count).End(xlUp).Row To 1 Step -1   If InStr(Range("V" & i0).Value, "AAA") > 0 Or InStr(Range("V" & i0).Value, "BBB") > 0 Or InStr(Range("V" & i0).Value, "CCC") > 0 Then Rows(i0).Delete If (InStr(Range("V" & i0).Value, "DDD") > 0 Or InStr(Range("V" & i0).Value, "EEE")) And InStr(Range("T" & i0).Value, "") = 0 Then Rows(i0).Delete If InStr(Range("V" & i0).Value, "") = 0 And InStr(Range("T" & i0).Value, "") > 0 Then Rows(i0).Delete   Next i0

---

Par contre, je trouve la lecture du code moins facile

Je ne l'ai pas testé mais tu devrais te baser sur quelque chose comme ça. L'opération serait beaucoup plus rapide.

Code:

---

1 2 3

.Cells(1, 1).AutoFilter Field:=MaColonne, Criteria1:=MonCritere Set rng = .Cells(1, 1).CurrentRegion rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count).EntireRow.Delete

---

bONJOUR A TOUS


peut etre comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub TRUCMACHIN()   For Each C In Range("V1:V" & Range("V" & Rows.Count).End(xlUp).Row).Cells On Error Resume Next If C.Text Like "AAA" Or C.Text Like "BBB" Or C.Text Like "CCC" Or C.Text Like "DDD" Then C.EntireRow.Delete If C.Text Like "EEE" And Range("t" & C.Row).Text Like "EEE" Then C.EntireRow.Delete If (C.Text Like "" And Range("t" & C.Row).Text Like "") Then C.EntireRow.Delete On Error GoTo 0 Next   End Sub

---

PS:
je ne vois pas tres bien l'utilité d'utiliser "instr" pour chercher rien du tout :mouarf::mouarf::mouarf:

Code:

---

InStr(Range("T" & i0).Value, "") = 0

---

au plaisir

Oh, très bien ! Merci de me proposer vos idées, je m'en vais aller tester ça et je vous tiens au courant :ccool:

------ UPDATE -----

Hop, suite à vos messages j'ai fait plusieurs essais, visiblement ça n'améliore pas la rapidité signicativement. Pour l'idée des filtres, il y à une piste à suivre qui semble effectivement efficace, mais je pense être limité par certains paramêtres. Je vais laisser ça de coté pour l'instant, étant juste un point d'opti... j'y reviendrais à la fin du projet, merci de vos idées en tous cas :ccool: je vous tiens au courant ;)

A plus tard ! :aie: