comparaison entre deux onglets et suppression

[guima1642]

Bonjour,

voila mon pb j'ai une feuille ("Machine") dans laquelle se trouve une liste de machine à garder (colonne A).
Une autre feuille ("tout") ou se trouve toutes les machines même celle qui ne sont pas bonne.

Je voudrais faire une boucle qui va effacer dans la feuille ("tout") les lignes qui ne sont pas dans la feuille ("Machine").

D'avance merci

 

[mromain]

Re : comparaison entre deux onglets et suppression

bonjour guima1642,

voici une solution en macro :

Sub test()
Dim sTout As Worksheet, sMachine As Worksheet, i As Integer, findCell As Range
Set sTout = ThisWorkbook.Sheets("tout")
Set sMachine = ThisWorkbook.Sheets("Machine")

For i = sTout.Cells(sTout.Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If sTout.Cells(i, 1) <> vbNullString Then
        Set findCell = sMachine.Columns(1).Find(sTout.Cells(i, 1).Value)
        If findCell Is Nothing Then sTout.Rows(i).Delete
    End If
Next i
End Sub

a+

 

[guima1642]

Re : comparaison entre deux onglets et suppression

merci pour la rapidité
ça fonctionne
bonne journée