Discussion :

[FIMO7]

Bonjour à tous,

Je voudrai faire une macro sous EXCEL 2010 qui me compare 2 colonnes (A et B), et si une valeur apparait dans les 2 colonnes donc en doublon et quelque soit la ligne, les cases des valeurs seront coloriés en rouge par exemple.

Ensuite, il faudrait que les doublons de la colonne A soient déplacés en face de ceux de la même valeur de la colonne B.

Si quelqu'un a une idée, elle me sera d'un grand secours !

Merci beaucoup,

FIMO7

[mercatog]

Bonjour
Ici une macro test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test()
Dim LastLig As Long, i As Long
Dim c As Range
Dim Tmp As String
 
Application.ScreenUpdating = False
With Sheets("Feuil1") 'à adapter
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 1 To LastLig
        Set c = .Range("A1:A" & LastLig).Find(.Range("B" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            If i <> c.Row Then
                Tmp = .Range("A" & i).Value
                .Range("A" & i).Value = c.Value
                c.Value = Tmp
            End If
            Set c = Nothing
        End If
    Next i
End With
End Sub