XL 2010 Macro pour Comparaison 2 colonnes

zoubir15

XLDnaute Junior
Bonjour à tous,

Je veux comparer la colonne A avec B le résultat sera dans C, D et E. C :S'il trouve les donnés du B dans A les extraie dans la ligne C. D: Extraies les données qui sont dans A est pas dans B. E: Extraies les donnés qui sont dans B et non dans A.

Merci d'avance
 

Pièces jointes

  • comparaison.xlsx
    11.2 KB · Affichages: 63

Dranreb

XLDnaute Barbatruc
Comme ça si j'ai bien compris :
VB:
Option Explicit

Sub ComparerListes()
Dim TSrcA(), TSrcB(), L&, TRés(1 To 1000, 1 To 3), TL(1 To 3) As Long, Élément As SsGroup, Où As Long, Détail
TSrcA = Feuil1.[A2].Resize(Feuil1.[A1000000].End(xlUp).Row - 1).Value
TSrcB = Feuil1.[B2].Resize(Feuil1.[B1000000].End(xlUp).Row - 1).Value
For L = 1 To UBound(TSrcA, 1): TSrcA(L, 1) = Replace(TSrcA(L, 1), " ", ""): Next L
For L = 1 To UBound(TSrcB, 1): TSrcB(L, 1) = Replace(TSrcB(L, 1), " ", ""): Next L
Feuil1.[A2].Resize(UBound(TSrcA, 1)).Value = TSrcA
Feuil1.[B2].Resize(UBound(TSrcB, 1)).Value = TSrcB
For Each Élément In GroupOrg(TableUnique(TSrcA, TSrcB), 1)
  Où = 0
  For Each Détail In Élément.Contenu
     Où = Où Or 2 ^ Détail(0): Next Détail
  Où = Choose(Où, 2, 3, 1)
  TL(Où) = TL(Où) + 1: TRés(TL(Où), Où) = Élément.Id
  Next Élément
Feuil1.[C2:E1001].Value = TRés
End Sub
 

zoubir15

XLDnaute Junior
Je pense qu'il est protégé

upload_2016-9-22_11-49-51.png
 

Discussions similaires

Réponses
8
Affichages
466
Réponses
6
Affichages
696

Membres actuellement en ligne

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant