Bonjour à tous,
j'ai trouver un macro sur ce forum qui me permet de supprimer les valeurs opposées dans la colonne O.
Actuellement je veux ajouter une condition pour qu'avant de supprimer deux valeurs opposées de vérifier qu'ils ont les mêmes identifiants au niveau de la colonne K.
j'ai trouver un macro sur ce forum qui me permet de supprimer les valeurs opposées dans la colonne O.
Actuellement je veux ajouter une condition pour qu'avant de supprimer deux valeurs opposées de vérifier qu'ils ont les mêmes identifiants au niveau de la colonne K.
Code:
Sub SupprOppos()
Dim Zone As Range, c As Range, Oppos As Range
With Sheets("Test")
Set Zone = .Range("O8:O" & Range("O65536").End(xlUp).Row)
For Each c In Zone
Set Oppos = Zone.Find(What:=-c, After:=c, LookIn:=xlValues, Lookat:=xlWhole)
If Not Oppos Is Nothing Then Oppos = "": c = ""
Next c
End With
On Error Resume Next
Zone.SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlShiftUp
End Sub