Bonjour,

Je cherche à supprimer une ligne à partir d'une valeur qui peut se trouver n'importe où dans mon tableau.

J'ai un code me permettant de supprimer ce qui se trouve en colonne A uniquement

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub supLignes()
  Application.ScreenUpdating = False
  Set Dico = CreateObject("Scripting.Dictionary")
  For Each c In Sheets("trie").[A1].CurrentRegion:  Dico(c.Text) = "":  Next c
  J = 1
  Set f = Sheets("Base de donnée")
  Do While f.Cells(J, 1) <> ""
    If Dico.Exists(Left(f.Cells(J, 1), 5)) Then f.Rows(J).Delete Else J = J + 1
  Loop
End Sub
Je ne vois pas trop comment faire pour elargir le champs de recherche.

Quelqu'un aurais une idée?

Merci d'avance.

Isa