VBA recherche texte dans plage et supprimer ligne

[aroute]

Bonjour a tous,

debutant le VBA je me retrouve en diffulté, j'explique mon bloquage:
(je desirerais une fois cliqué sur le bouton en Feuil1)
-ecrire un texte dans TextBox1_Change
-une fois cliqué sur ok que la macro supprime toutes les lignes de la page "pièce" NE CONTENANT PAS CE MOT de ma TextBox1_Change


Merci pour votre aide

 

[cathodique]

Bonsoir,

Tu ne nous dis pas sur quelle feuille, quelle colonne il faut effectuer la recherche.
Un fichier avec un peu plus de données serait le bienvenu.

@+

 

[aroute]

Bonsoir cathodique,

Autant pour moi, ca serait dans la feuille "pièces" et la contenance du mot serait dans la colonne B

Je peux te donner un exemple,

je souhaiterais supprimer toutes les lignes de la feuille "pièces"qui n'ont pas le mot mercredi dans la dans colonne B

merci pour ton aide

 

[cathodique]

Bonjour,

sans fichier pas tester, à toi de le faire.

 Sub Supprimer_mercredi()
Dim i As Integer
With ThisWorkbook.Sheets("pièces")
'Précisez le nom de votre feuille
            For i = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
'Rows.count permet de retourner le nombre de ligne de la plage range
                        If ucase(.Range("B" & i).Value) = ucase("mercredi") Then
'Ucase transforme mercredi en majuscule au cas où il serait écrit de différentes façon
                                   .Rows(i).Delete
                        End If
            Next i
End With
End Sub

 

[aroute]

Merci pour ta réponse,

j'avais mis un fichier joint dans mon 1er message mais contenant une macro peut etre que le site la refusée.

ci-dessous ce que j'aimerais qu'effectue la macro:

si j'indique à la macro le mot "mercredi" celle-ci devrait me laisser que les lignes contenant le mot "mercredi" dans la colonne B.

merci pour ton aide et ta reactivité.

 

[aroute]

Ci-dessous
le fichier en pièce jointe
les instructions sont dans la page "pièce"

mercii pour ton aide

 

[DoubleZero]

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Option Compare Text
Sub Jour_supprimer()
    Dim c As Range, i As Long, jour As String
    Application.ScreenUpdating = 0
    On Error Resume Next
    jour = InputBox("Saisir le jour de semaine à supprimer.")
    If jour = "" Then Exit Sub
    With Sheets("Pièces")
        For i = .Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
            If Not .Range("b" & i) Like "*" & jour & "*" Then .Rows(i).Delete
        Next
    End With
    Application.ScreenUpdating = -1
End Sub

A bientôt

 

[aroute]

Bonjour Double zero,

dans l'idée c'est exactement ca mais j'aimerais au lieu de supprimer qu'il me conserve toutes les lignes de mon inputbox qu'il supprime ce qui ne contient pas dans mon inputbox
= InputBox("Saisir le jour de semaine à supprimer.") a remplacer par :
= InputBox("Saisir le jour de semaine à CONSERVER.")

en esperant avoir été claire
merci pour ton aide

 

[DoubleZero]

Re-bonjour,

... en esperant avoir été claire...

En espérant avoir cmpris...

Option Explicit
Option Compare Text
Sub Jour_supprimer()
    Dim c As Range, i As Long, jour As String
    Application.ScreenUpdating = 0
    On Error Resume Next
    jour = InputBox("Saisir le jour de semaine à conserver.")
    If jour = "" Then Exit Sub
    With Sheets("Pièces")
        For i = .Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
            If Not .Range("b" & i) Like "*" & jour & "*" Then .Rows(i).Delete
        Next
    End With
    Application.ScreenUpdating = -1
End Sub

A bientôt

 

[cathodique]

un essai avec userform

Edit: Bonsoir 00

ps: Prends le code de 00, il est plus logique que le mien.

 

[aroute]

Re-bonjour,

En espérant avoir cmpris...

Option Explicit
Option Compare Text
Sub Jour_supprimer()
    Dim c As Range, i As Long, jour As String
    Application.ScreenUpdating = 0
    On Error Resume Next
    jour = InputBox("Saisir le jour de semaine à conserver.")
    If jour = "" Then Exit Sub
    With Sheets("Pièces")
        For i = .Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
            If Not .Range("b" & i) Like "*" & jour & "*" Then .Rows(i).Delete
        Next
    End With
    Application.ScreenUpdating = -1
End Sub

A bientôt

BRAVO! c'est exactement ca

par contre dans mon fichier mes journées sont en MAJUSCULE du coup ca fonction que si elles sont en minuscule sinon ca me supprimer tout
peux tu me parametrer ta macro ainsi que ca fonctionne sur les journée écrites majuscules

merciiii

 

[aroute]

Merci

un essai avec userform

Edit: Bonsoir 00

ps: Prends le code de 00, il est plus logique que le mien.

Merci cathodique mais l'userforme ne conviendrait pas à mon fichier car on a des journées qui sont écrites en abrégé des fois mardi mard mercredi mer..