Discussion :

[emore]

Bonjour,

J'ai besoin d'aide svp pour faire cette opération sans doute simple pour les experts que vous êtes.
De mon côté je peux uniquement faire des macros simples à partir de l'enregistreur, ou éventuellement modifier des macros existantes si je fouine bien car j'ai de bonnes notions d'algorithmie.
Mais pas plus.


J'ai 2 colonnes (A, B), comme ci-dessous.





Et une liste finie contenant des quadrigrammes. Ex:
PARI
MARS
TLSE
BRDX

Je souhaiterais une macro permettant de supprimer toutes les lignes dont le code en colonne B est présent dans la liste. Avec résultat dans un nouvel onglet, pour conserver les données sources.

Dans l'exemple, seuls les lignes avec Lyon et Vincennes seraient conservées.

Merci pour votre aide et je reste dispo si besoin de préciser.

[BENNASR]

Bonjour

Je souhaiterais une macro permettant de supprimer toutes les lignes dont le code en colonne B est présent dans la liste. Avec résultat dans un nouvel onglet, pour conserver les données sources.

tu veux supprimer ou conserver les données ??
En tt cas : Le plus simple et avec zéro codage est PowerQuery : Il suffit de mettre tes données sous forme de tableau structuré ; tu démarre PowerQuery et tu fais le filtre et tu télécharge les données.... C'est vivement recommandé de passer par PowerQuery
Si pour une raison que j'ignore tu insiste sur VBA , tu peux tester ça:
une réponse inspirée de la réponse du GRAND boisgontierjacques dans cette discussion

https://www.developpez.net/forums/d2...multicolonnes/

Structure :
1- Un onglet nommé "base" : par la base des données
2- un onglet nommé "liste" pour saisir la liste à éliminer du copillage
3- un onglet nommé "RESULTAT" pour recevoir les données filtrées inverse à la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub FiltreListe()
Dim f1 As Worksheet
Dim f2 As Worksheet
Dim derlig As Long
Application.ScreenUpdating = False
  Set f1 = Sheets("base")
  Set f2 = Sheets("liste")
  Set F3 = Sheets("RESULTAT")
  F3.Cells.ClearContents
   derlig = f2.Cells(Rows.Count, 1).End(xlUp).Row
   lig = f1.Cells(Rows.Count, 1).End(xlUp).Row
   If f1.FilterMode = True Then f1.ShowAllData
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  Dim liste As New Collection
   Dim i As Integer
   On Error Resume Next
   For Each cel In f2.Range("A2:A" & f2.Cells(Rows.Count, 1).End(xlUp).Row)
    liste.Add cel.Text, CStr(cel.Text)
   Next cel
 
  For Each c In liste: d(c) = "": Next c
 
  Set d2 = CreateObject("scripting.dictionary")
  d2.CompareMode = vbTextCompare
  For Each c In f1.Range("B2:B" & f1.[B65000].End(xlUp).Row)
   If Not d.exists(c.Value) Then d2(c.Value) = ""
  Next c
 
  f1.Range(f1.Cells(1, 1), f1.Cells(lig, 2)).AutoFilter Field:=2, Criteria1:=d2.keys, Operator:=xlFilterValues
  f1.Range("A1:B" & lig).SpecialCells(xlCellTypeVisible).Copy Destination:=F3.Range("A1")
  f1.ShowAllData
 Application.ScreenUpdating = True
End Sub

[emore]

merci pour ta réponse.

Je ne connaissais pas power query. Je me renseigne de ce pas

Et je regarde en détail le code que tu as proposé.

Je reviens vers toi ensuite

[BENNASR]

Powerquery en vidéo

[emore]

Bon, après essai, le code VBA me convient parfaitement
Je l'ai un poil bricolé pour adapter à mes données, mais c'est nickel. Merci beaucoup !

Pour power query, je vais creuser un peu, merci pour la démo que tu as postée

Bonne soirée