bonjour,
pour faire simple il vaut mieux commencer par trier.
La macro suivante recopie la sélection 5 colonnes plus à droite sans doublons.
Sub Test()
For Each o In Selection
o.Activate
v = o.Value '(récupération de chaque cellule)
If o.Value = o.Offset(1, 0).Value Then
MsgBox "Doublon ligne " & o.Row & " et " & (o.Row + 1)
Else
o.offset(0,5).Value = v '(copie du résultat)
End If
Next
End Sub
Bonne soirée et meilleurs voeux à tous !
Message édité par galopin01 le 31-12-2004 à 20:15:58