Macro : suppression de ligne

Bonjour,

Je souhaite supprimer les lignes des cellules contenant certain caractères.

ex : valeur de cellule = HMA-04

Je veux supprimer la ligne pour laquelle la cellule sélectionnée contient les lettres "HMA"

J'ai fait cette macro :

Dim i As Integer, j As Integer, x As String, arret As String

i = ActiveCell.Row
j = ActiveCell.Column
arret = "faux"
x = InputBox("Entrer votre recherche : ")

While i < 5000
Cells(i, j).Select
    If Cells(i, j) Like x Then
    Rows(i).Select
    Selection.Delete
    End If
i = i + 1
Wend

çà ne marche pas. La macro ralenti sur la cellule à analyser et passe à la suivante sans supprimer la ligne.

Par contre à rechercher de la cellule est un nombre, çà marche.

Merci d'avance

Vélivole911

Bonjour

Une autre manière de faire

Option Compare Text

Sub Test()
Dim I As Integer, J As Long, x As String, Ligne As Long, arret As String

  J = ActiveCell.Row
  I = ActiveCell.Column
  arret = "faux"
  x = InputBox("Entrer votre recherche : ")

  Application.ScreenUpdating = False

  For Ligne = Cells(Rows.Count, I).End(xlUp).Row To J Step -1
    If Cells(Ligne, I) Like "*" & x & "*" Then
      Rows(J).Delete
    End If
  Next Ligne
End Sub

Je dois avoir un problème, car ça mouline sans se déplacer.

Bonjour

En principe je teste (sauf indication contraire) et cela fonctionne

Si tu peux joindre ton fichier afin d'éviter de faire des suppositions dans tous les sens