Sophie11
XLDnaute Occasionnel
Je souhaite supprimer toutes les lignes contenant X ou Y dans la colonne A. Le code ci-dessous fonctionne parfaitement pour X mais je voudrais ajouter d'autres valeurs (ex: Y, Z, W etc...)
Sub delete()
For i = Range("A65536").End(xlUp).Row To 3 Step -1
If Cells(i, 1).Value = "X" Then
Cells(i, 1).EntireRow.Delete Shift:=xlUp
End If
Next
End Sub
Je sais pas comment faire
Merci par avance......
Sub delete()
For i = Range("A65536").End(xlUp).Row To 3 Step -1
If Cells(i, 1).Value = "X" Then
Cells(i, 1).EntireRow.Delete Shift:=xlUp
End If
Next
End Sub
Je sais pas comment faire
Merci par avance......