bonjour bonjour,

j'aimerais effectuer un test:

je dispose de plusieurs colonnes et je souhaite vérifier un test dans ma colonne 1:

Il y a N données dans ma colonne 1, si la soustraction de deux cellules donnent 1.5 alors on supprime la ligne.

Exemple:

5
4
3.5
1
0


la colonne deviendra :

4
1
0

car 5-3.5 = 1.5 -> on supprime le 5 et le 3.5

Voilà j'ai déjà un code mais j'aimerais avoir des avis pour comprendre quelle est la solution la mieux adapter car je dispose de 1000 données en moyenne dans chaque colonne :s

merci merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
Dim j As Integer
 
For i = 1 To Range("A65536").End(xlUp).Row
    For j = i+1 To Range("A65536").End(xlUp).Row
        If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then
            Cells(i, 5) = Cells(i, 1)
            Cells(j, 5) = Cells(i, 1)
        End If
    Next j
Next i