Récupération de lignes

Bonjour,

Je voudrai extraire d'un fichier texte uniquement les listes qui commencent par LIST. Quelqu'un sait comment faire ?

Merci

Bonjour

Si tu as installé Power query, alors passe par ce dernier, tu pourras récupérer ce que tu souhaite.

Bon courage.

Cordai5

Bonjour,

ci-jointe une proposition via clic sur le bouton extraction

Bonjour,

Essaie cette procédure :

Public Sub Delete_rows()
Dim N As Long, i As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        N = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = N To 1 Step -1
            If Left(.Cells(i, 1), 4) = "LIST" Then
                .Cells(i, 1).Value = WorksheetFunction.Trim(.Cells(i, 1).Value)
            Else
                .Cells(i, 1).Delete shift:=xlShiftUp
            End If
        Next
    End With
End Sub