XL 2013 Macro qui compare deux tableaux et supprime des lignes selon un critère.

sylvanu à dit:

Bonjour Manu,
Un essai en PJ avec :

VB:

Sub Worksheet_Activate()
    Dim Formule$, DL%
    Application.ScreenUpdating = False
    Cells.Clear
    With Sheets("Total")
        DL = .Cells(.Cells.Rows.Count, "B").End(xlUp).Row
        .Range("B1:G" & DL).Copy
        [B1].Select: ActiveSheet.Paste
    End With
    [A1].Select
    With Range("A2:A" & DL)
        Formule = "=SI(NB.SI(OUV!D:D;B2)>0;CAR(1);0)"
        .FormulaLocal = Formule
        .EntireRow.Sort .Cells, xlDescending
        .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
        .ClearContents
    End With
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille PARAM.

Cliquez pour agrandir...