Discussion :

[smartbis]

Bonjour

apres avoir recherché un bout de programme dans le forum me permettant de supprimer des lignes sous certaines conditions,je me retrouve devant un phenomene de lenteur excessive du sans doute a la formule

Auriez vous une idee pour corriger cela sachant que je traite entre 10 000 et 45 000 lignes et que cela prends enormememnt de temps( plusieurs minutes)


voici le code utilisé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub nettoyer()
Dim I As Integer
Dim debut1 As String, debut2 As String
For I = 21 To (Range("A65536").End(xlUp).Row - 2)
 
 
 
debut1 = Range("D" & I).Value
 
debut2 = Range("E" & I).Value
 
 
If debut1 < -5.5 Or debut1 > 8.2 Or debut2 < 42 Or debut2 > 51 Then
Rows(I).Delete Shift:=xlUp
End If
Next I
End Sub

merci pour votre aide

[AlainTech]

De tête:
Essaye

Code :

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

Application.Calculate = False

Avant ta boucle et remets-le à True après la boucle.

[tonton fred]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Application.ScreenUpdating = False 'desactive la mise a jour de l'affichage
Application.Calculation = xlCalculationManual 'desactive le calcul automatique des cellules
 
''' ton code
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Je ne suis pas sur que Application.Calculation = xlCalculationManual change beaucoup la vitesse d'execution mais l'autre par contre va beaucoup plus vite.