Bonjour,
J'essaye de construire un macro qui me permets de supprimer les lignes quand la valeur d'une cellule est egale X1 dans ma colonne G
Voici ce que j'ai essayé de faire, mais je ne sais pas comment exprimer le fait que je veux supprimer la ligne de la cellule testé :
Sheets("feuil1").Activate
Dim z As Range
For Each z In Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
If z.Value = "X1" Then
Row.Select
Selection.Delete shift:=xlUp
End If
Next z
End Sub
Merci par avance et bonne journée a tous.
J'essaye de construire un macro qui me permets de supprimer les lignes quand la valeur d'une cellule est egale X1 dans ma colonne G
Voici ce que j'ai essayé de faire, mais je ne sais pas comment exprimer le fait que je veux supprimer la ligne de la cellule testé :
Sheets("feuil1").Activate
Dim z As Range
For Each z In Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
If z.Value = "X1" Then
Row.Select
Selection.Delete shift:=xlUp
End If
Next z
End Sub
Merci par avance et bonne journée a tous.