Recherche de caractères dans une cellule

Bonjour

j'ai dans une la colonne B des valeurs dans ces cellules ex : AA-- ou --DZA ou ---- ou vides ,

j'aimerai sélectionner ces lignes et les supprimer afin de réduire mon tableau

ex : A B

1 Laurent --ZZ

2 Pierre EDTE

3 Eric ----

4 Isabelle MM--

5 Pascal

Pouvoir supprimer toutes les lignes , ici la 1, 3,4 et 5 et ne conserver que la ligne 2

merci

En VBA si possible

sub lignes_A_Supprimer

dim Lignes as long

' je recherche plus précisemement des cellules qui comportent que des- ou des -- ou des --- ou des ---- ou une partie

lignes = inputbox( "Quel caractère à trouver sur la colonne 3 ")

if lignes ="" then

msgbox "vous n'avez rien saisi"

exit sub

end if

' je recherche dans la colonne C dans toutes les cellules qui ont un caractère -xxx ou xxx-- ou cellules vides

if .... c'est mon soucis

supprimer ces lignes.....

End sub

Bonjour bouboulou, le forum,

Peut-être ainsi....

Sub test()

    Dim i As Integer, dl As Integer, a

    With Sheets("Feuil1")
     dl = .Range("B" & Rows.Count).End(xlUp).Row
        For i = dl To 3 Step -1
         For Each a In Array("-", "--", "---", "----")
          If .Cells(i, 3) Like "*" & a & "*" Then .Rows(i).EntireRow.Delete
         Next a
        Next i
    End With

End Sub

Cordialement,

Re,

Avec inputbox...

Option Explicit
Option Compare Text

Sub Bouton1_Cliquer()

    Dim i As Integer, dl As Integer, a

    a = InputBox("Quel caractère à trouver sur la colonne 3 ", "Caractère")

    If a <> "" Then
     With Sheets("Feuil1")
      dl = .Range("B" & Rows.Count).End(xlUp).Row
        For i = dl To 3 Step -1
          If .Cells(i, 3) Like "*" & a & "*" Then .Rows(i).EntireRow.Delete
        Next i
     End With
    Else
     MsgBox "Vous n'avez rien saisi": Exit Sub
    End If

End Sub

Cordialement,

Merci beaucoup xorsankukai

ça marche

et bravo pour la rapidité de ce site des de ses membres