test soustraction vba excel

Version imprimable

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:

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

Si tu veux supprimer toutes la ligne cells(1,1).EntireRow.Delete
Après quand on supprime des ligne il vau mieux le faire a l'envers car la numérotation va changer
(a tester)

Code:

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 step -1
    For j = i-1 To 1 -1
        If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then
            Cells(i, 5).EntireRow.Delete
            Cells(j, 5).EntireRow.Delete
        End If
    Next j
Next i

21/04/2009, 15h43
marie33000

merci merci, il y a juste un piti problème: le programme sort immédiatement de la boucle

Code:

for i=1 to etc etc

Il ne peut donc pas tester l'opération de soustraction :s

Petite inversion :

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
Dim j As Integer
 
For i = Range("A65536").End(xlUp).Row to 1 step -1
    For j = i-1 To 1 step -1
        If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then
            Cells(i, 5).EntireRow.Delete
            Cells(j, 5).EntireRow.Delete
        End If
    Next j
Next i

21/04/2009, 16h02
Krovax

oui effectivement une erreure de ma part :?
Merci de la correction :king:
21/04/2009, 16h06
marie33000

merci merci, ça me met juste une ptite erreur à ce niveau

Code:

If Abs(Cells(i, 1) - Cells(j, 1)) = 1.5 Then

cause: "incompatibilité de type"

c'est embêtant :s
21/04/2009, 16h14
Krovax
Les type sont chaine de caractère, double, entier,....
Si c'est incompatible c'est que tu veux faire une opération qui ne corespond pas au type (exemple soustraire des chaine de caractère)
Du coup au moment ou sa plante regarde la valeur de i et regarde al cellule de la colonne A de la même ligne ce qu'elle contient. Je parierais bien que tu a laissé les 1 dans
Code:

1 2 For i = Range("A65536").End(xlUp).Row to 1 step -1 For j = i-1 To 1 step -1
alors que tu as des titres,...
essaye donc
Code:

1 2 For i = Range("A65536").End(xlUp).Row to 2 step -1 For j = i-1 To 2 step -1
21/04/2009, 16h22
aalex_38

REgarde ce que tu as la dedans :

Code:

msgbox Range("A65536").End(xlUp).Row
21/04/2009, 16h23
marie33000

J'ai honte... :oops:

Il est fort probable que tu ais raison sur toute la ligne :mouarf:

merci beaucoup, je vais pouvoir continuer ce que je voulais tester ;)

p.s. j'avais bien un titre et il fallait commencer à 2 et non pas à 1 :oops: