comparaison entre deux onglets et suppression

guima1642 · 7 Avril 2009

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 · 7 Avril 2009

Re : comparaison entre deux onglets et suppression

bonjour guima1642,

voici une solution en macro :

Code:

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 · 7 Avril 2009

Re : comparaison entre deux onglets et suppression

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

comparaison entre deux onglets et suppression

guima1642

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

guima1642

XLDnaute Occasionnel

Discussions similaires

comparaison entre deux onglets et suppression

guima1642

XLDnaute Occasionnel

mromain

XLDnaute Barbatruc

guima1642

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency