XL 2019 Suppression des lignes contenant une partie d'un mot

[Ni201]

Bonjour,
Très novice en VBA, j'essaie d'expliquer:
J'ai une colonne Excel contenant des mots.
Je voudrais effacer la ligne dès que je trouve dans le mot la chaine #NEW#.
Exemple:
1-TOTO#REDOUBLANT#
2-TATA#NEW#
3-TITI#NEW#TRANSFERT
4-TETE#CRITERES#
5- #NEW#TUTU#ADMIS

Je voudrais supprimer les lignes 2, 3 et 5.
Merci pour une réponse ou indication.

 

[M12]

Bonjour,
Voici un test avec macro

 

[Ni201]

Un grand merci. J'ai compris le code.
Bien cordialement

 

[Ni201]

Là, mea culpa, je mettrai plus de temps à comprendre.
Je ne vois pas le fichier joint.
Merci

 

[Ni201]

Désolé, peut-être que je n'ai pas compris le sens de la phrase:
"Voyez le fichier joint avec 30000 lignes".

 

[job75]

Bonsoir Ni201, M12,

J'ai refais [Edit : refait] mon message.

J'ai compris le code.

Oui c'est simple mais avec un grand tableau ça prend beaucoup trop de temps.

Voyez les fichiers joints avec 30 000 lignes, le 2ème avec cette macro :

Sub Supprime()
Dim ws As Worksheet, tablo, i, n
Set ws = Worksheets("Feuil1")
tablo = ws.[A1].CurrentRegion.Resize(, 2) 'matrice plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
    If Not tablo(i, 1) Like "*NEW*" Then
        n = n + 1
        tablo(n, 1) = tablo(i, 1)
    End If
Next
'---restitution---
With ws.[A1] '1ère cellule de destination
    If n Then .Resize(n) = tablo
    .Offset(n).Resize(ws.Rows.Count - n - .Row).ClearContents 'RAZ en dessous
End With
End Sub

Bonne nuit.

 

[Ni201]

Bonjour,
J'ai regardé et lancé les 2 macros.
Effectivement, il y a une énorme différence.
Il faut que j'arrive à comprendre la procédure.
Merci.