Macro VBA fonction à moitié

bonsoir,

voila mon problème je ne suis pas un expert en programmation.

J'ai réalisé une macro sauf que je suis obligé de la relancer tout le temps pour qu'elle aille rechercher ligne par ligne les chaines de caractère que j'ai indiqué et supprimer les autres lignes ou les 3 chaines de caractères n'apparaissent pas. j'aimerais la lancer une seule fois qu'elle fasse toute les recherches et qu'elle s'arrête toute seul à la fin des recherches. je ne sais pas si je me suis fais bien comprendre.

voila mon code si vous pouvez me donner un coup de main ça serait génial.

Code VBA :

Sub tri_ev()
    Dim X As long
    fintab = Sheets(1).Range("B65536").End(xlUp).Row + 1

    For X = 8 To fintab step -1

        recherche1 = InStr(Cells(X, 23), "SR:")
        recherche2 = InStr(Cells(X, 23), "Attente sequence")
        recherche3 = InStr(Cells(X, 23), "ROBOT HORS PUISSANCE")
        If recherche1 <> 0 Or recherche2 <> 0 Or recherche3 <> 0 Then
        Cells(X, 1) = "A garder"
    Else: Cells(X, 1).EntireRow.Delete
    End If

    Next

End Sub

Bonjour, essayez d'inverser 8 et fintab.

For X = fintab to 8  step -1
Rechercher des sujets similaires à "macro vba fonction moitie"