Microsoft 365 Supprimer ligne dont les valeurs sont dans une liste

akira21 · 21 Janvier 2021

Bonjour,

J'ai ma feuille "cockpit" qui comporte un tableau avec dans la colonne E, mes valeurs à contrôler
J'ai une liste dans ma feuille "liste" avec les valeurs à contrôler et donc supprimer la ligne entière si trouvé dans la feuille "Cockpit"

Savez vous comment faire ?

Merci d'avance pour votre aide

sylvanu · 21 Janvier 2021

Bonjour Akira,
Un essai en PJ avec :

VB:

Sub Supprimer()
Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Columns(2).EntireColumn.Insert 'insère une colonne auxiliaire
    DL = Sheets("Cockpit").Range("F65500").End(xlUp).Row
    With ActiveSheet.Range("B7:B" & DL)
            .FormulaR1C1 = "=IF(COUNTIF(Liste!C,Cockpit!RC[4])>0,1,"""")"
            .Value = .Value 'supprime les formules
            .EntireRow.Sort .Cells, xlDescending  'tri pour regrouper et accélérer
            On Error Resume Next 'si aucune SpecialCell
            .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
            .EntireColumn.Delete 'supprime la colonne auxiliaire
    End With
With ActiveSheet.UsedRange: End With 'actualise les barres de...

sylvanu · 21 Janvier 2021

Bonjour Akira,
Un essai en PJ avec :

VB:

Sub Supprimer()
Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Columns(2).EntireColumn.Insert 'insère une colonne auxiliaire
    DL = Sheets("Cockpit").Range("F65500").End(xlUp).Row
    With ActiveSheet.Range("B7:B" & DL)
            .FormulaR1C1 = "=IF(COUNTIF(Liste!C,Cockpit!RC[4])>0,1,"""")"
            .Value = .Value 'supprime les formules
            .EntireRow.Sort .Cells, xlDescending  'tri pour regrouper et accélérer
            On Error Resume Next 'si aucune SpecialCell
            .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
            .EntireColumn.Delete 'supprime la colonne auxiliaire
    End With
With ActiveSheet.UsedRange: End With 'actualise les barres de défilement
[A1].Select
End Sub

Hasco · 21 Janvier 2021

Bonjour,

Dans le fichier joint, un test par formule vous dira si la ligne est à supprimer (1) ou non (0).
il vous suffit de trier sur cette valeur en ordre descendant pour avoir tous les 1 en haut puis de supprimer les lignes.

Le test est en colonne D mais vous pouvez le mettre en bout de tableau

Cordialement

akira21 · 21 Janvier 2021

Roblochon à dit:
Bonjour,

Dans le fichier joint, un test par formule vous dira si la ligne est à supprimer (1) ou non (0).
il vous suffit de trier sur cette valeur en ordre descendant pour avoir tous les 1 en haut puis de supprimer les lignes.

Le test est en colonne D mais vous pouvez le mettre en bout de tableau

Cordialement

Bonjour Roblochon et Sylvanu

C'est exactement ce que je recherchais.

Un grand merci et bonne journée

Microsoft 365 Supprimer ligne dont les valeurs sont dans une liste

akira21

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

akira21

XLDnaute Occasionnel

Discussions similaires