Trier les lignes ?

Bonsoir, je voudrais qu'une macro ne conserve que les lignes ou se trouvent les 222, 223 et les 224 de la ligne 2 à la dernière,Merci.

18classeur1.zip (12.69 Ko)

Bonsoir,

est ce qu'une solution par formule te va bien ???

Amicalement

R@chid a écrit :

Bonsoir,

est ce qu'une solution par formule te va bien ???

Amicalement

Non justement, j'ai besoin d'une macro, merci à toi.

Bonsoir,

Sub supprimer()
Dim n As Long
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        n = .Range("A" & Rows.Count).End(xlUp).Row
        For i = n To 2 Step -1
            If Not (.Range("A" & i).Value Like "*222*" Or _
            .Range("A" & i).Value Like "*223*" Or _
            .Range("A" & i).Value Like "*224*") Then Rows(i).Delete
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

A+

Merci je vais tester.

Excellent !

Rechercher des sujets similaires à "trier lignes"