XL 2013 Supprimer ligne contenant mot "mp3"

Eric C à dit:

Bonjour le forum
Bonjour linadeau

Depuis ma boîte à souvenirs une macro universelle (demande du mot à rechercher par InputBox) et indication du nombre de lignes supprimées :

VB:

Sub suppr()
Dim n As Single
Dim cellRecherche As Range, Mot As String
n = 0
Mot = InputBox("Mot à rechercher", "Effacement ligne")
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
While Not cellRecherche Is Nothing
cellRecherche.EntireRow.Delete: n = n + 1
Set cellRecherche = ActiveSheet.Cells.Find(Mot, , , xlPart)
Wend
MsgBox n & "  lignes supprimées !"
End Sub

Bonne fin d'après-midi à toutes & à tous
@+ Eric c

Cliquez pour agrandir...

Eric C à dit:

Quel fichier ??? - Je n'ai vu qu'un fichier image Png.

Cliquez pour agrandir...

linadeau à dit:

Je souhaite supprimer toutes les lignes contenant le mot mp3 avec une macro (j'imagine)

Cliquez pour agrandir...

Sub Suppr_mp3()
Cells.Replace "*mp3*", "#N/A"
If Application.CountIf(Cells, "#N/A") Then Cells.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End Sub

Eric C à dit:

Oupssss... Pas rafraîchi. Bonjour job75 - Toujours aussi réactif

Je ne vois toujours pas de fichier ??

Il te faut cliquer sur "joindre un fichier" en bas à gauche de ce cadre puis aller chercher ton ficiher à transmettre.

Cliquez pour agrandir...