Bonjour le forum,
Après recherche je n'ai pas trouvé de réponses.
Je vous explique :
J'ai un tableau dans la feuille 1 (100 lignes), j'ai un autre tableau de même composition mais avec + de lignes (300 lignes) dans la feuille 2.
J'ai une macro qui permet d'identifier dans le tableau de la feuille 2 les lignes identiques au tableau de la feuille 1.
Là ou je bloque, je n'arrive pas à compléter la macro pour pouvoir supprimer les lignes identifiées dans la feuille 2
Je vous joins le code utilisé
Sub Compare()
Dim Range1 As Range, Range2 As Range, Rng1 As Range, Rng2 As Range, outRng As Range
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Range1 :", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng1 In Range1
xValue = Rng1.Value
For Each Rng2 In Range2
If xValue = Rng2.Value Then
If outRng Is Nothing Then
Set outRng = Rng1
Else
Set outRng = Application.Union(outRng, Rng1)
End If
End If
Next
Next
outRng.Select
Application.ScreenUpdating = True
End Sub
Peut être faut il créer une autre macro de suppression ?
Merci de votre aide
Bonne journée