XL 2016 Nettoyage d'une liste

vgendron à dit:

Bonjour

une proposition par macro

VB:

Sub ListeOutput()

Dim TabGlob() As Variant
Dim TabDesinsc() As Variant

With Sheets("Liste Globale")
    LastLine = .Range("A" & .Rows.Count).End(xlUp).Row
    TabGlob = .Range("A1:G" & LastLine).Value 'on met les données dans un tablo vba
End With

With Sheets("Désinscrits")
    LastLine = .Range("A" & .Rows.Count).End(xlUp).Row
    TabDesinsc = .Range("A1:G" & LastLine).Value 'on met les données dans un tablo vba
End With

For i = LBound(TabGlob, 1) + 1 To UBound(TabGlob, 1) 'pour chaque ligne
    For j = LBound(TabDesinsc, 1) + 1 To UBound(TabDesinsc, 1) 'pour chaque ligne
        If TabGlob(i, 1) = TabDesinsc(j, 1) Then 'si on trouve le nom
            For k = LBound(TabGlob, 2) To UBound(TabGlob, 2) 'on efface la ligne
                TabGlob(i, k) = ""
            Next k
        End If
    Next j
Next i

Sheets("Output").Range("A1").Resize(UBound(TabGlob, 1), UBound(TabGlob, 2)) = TabGlob 'on colle le tablo
Sheets("Output").Range("A1").Resize(UBound(TabGlob, 1), UBound(TabGlob, 2)).SpecialCells(xlCellTypeBlanks).Delete 'on supprime les lignes vides
End Sub

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Un essai avec power query

JHA

Cliquez pour agrandir...