Bonjour la communauté,
Je cherche à supprimer des lignes suivant un critère.
Avec la propriété .color, j'ai ce que je veux mais en passant à la propriété delete, la macro ne me supprime pas tous les lignes.
Je veux supprimer tous les lignes de la feuil1(colonne A) dont la valeur ne se trouve pas dans la feuil2(colonne A)
Pourriez-vous m'aider svp?
Merci
Je cherche à supprimer des lignes suivant un critère.
Avec la propriété .color, j'ai ce que je veux mais en passant à la propriété delete, la macro ne me supprime pas tous les lignes.
Je veux supprimer tous les lignes de la feuil1(colonne A) dont la valeur ne se trouve pas dans la feuil2(colonne A)
Pourriez-vous m'aider svp?
Merci
VB:
Sub SupprimesLignes()
Set plage = Sheets("Feuil2").Range("A1:A6")
For i = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
valeur = Sheets("Feuil1").Range("A" & i)
If Application.WorksheetFunction.CountIf(plage, valeur) = 0 Then
'Sheets("Feuil1").Range("A" & i).Interior.Color = vbGreen
Sheets("Feuil1").Range("A" & i).EntireRow.Delete
End If
Next
End Sub