Discussion :

[Anto_NEX]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlphaScorpi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bONJOUR A TOUS


peut etre comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au plaisir

[Anto_NEX]

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

------ 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 je vous tiens au courant

A plus tard !