S
sarah
Guest
Bonjour, je dois supprimer toutes les lignes d'un tableau pour lesquelles la colonne S contient une valeur < 0,1, mais pas nulle.
J'ai trouvé un code sur ce forum, mais les valeurs nulles sont aussi supprimées, ce qui est logique.
J'ai essayé de l'adapter, comme ceci:
mais ça n'a pas trop fonctionné....le programme se bloque au bout de 5 minutes, alors qu'il ne devrait pas supprimer tant de lignes que ça!
Pouvez vous me dire ce qui ne va pas?
Merci!
J'ai trouvé un code sur ce forum, mais les valeurs nulles sont aussi supprimées, ce qui est logique.
Code:
Sub Macro1()
Dim i As Integer
For i = Range('A65000').End(xlUp).Row To 2 Step -1
If Range('S' & i).Value < '0,1' Then
Range('S' & i).EntireRow.Delete
End If
Next i
End Sub
J'ai essayé de l'adapter, comme ceci:
Code:
Sub Macro2()
Dim i As Integer
For i = Range('A65000').End(xlUp).Row To 2 Step -1
If Range('S' & i).Value < '0,1' And Not 0 Then
Range('S' & i).EntireRow.Delete
End If
Next i
End Sub
mais ça n'a pas trop fonctionné....le programme se bloque au bout de 5 minutes, alors qu'il ne devrait pas supprimer tant de lignes que ça!
Pouvez vous me dire ce qui ne va pas?
Merci!