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

[Invité]

Salut Jorisfavre

Il y'a plusieurs problèmes, avec cette ligne

Code :

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

For i = .Cells(.Rows.Count, "E").End(xlUp).Row To 10000 Step -1

Tu fais de la dernière ligne de la cellule remplie de la colonne E à la ligne 10000
Dans ton exemple la dernière ligne remplie est la n° 4000
Donc ta boucle est : For i = 4000 to 10000 Step -1
Tu comprendras aisément que ça ne peut pas marcher ;

Ensuite dans ton exemple la colonne E contient des chiffres, pas la colonne J
mais il ne faut pas mettre tes valeurs entre guillemets, sinon cela indique a VBA que tu cherches du texte

Code :

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

If .Range("E" & i) < 0.350 Or .Range("J" & i) > 0.700 Then .Rows(i).Delete

J'espère que ce sera asses clair pour toi ;

[jorisfavre]

C'est tout bon, effectivement, avec un peu de recul c'était logique...

Merci beaucoup pour cette aide et merci aussi pour ta rapidité, c'est très gentil.

A beintôt