supprimer ligne en fonction

[laurent999]

Bonjour a tous,

J'ai un petit soucis je voudrai supprimer une ligne en fonction de...
Je m'explique si En case B1de la feuille 2 j'ai"truc"
Recherche dans la feuille 1 colonne A3 à A10000 "truc" si truc supprimer la ligne
Merci pour vos réponses
Laurent.

 

[RENAUDER]

Re : supprimer ligne en fonction

Bonjour,
Essaies ceci

Sub test()
    Application.ScreenUpdating = False
    Sheets("Feuil2").Select
    If Range("B1").Value = "Truc" Then
        Sheets("Feuil1").Activate
        Range("A10000").Select
        For i = 9998 To 1 Step -1
            If ActiveCell.Value = "Truc" Then
                Rows(ActiveCell.Row).Select
                Selection.Delete Shift:=xlUp
                ActiveCell.Offset(-1, 0).Select
            Else
                ActiveCell.Offset(-1, 0).Select
            End If
        Next i
    Else
    End If
End Sub

 

[laurent999]

Re : supprimer ligne en fonction

Merci Eric

Cela fonctionne parfaitement

Encore un grand merci

Laurent