Suppression de ligne par rapport à une liste [RESOLU]
Bonjour
Je cherche à transposer une formule VBA qui supprime les lignes qui contient la valeur "toto" par une autre où le "toto" serait remplacé par une liste de valeur qui se trouve sur la feuille "ABC" de la cellule A1 à A10
Range("A65536").End(xlUp).Select
varligne = ActiveCell.Row
Range("A1").Select
For i = 1 To varligne
If (ActiveCell.Value, 3) = "toto" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Savez vous comment faire?
Bonjour
Je cherche à transposer une formule VBA qui supprime les lignes qui contient la valeur "toto" par une autre où le "toto" serait remplacé par une liste de valeur qui se trouve sur la feuille "ABC" de la cellule A1 à A10
Range("A65536").End(xlUp).Select
varligne = ActiveCell.Row
Range("A1").Select
For i = 1 To varligne
If (ActiveCell.Value, 3) = "toto" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Savez vous comment faire?
Dernière édition: