Macro boucle avec conditions

Bonjour,

Je souhaiterais avoir un code me permettant de supprimer en colonne D les lignes qui contiennent "00" et "12" mais seulement quand en colonne H il y a "Livraison client".

Sur cet exemple ce qui est en orange est à supprimer et ce qui est en vert à laisser.

Merci pour votre aide.

Bonjour,

un petit code obtenue avec l'enregistreur de macro, puis une petite modif, puis transformation de la plage de donnée en tableau structuré

Sub Macro1()
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4, Criteria1:= _
        "=00", Operator:=xlOr, Criteria2:="=12"
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=8, Criteria1:= _
        "Livraison client"
    Rows("2:1585").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=8
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4
End Sub

@ bientôt

LouReeD

Super LouReed ça fonctionne merci beaucoup

Merci @ vous pour vos remerciements !

Vérifiez tout de même avant de "flinguer" votre fichier source...

@ bientôt

LouReeD

Bonjour à tous,

Une autre façon de procéder....

Option Explicit

Dim tablo, tabloR()
Dim i&, j&, k&

Sub SupprimerLignes()
    tablo = Sheets("Feuil1").Range("A1").CurrentRegion
        k = 0
     For i = 2 To UBound(tablo, 1)
        If tablo(i, 8) = "Livraison client" And (tablo(i, 4) = "00" Or tablo(i, 4) = "12") Then
        Else
          ReDim Preserve tabloR(1 To 8, 1 To k + 1)
           For j = 1 To 8                             '
            tabloR(j, 1 + k) = tablo(i, j)
           Next j
         k = 1 + k
        End If
     Next i
    Sheets("Feuil1").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
     On Error Resume Next
    Sheets("Feuil1").Range("A2").Resize(UBound(tabloR, 2), 8) = Application.Transpose(tabloR)
End Sub

Cordialement,

Bonsoir sankukai !

Comment va X ?

L'avantage avec cette façon de faire c'est que le résultat peut être collé sur une autre feuille afin de ne pas toucher à la source !

@ bientôt

LouReeD

Hello LouReeD,

Merci pour ce retour,

Tu as vu, j'ai enfin choisi......comme tu avais une préférence pour le shérif de l'espace....

@bientôt,

Bonjour,

Par power query si j'ai bien compris ?

Pour actualisé la requette Onglet "Données" => "Actualiser tout"

cdt

Xor !
Le shérif shérif de l'espace,
Xor !
Son domaine, c'est notre galaxie (ha ha haaaa haaaaaa !)

Bref, joli choix XorSankukai !

@ bientôt

LouReeD