Supprimer lignes contenant la valeurs déterminées

Bonjour

je cherche une macro ou autre.

Dans ma colonne I de ma feuille "utilisateurs" je vais mettre les matricules de certaines personnes (alimentée au fur et à mesure).

Dans ma feuille "BD" qui contiennent des données...je veux supprimer les lignes qui contiennent les matricules des personnes énumérées dans la colonne I de ma feuille "utilisateurs"

NB les personnes énumérées se trouvent dans la colonne J de la feuille BD

J'espère que j'ai bien expliquer et Merci d'avance

Bonjour,

OUI, parfaitement bien expliqué, mais un fichier excel faciliterait la tâche de rédaction d'une macro.

$6 https://forum.excel-pratique.com/viewtopic.php?f=2&t=13

Sub supprimer()
Dim cel As Range
Sheets("utilisateurs").Select
With Sheets("BD")
    For i = Cells(Rows.Count, "I").End(xlUp).Row To 1 Step -1
        Set cel = .Columns("J").Find(Cells(i, "I"))
        If Not cel Is Nothing Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next
End With
End Sub

Merci Steelson

il a fait le contraire il m'a supprimé l’utilisateur de la liste c/ la feuille utilisateur.

pour faire facile ...je veux éliminer de la BD les lignes vendeurs filles (voir matricule 3eme colonne liste feuille utilisateur)

tout est expliqué en fichier joint

et merci d'avance

11suppression.xlsx (13.17 Ko)

Désolé,

j'ai donc tout inversé !

Sub supprimer()
Dim cel As Range
Sheets("BD").Select
With Sheets("utilisateurs")
    For i = Cells(Rows.Count, "I").End(xlUp).Row To 1 Step -1
        Set cel = .Columns("I").Find(Cells(i, "J"))
        If Not cel Is Nothing Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next
End With
End Sub

Merci beaucoup steelson....c'est exactement ce que je cherche

Bonsoir

si les filles sont <= 3000

peux etre plus simple A voir

Sub Supprimer1()
Dim L&
Application.ScreenUpdating = False
Feuil2.Select
    For L = Cells(Rows.Count, 10).End(xlUp).Row To 2 Step -1
        If Val(Cells(L, 10)) <= 3000 Then
            Rows(L).Delete Shift:=xlUp
        End If
    Next L
End Sub

A+

Maurice

Rechercher des sujets similaires à "supprimer lignes contenant valeurs determinees"