XL 2010 Macro pour Comparaison 2 colonnes

[zoubir15]

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

 

[Dranreb]

Voyez si ça convient.

 

[zoubir15]

Bonjour,
Merci Draneb pour ta réponse. Je veux ajouter que la colonne A supprime automatiquement les espaces.

Merci,

 

[Dranreb]

Bonjour.
Je ne comprends pas. Quels espaces ?

 

[zoubir15]

Bonjour l'espace des donnes un exmple parfois lorsque on fais des copies colles il y'a des espace A AA donc ça sera mieu de les supprimer.

Merci

 

[Dranreb]

Comme ça si j'ai bien compris :

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]

Merci,

Normalment, car je ne connais rien dans les macros en plus est ce que tu peux les ajouter dans le fichier excel pour le tester
Merci

 

[Dranreb]

Vous pouvez quand même bien remplacer vous même tout le code contenu dans Module1 par celui ci, non ?

 

[zoubir15]

Je pense qu'il est protégé

 

[Dranreb]

Vous êtes dans Feuil1, rubrique Microsoft Excel Objets, là, pas dans Module1. Cliquez deux fois sur Module1 dans l'explorateur de projet, rubrique Modules.

 

[zoubir15]

Merci Beaucoup ça marche bien.