Tri colonne

Bonjour

je dois trier 2 colonnes

A et B

dans la colonne C je souhaite que le comparatif se fasse de a vers b

en recopiant les codes exacts

et dans lla colonne D je souhaite que le comparatif se fasse de b vers a

en recopiant les codes exacts

dans la colonne C je souhaite que le comparatif se fasse de a vers b

en recopiant les codes qui ne se retrouvent pas

et dans lla colonne D je souhaite que le comparatif se fasse de b vers a

en recopiant les codes qui ne se retrouve pas

Bonjour

Pas trés clair... (Colonne D)

Cordialement

Bonjour à tous,

Tu dis le contraire entre ton message et l'explication dans le fichier !

Ce que j'ai compris, c'est d'afficher les communs aux 2 colonnes

Sub Compare()
Dim Lg%, i%, J As Byte
'Macros par Claude Dubois pour "carnac29" E-P le 03/05/10
        Application.ScreenUpdating = False
        Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        Range("c2:d" & Lg).ClearContents
    For J = 1 To 2
            If J = 1 Then Range("o1") = "=MATCH(p1,b:b,0)"
            If J = 2 Then Range("o1") = "=MATCH(p1,a:a,0)"
        For i = 1 To Lg
                Range("p1") = Cells(i, J)
            If Not IsError(Range("o1")) Then
                Cells(65000, J + 2).End(xlUp)(2) = Cells(i, J)
            End If
        Next i
            Range("o1:p1").ClearContents
    Next J
End Sub

Salut Amadéus

Amicalement

Claude