Peut-on accélérer ce code ?

[noviceAG]

Bonjour le Forum,
Ce code trouvé dans la page Wiki me parait bien trop long

Sub SupprimeLigneSi()
'(format des cellules hh:mm:ss)
Dim x As Integer
Dim Cible As Date
Application.ScreenUpdating = False
For x = Range("B10000").End(xlUp).Row To 1 Step -1
Cible = Cells(x, 2)
If Cible >= #8:20:00 AM# And Cible <= #5:00:00 PM# Then Rows(x).Delete
Next x
Application.ScreenUpdating = True
End Sub

Peut-on l'accélérer ?
En vous remerciant

 

[jeanpierre]

Re : Peut-on accélérer ce code ?

Bonsoir noviceAG,

Le temps de traitement est tributaire du travail à effectuer d'une part ainsi que de la mémoire et rapidité de la machine d'autre part.

Ensuite l'écriture peut contribuer aussi.

Trop long, c'est combien de secondes ou de minutes ?

Bonne soirée.

Jean-Pierre

 

[Kobaya]

Re : Peut-on accélérer ce code ?

Bonsoir noviceAG, jeanpierre,

Et avec un filtre, ne serait-ce pas possible ?

 

[noviceAG]

Re : Peut-on accélérer ce code ?

Re,
Je vous remercie, l'idée du filtre est excellente

 

[Brigitte]

Re : Peut-on accélérer ce code ?

Bonjour,

A tout hasard, j'ai appris grâce à Gaël cet été (qui m'a ainsi accéléré, boosté un module de recherche par usf dans un fichier) que de mettre à un moment le calcul "sur ordre" puis le remettre "automatique" à la fin, ca changeait bien les choses... NOTAMMENT car là il s'agit de filtrages complexes (dans mon tableau).

Quand c'est possible, à tenter.

Le code (à trouver avec l'enregistreur de macros) :

Application.Calculation = xlCalculationManual

et

Application.Calculation = xlCalculationAutomatic

A tout hasard, vraiment.

 

[noviceAG]

Re : Peut-on accélérer ce code ?

Bonjour Brigitte, le Forum,
Je te remercie pour ce "tuyau" qui effectivement accélère le processus
J'ai gagné 6 minutes.
Bon Week-end à toi