XL 2016 Debogage VBA

[zoubir15]

bonjour,

J'ai une deboge dans le fichier je ne sais pas avant il fonctionné bien

Merci d'avance

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.[A10000000].End(xlUp).Row - 1).Value
TSrcB = Feuil1.[B2].Resize(Feuil1.[B10000000].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

 

[zoubir15]

Merci @cp4

C'est formidable.

Mes salutations.

 

[cp4]

Merci @cp4

C'est formidable.

Mes salutations.

@zoubir15 : Content que tu aies trouvé ton bonheur. Pour faciliter la recherche aux autres membres merci de pointer le message donnant la solution (à droite du message: flèche haut ou bas).
Bon week-end.