XL 2016 Supprimer des lignes sous condition

job75

XLDnaute Barbatruc

• 8 Octobre 2019

• #2

Bonjour HelloDy,

Si comme sur l'exemple il y a peu de lignes à supprimer on peut utiliser cette macro très simple :

VB:

Sub SupprimerLignes()
Dim i&
Application.ScreenUpdating = False
With [A7].CurrentRegion
    For i = .Rows.Count - 1 To 3 Step -1 '2 lignes de titres
        If Format(.Cells(i, 10), "0.00") = Format(.Cells(i, 8) * 1.2, "0.00") Then .Rows(i).Delete
    Next
End With
End Sub

Vous avez dit que la ligne 11 devait être supprimée mais elle ne l'est pas car J11= 6,00 et 1,2*H11 = 5,976 arrondi à 5,98.

A+

 

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 8 Octobre 2019

• #3

Bonjour @job75,

Je n'ai pas encore testé la macro mais merci d'avance 🙂

Pour la ligne 11 en fait oui elle doit bien être supprimée, les valeurs sont trop proches pour être ignorées. 5,976 doit être arrondi à 6.

Est-ce que cela modifie la macro ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Octobre 2019

• #4

HelloDy à dit:

Pour la ligne 11 en fait oui elle doit bien être supprimée, les valeurs sont trop proches pour être ignorées. 5,976 doit être arrondi à 6.

Est-ce que cela modifie la macro ?

Cliquez pour agrandir...

Bien sûr mais il suffit alors d'arrondir à la 1ère décimale en remplaçant "0.00" par "0.0"

 

Vote positif 0 Vote négatif

HelloDy

XLDnaute Junior

• 8 Octobre 2019

• #5

Ca fonctionne parfaitement.

Merci beaucoup @job75 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2019

• #6

Bonjour HelloDy, le forum,

Il peut exister des problèmes d'arrondi, voyez ce fil :

https://www.excel-downloads.com/threads/probleme-darrondi.20036978/

Pour les éviter utilisez plutôt cette macro :

VB:

Sub SupprimerLignes()
Dim i&
Application.ScreenUpdating = False
With [A7].CurrentRegion
    For i = .Rows.Count - 1 To 3 Step -1 '2 lignes de titres
        If Abs(1.2 * .Cells(i, 8) - .Cells(i, 10)) < 0.1 Then .Rows(i).Delete xlUp
    Next
End With
End Sub

Bonne journée.

 

Dernière édition: 9 Octobre 2019

Vote positif 0 Vote négatif