Supprimer toutes les lignes qui contiennent "T11" , "R"

Bonjou,

Je souhaiterai ajouté à ma macro déjà existante, une macro qui me permettrait de supprimer toutes les lignes qui contiennent "T11", "R6" et "R7" en colonne A dans l'onglet "Saisie LIMS".

En vous remerciant par avance.

Bonne fin de journée

Bonjour Matouuu

A tester et intégrer ou appeler au besoin

Sub supplign()
Set sh3 = Sheets("Saisie LIMS")
Dim x As Integer

  For x = 3 To sh3.Cells(Rows.Count, "A").End(xlUp).Row 'x=3, le 3 représente la ligne de début
    If sh3.Cells(x, "A") = "R7" Or sh3.Cells(x, "A") = "R6" Or sh3.Cells(x, "A") = "T11" Then 'si valeur de la cellule est égale à R6 R7 ou T11
     Rows(x).Delete 'alors on supprime la ligne concernée
    End If
  Next x

End Sub

Salutation

AS

Bonjour à tous,

As226, attention qu'en cas de suppression de ligne il boucler du bas vers le haut avec step -1 sinon certaines lignes sont sautées.

Sans boucle (plus rapide).

Il doit y avoir un filtre auto en A1 :

    Dim pl As Range
    With Sheets("Saisie LIMS")
        .Range("$A$1:$D$502").AutoFilter Field:=1, Criteria1:=Array("R6", "R7", "T11"), Operator:=xlFilterValues
        Set pl = .[A2].Resize(.Cells(Rows.Count, 1).End(xlUp).Row).EntireRow
        On Error GoTo fin
        Set pl = pl.SpecialCells(xlCellTypeVisible)
        If Not pl Is Nothing Then pl.EntireRow.Delete
fin:
        .ShowAllData
    End With

eric

Bonjour,

Merci à tous les deux mais je ne comprends pas ça ne fonctionne toujours pas et en plus ma première macro ne marche plus

De plus, j'ai oublié de précisé que les feuilles sont protégés.

Pourriez vous s'il vous plait regardé d'où vient le problème ?

Merci d'avance