Bonjour,
J'ai trouvé cette macro pour identifier des doublons de 2 onglets que j'ai réuni sur un seul (sheet1).
Sub doub()
Dim Plage As Range, Cell As Range
Dim Ligne As Integer, i As Integer, k As Integer
Dim Tableau() As Variant
i = 1
With Sheets("sheet1")
Ligne = .Range("a65536").End(xlUp).Row
Set Plage = .Range("a1:a" & Ligne)
ReDim Tableau(1 To Ligne, 1 To 3)
For Each Cell In Plage
If Application.CountIf(Sheets("sheet1").Range("e:e"), Cell) > 0 Then
k = Application.CountIf(.Range("a1:a" & Ligne), Cell)
Tableau(i, 1) = Cell
Tableau(i, 2) = k
i = i + 1
End If
Next Cell
End With
'Copie du tableau
Sheets("sheet2").Range("A2:a" & Ligne) = Tableau
End Sub
Je ne parviens pas à ajouter deux colonnes d'informations supplémentaires à droite.
quelqu'un pourrait il m'aider?
merci
ed
