Rendre plus rapide le calcul du fichier

ahclion à dit:

Bonsoir a tous,

J'ai un fichier excel et son calcul est très lent, est-ce qu'il y'aurait une methode par exemple de dictionnaire pour accelerer le calcul

Merci a vous tous

Cliquez pour agrandir...

pas besoin de boucle ou de dictionnaire...
automatiser la méthode Filtre proposé par JHA dans un fil précédent !!!

inutile de multiplier les posts si la problématique n'a pas changée
il est pas très indiqué de multiplier les appels par message de profils à chacun des "barbatruc" !!!

Bonjour Ahclion, bonjour le forum,

Peut-être comme ça :

VB:

Sub raz()
Dim i As Long
Dim PL As Range

Set PL = Range("A1")
For i = Cells(Rows.Count, "A").End(xlUp).Row To 4 Step -1
    If Cells(i, 15).Value = 5 Or Cells(i, 15).Value = 3 Then Set PL = IIf(PL.Cells.Count = 1, Rows(i), Application.Union(PL, Rows(i)))
Next
PL.Delete
End Sub

[Édition]
Désolé pas vu les doublons...