Filtrer ce qui manque entre deux liste

[TheProdigy]

Bonjour à tous,

Je voudrais bien poser une question trés importante pour moi et pour tous les membres du forum à qui je dois beucoup de remerciments et qui me semble être déjà posée.
J'ai cherché mais je n'ai trouvé que les doublons.
Mon problème est comment Filtrer ce qui se trouve dans la colonne A est non pas dans B.
Je suis ouvert aussi bien pour les formules que pour le VBA.

Merci infiniment

 

[skoobi]

Re : Filtrer ce qui manque entre deux liste

Bonjour,

une solution par macro:

Sub essai()
Dim cellule As Range
Dim trouve As Range
Columns("F:F").ClearContents
For Each cellule In Range([A1], [A1].End(xlDown))
   Set trouve = Range([B1], [B1].End(xlDown)).Find(cellule.Value, LookIn:=xlValues)
   If trouve Is Nothing Then
      [F65536].End(xlUp).Offset(1, 0).Value = cellule.Value
   End If
Next
End Sub

En ligne 1 tu pourras mettre un titre.

 

[TheProdigy]

Re : Filtrer ce qui manque entre deux liste

Super skoobi et merci infiniment!

VBA = Magie

Je dois m'investir beaucoup pour avoir la baguette magique 🙂

 

[TheProdigy]

Re : Filtrer ce qui manque entre deux liste

esc-ce que je peux comprendre ce que signifie

LookIn:=xlValues

Le code suivant m'est complétement incompréhensible quelqu'un pourrait m'expliquer explicitment?

Merci

 

[TheProdigy]

Re : Filtrer ce qui manque entre deux liste

Est-ce que je peux comprendre ce que signifie

LookIn:=xlValues

Le code suivant m'est complétement incompréhensible

Set trouve = Range([B1], [B1].End(xlDown)).Find(cellule.Value, LookIn:=xlValues

quelqu'un pourrait m'expliquer explicitment?

Merci

 

[skoobi]

Re : Filtrer ce qui manque entre deux liste

Re,
la cellule est recherchée de la plage B1... à la dernière ligne non vide de la colonne B qui sera affectée à la variable trouve.
Pour connaître la synthaxe de "Find", appuie sur F1 après l'avoir sélectionné.
Find correspond à la recherche (Ctrl+F) d'Excel.

 

[TheProdigy]

Re : Filtrer ce qui manque entre deux liste

Merci Skoobi

Apparemment il y a un problème dans ta macro car les deux chiffres 2828620,67 & 1254545454 s'affichent même s'ils sont en double pourquoi?

Merci

 

[TheProdigy]

Re : Filtrer ce qui manque entre deux liste

Oups Désolé j'ai oublié le fichier

 

[skoobi]

Re : Filtrer ce qui manque entre deux liste

Re bonjour,

essaye avec cette modification:

Sub essai()
Dim cellule As Range
Dim trouve As Range
Columns("F:F").ClearContents
For Each cellule In Range([A1], [A1].End(xlDown))
   Set trouve = Range([B1], [B1].End(xlDown)).Find(cellule.Value, [COLOR=Blue][B]LookIn:=xlFormulas, lookat:=xlWhole[/B][/COLOR])
   If trouve Is Nothing Then
      [F65536].End(xlUp).Offset(1, 0).Value = cellule.Value
   End If
Next
End Sub

J'ai testé, ça devrait marcher.

 

[TheProdigy]

Re : Filtrer ce qui manque entre deux liste

Exactement ce que je cherchai.

Merci infiniment.