Discussion :

[worfabs75]

Bonjour,

débutant en VBA , Je souhaite créer une macro qui me permettra de supprimer toutes les lignes de la colonne I ("I2:I2960") dont la valeur de la cellule est comprise entre 0 et 249.
j’ai rédigé un code , mail il ne marche pas.

Pouvez –vous me trouver une solution svp ?

Code :

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

1
2
3
4
5
6
7
Sub chehsp()
Dim mycount  As Range
Dim I As Integer
For Each mycount In Range("I2:I2960")
If mycount.Value < 250 Then Rows(I).Delete
Next mycount
End Sub

[Philippe Tulliez]

Bonjour,
Lorsque l'on procède à la suppression de lignes dans excel il faut partir de la dernière ligne.
Autrement dit, il faut utiliser une boucle avec pas négatif comme par exemple

Code :

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

1
2
3
For row = 100 to 1 step -1
 if cells(row,9).value < 250 then rows(row).delete
Next