Microsoft 365 Supprimer une valeur si doublons

sabben · 12 Juin 2019

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 · 12 Juin 2019

Bonjour

avec ce code à mettre dans un module standard

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

VB:

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

Microsoft 365 Supprimer une valeur si doublons

sabben

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

Discussions similaires