Bonjour,
j'ai une macro qui utilise les tableaux dynamiques VBA pour supprimer les valeurs opposées dans ma colonne A (+ de 35000 lignes). Si j'ai deux veuleurs 500 et -500, les deux valeurs sont supprimées.
Je veux l'adapter pour un tableau ("A2:N") et que les valeurs à vérifier s'il existe des opposées se trouvent maintenant dans la colonne M.
Option Explicit
Sub SupOppos()
Dim Derlig As Variant, i As Variant, j As Variant, Tablo, Start
Application.ScreenUpdating = False
Start = Timer
With Sheets("test")
Derlig = .Range("A65536").End(xlUp).Row
Tablo = .Range("A2:A" & Derlig)
' Boucle sur toutes les valeurs de la plage
For i = 1 To Derlig - 1
If Tablo(i, 1) <> "" Then
For j = i + 1 To Derlig
If Tablo(j, 1) = -Tablo(i, 1) Then
Tablo(j, 1) = ""
Tablo(i, 1) = ""
Exit For
End If
Next j
End If
Next i
.Range("A2").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
End With
MsgBox Application.RoundUp(Timer - Start, 0) & " secondes"
End Sub
Merci d'avance.