Discussion :

[jorisfavre]

Bonjour à tous,

Dans le fichier joint, une base de donnée importée en .csv depuis une balance.
Je voudrais épurer cette base en supprimant les lignes avec des poids < à 0.350 et > à 0.700
Ces poids sont enregistrés en colonne "E".
Le nombre de lignes de la base peut varier d'un import à l'autre, du coup je suis parti à filtrer sur 10 000 lignes.

voici le code que j'essaye de faire fonctionner. je me suis basé sur l'étude de post précédent, traitant ce sujet.

Mais sans succès.

je suis preneur de vos remarques et idées.

Un grand merci d'avance !!

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
Sub SupLigne()
 
Dim i As Long
 
Application.ScreenUpdating = False
 
With Worksheets("DATA")
    For i = .Cells(.Rows.Count, "E").End(xlUp).Row To 10000 Step -1
        If .Range("E" & i) < "0.350" Or .Range("J" & i) > "0.700" Then .Rows(i).Delete
    Next i
End With
 
Application.ScreenUpdating = True
 
End Sub