Temps de traitemeent par macro

[philmaure]

Bonjour,

Dans l'exemple joint j'ai une macro qui fonctionne mais qui est trop lente pour le traitement que je veux en faire.
Y aurait une solution pour améliorer le temps de traitement ?

Merci d'avance pour vos réponse
cdlt
philippe

 

[philmaure]

Re : Temps de traitemeent par macro

pour info je veux supprimer les données correspondantes à la colonne O

 

[patsyl60]

Re : Temps de traitemeent par macro

Bonjour philmaure,

A tester :

Application.ScreenUpdating = False
Derlignec = Range("c65536").End(xlUp).Row
For i = Derlignec To 2 Step -1
If Range("c" & i) = "ton code à supprimer" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True

Tiens nous au courant

Patsyl60

 

[philmaure]

Re : Temps de traitemeent par macro

merci mais je ne m'en sors pas. que dois je mettre en remplacement de "Ton code à supprimer" ?
Je te met ma macro pour aider.
Dim fini&, i&, a&, fini1
fini = Sheets("Flux").Range("C" & Rows.Count).End(xlUp).Row
fini1 = Sheets("Flux").Range("O" & Rows.Count).End(xlUp).Row
For i = fini To 2 Step -1
For a = 1 To fini1
If Sheets("Flux").Cells(i, 3) = Sheets("Flux").Cells(a, 15) Then Sheets("Flux").Range(Sheets("Flux").Cells(i, 1), Sheets("Flux").Cells(i, 6)).Delete Shift:=xlUp: GoTo 5
Next a
5 Next i



Merci

 

[philmaure]

Re : Temps de traitemeent par macro

Re

En fait le simple fait d'ajouter" Application.ScreenUpdating = False" ramène le temps de traitement à quelques secondes. C'est opk pour moi
Un grand merci et bon a-m
Cdlt
philippe