XL 2019 Suppression de lignes

[HamoudaBA]

Bonjour
Afin de déterminer qui du personnel n'a pas envoyer son rapport de formation, je souhaite supprimer toutes les lignes de la feuilles "Base" contenant le Matricule saisie en feuille "Saisie" en colonne A.
Je vous remercie et navré si j'ai mal interprété ma requête.

 

[Efgé]

Bonjour HamoudaBA
Puisque tu as 2019, utilise des tableaux structurés.
Avec une formule tu vois les retours et tu peux filtrer.
Cordialement

 

[Lolote83]

Salut,
Peut être avec ce code

Sub SupLig()
    With Sheets("saisie")
        For Each xCell In .Range("A1:A21")
            On Error GoTo Suite
            xEquiv = Application.Match(xCell.Value, Sheets("base").Range("A:A"), 0)
            With Sheets("base")
                .Rows(xEquiv & ":" & xEquiv).Delete Shift:=xlUp
            End With
Suite:
        Next xCell
    End With
End Sub

En espérant avoir bien compris la consigne
@+ Lolote83

 

[pierrejean]

Bonjour HamoudaBA

Salut à tous

Un essai

 

[Staple1600]

Bonsoir le fil,


Lolote83
[Juste pour infos]
Pourquoi pas simplement? 🙂

Sub SupLig()
    With Sheets("saisie")
        For Each xCell In .Range("A1:A21")
            On Error GoTo Suite
            xEquiv = Application.Match(xCell.Value, Sheets("base").Range("A:A"), 0)
            Sheets("base").Rows(xEquiv).Delete Shift:=xlUp
Suite:
        Next xCell
    End With
End Sub

[/Juste pour infos]

 

[mapomme]

Bonsoir à tous,

La base est mise à jour quand on active la feuille "Base".

Private Sub Worksheet_Activate()
Dim t, dico As New Dictionary, elem, i&, j&, n&
  t = Feuil2.Range("a1").CurrentRegion.Value
  If IsEmpty(t) Then MsgBox 0 & " ligne supprimée", vbInformation: Exit Sub
  If Not IsArray(t) Then ReDim t(1 To 1, 1 To 1): t(1, 1) = Feuil2.Range("a1").Value
  If UBound(t) > 0 Then For Each elem In t: dico(CStr(elem)) = "": Next
  t = Range("a1").CurrentRegion.Value: n = 1
  For i = 2 To UBound(t)
    If Not dico.Exists(CStr(t(i, 1))) Then
      n = n + 1
      For j = 1 To UBound(t, 2): t(n, j) = t(i, j): Next
    End If
  Next i
  Application.ScreenUpdating = False
  Range("a1").CurrentRegion.Clear
  Range("a1").Resize(n, UBound(t, 2)) = t
  MsgBox (UBound(t) - n) & " lignes supprimée(s)", vbInformation
End Sub

 

[HamoudaBA]

Bonsoir le Fil,
Je ne sais comment vous remercier d'avoir pris la peine de résoudre ma requête.
Un grand Merci à vous tous.
Vos résultats me vont bien et surtout celles de pierrejean et mapomme.