XL 2013 Supprimer ligne contenant mot "mp3"

[linadeau]

Bonjour à vous

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

Pourriez-vous m'aider?

Merci à l'avance

Lise N

 

[Eric C]

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 :

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

 

[linadeau]

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 :

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

Merci Éric,

J'essaie d'insérer la macro dans le fichier macro 1 dans mon fichier liste en la copiant et ça ne fonctionne pas..... j'ai toujours un bip, auriez-vous une idée du pourquoi? Merci encore

 

[linadeau]

Rebonjour Eric,

Je suis assez novice, je ne comprends pas ce que vous voulez dire? est-ce que vous avez essayé la macro dans le fichier que j'ai joint? Merci

Lise

 

[Eric C]

Re

Alt+F11 - Insertion "Module" - Double click sur "Module1" - Dans la fenêtre de droite, copié/collé du code - Tu reviens à ta feuille et tu ouvres l'éditeur de macro pour aller exécuter la macro.

 

[Eric C]

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

 

[linadeau]

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

 

[linadeau]

Voici le fichier en question?

J'essaie de vous mettre le fichier en question mais ça ne fonctionne pas....



Encore merci

 

[job75]

Bonjour linadeau, Eric C,

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

Exécutez cette macro :

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

C'est la feuille active qui est traitée.

A+

 

[Eric C]

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.

 

[linadeau]

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.

c'est effectivement ce que je fais mais il après la progression du téléversement du fichier il disparait....

 

[job75]

Dans la macro précédente j'ai ajouté les caractères génériques * pour la recherche.

 

[Eric C]

@ job75 :
Oui, la macro est pleinement efficace maintenant.
Reste le problème du fichier de linadeau ...

 

[Eric C]

Re le fil

Je te mets un fichier démo pour copier et exécuter une macro dans ton fichier. N'oublie pas Alt+F11 pour accéder au VBE afin d'y placer le code.

 

[Eric C]

@ job75

Que ce soit avec votre macro ET celle que j'ai mise en ligne, y a t'il une possibilité de faire respecter la casse du mot à rechercher. En effet, que ce soit "mp3 / Mp3 ou MP3" tout est pris en considération lors de la recherche ?
Bonne soirée à vous ainsi qu'à toutes & à tous.
@+ Eric c