doublons

Re ben et le forum,

Es-tu certain que tu ne lances pas l'ancienne version de la macro (celle contenue dans le message de 09h47) ? Je viens de faire un test avec cette version et le résultat obtenu (voir ci-dessous) ressemble furieusement à celui que tu décris...

6c 104 1
2
6c 104 3

6c 104


Slts

wally

oui wally je viens de refaire un test avec ceci :

6c 104 12
6c 104 12
6c 106 15


cela donne :

6c 104 12
15
6c 106


il y a un décalage d'une ligne on dirrai

Bonjour ben et le forum,

Je ne sais pas trop ce qui s'est passé hier, mais apparemment les différents *.zip ne contenaient pas la bonne version du code... Quoi qu'il en soit et si cela t'intéresse toujours, voici le code tel qu'il aurait dû figurer :

Sub Supprimer_Doublons()

Dim oRge As Range
Dim cRge As New Collection

On Error GoTo Doublon
For Each oRge In ActiveSheet.Range("C1:C" & ActiveSheet.Range("C65536").End(xlUp).Row)
If Not IsEmpty(oRge) Then
cRge.Add oRge.Value, CStr(oRge.Value)
End If
Next oRge
On Error GoTo 0

Exit Sub

Doublon:
oRge.Offset(0, -2).Clear
oRge.Offset(0, -1).Clear
oRge.Clear
Resume Next

End Sub


Slts

wally

ok wally merci pour ta réponse je vais la tester et je te redis si il y a un pb.
J'ai qd même pu faire avec la macro de michel mais j'avoue que je comprends mieu la tienne lol

Merci à vous 2 encore