Microsoft 365 Supprimer une valeur si doublons

[sabben]

Bonjour
J'ai un problème relativement simple, sur un tableau j'ai 3 colonnes :

code	OR	NOM
400530​	19850874​	MAN GARANTIES
400531​	19850874​	MAN CER CONTRAT ENTRETIEN
400531​	19850881​	MAN CER CONTRAT ENTRETIEN
400531​	19850889​	MAN CER CONTRAT ENTRETIEN
400530​	19850894​	MAN GARANTIES
400530​	19850896​	MAN GARANTIES
400531​	19850909​	MAN CER CONTRAT ENTRETIEN
400530​	19850933​	MAN GARANTIES
400530​	19850939​	MAN GARANTIES
400531​	19850940​	MAN CER CONTRAT ENTRETIEN
400530​	19850940​	MAN GARANTIES
400530​	19850948​	MAN GARANTIES

Je voudrais simplement que si l'OR est unique on le laisse tel quel, et si j'ai un doublon de l'or c'est à dire 400530 et 400531 pour l'OR 19850940 par exemple, que j'ai toujours la valeur 400531, est-ce possible ?

Merci

 

[vgendron]

Bonjour

avec ce code à mettre dans un module standard

! suppose que le tablo est déjà trié sur la colonne OR

Sub SupDoublon()
Dim tablo() As Variant
With ActiveSheet
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    tablo = .Range("A2:C" & fin).Value
    For i = LBound(tablo, 1) To UBound(tablo, 1) - 1
        Code = tablo(i, 1)
        If tablo(i, 2) = tablo(i + 1, 2) Then
            tablo(i + 1, 1) = Code
        End If
    Next i
    .Range("A2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End With
End Sub