Bonjour tous le monde, je souhaiterais réaliser un test:

Je dispose de i données dans la colonne A et je souhaite tester ceci:

pour chaque ligne non vide la colonne A
si masse1-masse2= -1,995793 alors
on supprime la ligne correspondant à masse2
sinon si masse1-masse2= +1,995793 alors
on supprime la ligne correspondant à masse1
fin de si
fin de pour


Voici mon code:


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
16
17
18
19
20
Private Sub CommandButton1_Click()
Dim derniereligne As Integer
Dim dif As Double
Dim i As Integer
Dim j As Integer
 
For i = 2 To derniereligne - 1
    For j = i + 1 To derniereligne
 
    dif = Abs(Sheets("Feuil1").Cells(i, 1) - Sheets("Feuil1").Cells(j, 1))
        If (dif < 1.0034 And dif > 1.0033) Then
            If Sheets("Feuil1").Cells(i, 1) > Sheets("Feuil1").Cells(j, 1) Then
                Sheets("Feuil1").Cells(i, 1).EntireRow.Delete
            ElseIf Sheets("Feuil1").Cells(i, 1) < Sheets("Feuil1").Cells(j, 1) Then
                Sheets("Feuil1").Cells(j, 1).EntireRow.Delete
            End If
        End If
    Next j
Next i
End Sub
Merci par avance