XL 2010 Macro pour Comparaison 2 colonnes

Dranreb

XLDnaute Barbatruc

• 22 Septembre 2016

• #2

Voyez si ça convient.

 

Pièces jointes

• GrpOrgZoubir15.xlsm

  67.2 KB · Affichages: 52

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 22 Septembre 2016

• #3

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

Merci,

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Septembre 2016

• #4

Bonjour.
Je ne comprends pas. Quels espaces ?

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 22 Septembre 2016

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Septembre 2016

• #6

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

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 22 Septembre 2016

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Septembre 2016

• #8

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

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 22 Septembre 2016

• #9

Je pense qu'il est protégé

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Septembre 2016

• #10

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

 

Vote positif 0 Vote négatif

Z

zoubir15

XLDnaute Junior

• 22 Septembre 2016

• #11

Merci Beaucoup ça marche bien.

 

Vote positif 0 Vote négatif