Boucle VBA: si la cellule contient une valeur spécifique, supprimez la ligne contenant la valeur et les 3 lignes suivantes.

Question

Bonjour, J'essaie de parcourir un long rapport qui supprime les suppressions.

La logique générale serait la suivante: si le script trouve la valeur "DELETE" dans la colonne B1, il devrait supprimer la plage "A1: I4". J'ai le script ci-dessous qui ne fonctionne évidemment pas. J'essaye de comprendre la syntaxe correcte pour une gamme sur plusieurs colonnes en utilisant la variable "X". Toute aide serait appréciée!

J'ai la boucle suivante:

Sub RemoveDel() 
lastrow = Cells(Rows.Count, "B").End(xlUp).Row 
For x = 1 To lastrow 

    If Range("B" & x).Value = "DELETE" Then Range("A" & x:"I" & x + 4)).ClearContents 

    Next x 
End Sub 

Answer 1

Je pense que vous venez de fixer cette partie et mettez le côlon dans les citations.

If Range("B" & x).Value = "DELETE" Then Range("A" & x & ":I" & x + 4)).ClearContents 

EDIT

Vous pouvez également utiliser "Cell" plutôt que Range pour le premier bit.

If Cells(x,"B").Value = ..... 

Cela fonctionne pour moi:

Sub RemoveDel() 
lastrow = Cells(Rows.Count, "B").End(xlUp).Row 
For x = 1 To lastrow 

    If Range("B" & x).Value = "DELETE" Then Range("A" & x & ":I" & x + 4).ClearContents 

Next x 
End Sub