Discussion :

[marie33000]

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

[Krovax]

tu test ta différence avec

Code :

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

If (dif < 1.0034 And dif > 1.0033) Then

mais la ca fait
pour chaque ligne non vide la colonne A
si masse1-masse2= -1.0033 alors
on supprime la ligne correspondant à masse2
sinon si masse1-masse2= +1.0033 alors
on supprime la ligne correspondant à masse1
fin de si
fin de pour

peut être avec

Code :

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

If (dif < 1.9958 And dif > 1.9957) Then

[marie33000]

Il manquait en fait cette partie dans le code :

Code :

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

derniereligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row

Il ne devait pas compter toutes les lignes non vide et ne pouvait donc pas faire les tests des soustractions

Voili voilou