Discussion :

[sami_rio]

J'ai une liste de 1856 numeros et montants
je voudrais suprimer de la liste ce qui ont le même le numero et le montant + et -



NUMERO NOM MONTANT
11111 A 1000
11111 A -1000
22222 B 2000
33333 C 3000
33333 C -3000
44444 D 4000
55555 F 5000

[Gorfael]

Salut sami_rio
J'ai une liste de 1856 numeros et montants
je voudrais suprimer de la liste ce qui ont le même le numero et le montant + et -
ça ne peut être effectué que par macro(de façon automatique)
11111 A 1000
11111 A -1000
22222 B 2000
33333 C 3000
33333 C -3000
44444 D 4000
55555 F 5000
on doit donc supprimer les lignes en rouge, si j'ai bien compris ?
Colonnes concernées ?
La macro devra faire un traitement du genre :
si Num1+Nom1 = Num2+Nom2 et Montant1=-montant2, alors supprimer la ligne de Num1 et Num2

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
Sub test()
Dim X As Long
Dim Y As Long
For X = [A65536].End(xlUp).Row To 2 Step -1
    For Y = X - 1 To 1 Step -1
        If Cells(X, "A") & Cells(X, "B") = _
           Cells(Y, "A") & Cells(Y, "B") Then
            If Cells(X, "C") = Cells(Y, "C") * -1 Then
                Rows(X).Delete
                Rows(Y).Delete
            End If
        End If
    Next Y
Next X
End Sub

A+

[sami_rio]

merci pour votre réponse de tout à l'heure et bonne soirée

[Pierre Fauconnier]

Bonsoir

Sans macro, c'est possible en utilisant une colonne supplémentaire.

En considérant que tes numéros (1111 A, ...) vont de A2 à A8 (dans ton exemple) et les montants de B2 à B8, tu peux utiliser en C2 la formule suivante

Code :

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

=(NB.SI($A$2:$A$8;A2)>1)*(NB.SI($B$2:$B$8;ABS(B2)))

puis tirer vers le bas.

Après, filtre automatique sur les cellules de C qui valent 1 et suppression ou filtre élaboré...

Ok?

[marc56]

Les 2 réponses de Gorfael et Pierre Fauconnier montrent bien que le problème exposé n'est pas clair. Un petit bout de fichier permettrait de déterminer plus facilement le traitement à appliquer.

[sami_rio]

bonsoir
MR PIERRE F
merci beaucoup ça fonctionne