Suppression Résolu/Fermé

Question

Bonjour, 

Comment rajouter la condition compris entre -5000 et 5000 dans ce code, sachant que là cela me supprime uniquement les inférieurs à 5000

Sub suppression()
Dim l As Long

For l = 15000 To 1 Step -1
    If Cells(l, "M").Value < 5000 _
    Then Cells(l, 1).EntireRow.Delete
Next l
'
End Sub


Merci d'avance,

Cordialement.


Configuration: Windows XP / Internet Explorer 8.0

chossette9 · Answer

Bonjour,  

si tu veux supprimer seulement les lignes dont la valeur en colonne M est entre -5000 et 5000, il faut remplacer ton If Cells(l, "M").Value < 5000 _parIf Cells(l, "M").Value < 5000 And  Cells(l, "M").Value > -5000 _
Cordialement. 
Ce mec la n'était pas une lumière, car il était niais.

michel_m · Answer

bonjour 

If Cells(l, "M").Value < 5000 And Cells(l, "M").value> -5000 then

astuce: pour éviter les sauts de l'écran et aller beaucoup + vite, insère cette ligne avant ta boucle
application.screenupdating=false

 Michel

Suppression

2 réponses

Discussions similaires