XL 2019 VBA : filtre selon un mot défini

MarieParis à dit:

Bonjour,

Je souhaite créer un filtre en colonne A en VBA pour supprimer toutes les lignes contenant le mot "page" ("page 1" ,"page fin" etc)

Auriez-vous des idées comment on écrit ce genre de condition, s'il vous plaît ?

Merci

Cliquez pour agrandir...

Sub filtre()
    Dim plage
    With Feuil1
        If .FilterMode Then .ShowAllData
        On Error Resume Next    ' si filtre vide
        Set plage = Range("a1:a" & Cells.Find("*", , , , xlByRows, xlPrevious).Row)
        plage.AutoFilter Field:=1, Criteria1:="=page*"
        plage.Offset(1).Resize(plage.Rows.Count - 1).EntireRow.SpecialCells(xlCellTypeVisible).Delete
        plage.AutoFilter
    End With
End Sub

Jacky67 à dit:

Bonjour,
Peut-être comme ceci
En adaptant le codename de la feuille

VB:

Sub filtre()
    Dim plage
    With Feuil1
        If .FilterMode Then .ShowAllData
        On Error Resume Next    ' si filtre vide
        Set plage = Range("a1:a" & Cells.Find("*", , , , xlByRows, xlPrevious).Row)
        plage.AutoFilter Field:=1, Criteria1:="=page*"
        plage.Offset(1).Resize(plage.Rows.Count - 1).EntireRow.SpecialCells(xlCellTypeVisible).Delete
        plage.AutoFilter
    End With
End Sub

Cliquez pour agrandir...

​

MarieParis à dit:

Bonjour Jacky,
Merci beaucoup !
Qu'est-ce que c'est "le codename" de la feuille s'il te plaît ?

​

Cliquez pour agrandir...

Jacky67 à dit:

Re...
C'est en quelque sorte le nom VBA de la feuille, cela permet de déplacer ou de renommer la feuille sans avoir à modifier le code
Exemple: ici la feuille 1 est nommée "Ma feuille", le codename sera celui à sa gauche soit "Feuil1"
Regarde la pièce jointe 1104856

Cliquez pour agrandir...

MarieParis à dit:

Merci Jacky !
Je n'ai qu'une seule feuille.
Est-ce que c'est possible de garder dans mon filtre que des valeurs numérique ? En fait, dans A, j'ai des valeurs 234, 456, etc. Je voulais écrire comme Criteria1:="=numeric" peut-être.

Cliquez pour agrandir...

Sub enleveNum()
    Dim Derlg&, i&
    Derlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = Derlg To 1 Step -1
        If IsNumeric(Cells(i, 1)) Then Rows(i).Delete
    Next
End Sub

Jacky67 à dit:

Re..
Alors ceci, sans filtre

VB:

Sub enleveNum()
    Dim Derlg&, i&
    Derlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = Derlg To 1 Step -1
        If IsNumeric(Cells(i, 1)) Then Rows(i).Delete
    Next
End Sub

Cliquez pour agrandir...

MarieParis à dit:

Merci Jacky, si je veux faire ce traitement à partir de la 4ème ligne, j'écris: For i = Derlg To 3 Step -1 ?

Cliquez pour agrandir...

Jacky67 à dit:

Re...
For i = Derlg To 4 Step -1 ==> 4ème ligne inclue
Des fois, il suffit de tester sur un classeur brouillon

Cliquez pour agrandir...

Sub Mon_filtre_Ligne()
    Dim Derlg&, i&
    Dim numero As Integer
    numero = 1 'Numéro de départ
    Do While Cells(numero, 1) <> 1
        numero = numero + 1 'Le numéro est augmenté de 1 à chaque boucle
    Loop
    Derlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = Derlg To numero Step -1
        If Not IsNumeric(Cells(i, 1)) Then Rows(i).Delete
    Next
End Sub

MarieParis à dit:

Merci Bruno,
Je suis débutante, je viens de créer un code pour supprimer toutes les lignes non numérique en gardant le chapeau. Les lignes numériques commencent toujours avec "1". Le code marche, je me demande si on peut l'améliorer :

VB:

Sub Mon_filtre_Ligne()
    Dim Derlg&, i&
    Dim numero As Integer
    numero = 1 'Numéro de départ
    Do While Cells(numero, 1) <> 1
        numero = numero + 1 'Le numéro est augmenté de 1 à chaque boucle
    Loop
    Derlg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = Derlg To numero Step -1
        If Not IsNumeric(Cells(i, 1)) Then Rows(i).Delete
    Next
End Sub

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Je ne vois pas ou cela doit mener
Mettre un classeur en ligne avec les explications
Mais aussi
Tant que cela fonctionne, on ne touche pas

Cliquez pour agrandir...

MarieParis à dit:

En fait, dans ma clé (données numériques), j'ai quelques données alphanumérique (à supprimer). Je voudrais garder le "chapeau" de mon tableau.

Cliquez pour agrandir...