Trier un fichier Excel selon une condition

Question

Bonjour forum, je cherche une macro pour trier des lignes selon un mot dans la cellule, s'il trouve le mot "Football" il garde la ligne "Football" + celle du dessus et supprime le reste

Voilà j'espère que c'est explicite

Merci d'avance

15test.xlsx (43.75 Ko)

ThauThème · Accepted Answer

Bonsoir Muratime, bonsoir le forum,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = DL To 2 Step -1 'boucle des lignes DL à 2 en remontant
    'condition : si la cellule ligne I colonne B ne contient pas le mot "football"
    If InStr(1, O.Cells(I, "B").Value, "football", vbTextCompare) = 0 Then
        O.Rows(I).Delete 'supprime la ligne I
    Else 'sinon
        I = I - 1 'I devient I - 1 (et Next I sautera la ligne au dessus)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
Application.ScreenUpdating = False 'affiche les rafraîchissements d'écran
End Sub