Gestion des doublons

Bonjour à tous,

besoin d 'aide pour gérer des doublons sur une colonne mais que je souhaiterai conserver si et seulement si la 3eme colonne est différente .j' espère être assez clair mais je joint un exemple dans le fichier .

par avance un grand merci

3aide.xlsx (9.86 Ko)

Bonjour

Sur l'exemple de 15 lignes que tu as donné, peux-tu donner le résultat attendu ?

Bye !

oui bien sur merci de ton aide. En jaune le résultat

6aide.xlsx (10.24 Ko)

Un essai à tester.

Je n'ai pas le même résultat que toi.

Cela te convient-il ?

Bye !

8aide-v1.xlsm (26.28 Ko)

Bonjour,

Et moi, je trouve un résultat différent des deux votre :

Sub Doublons()

    Dim Dico As Object
    Dim Cle As Variant
    Dim Plage As Range
    Dim Cel As Range
    Dim Tbl() As String
    Dim I As Long

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    ReDim Tbl(1 To Plage.Count)

    'concatène la cellule A avec la cellule C dans un tableau
    For Each Cel In Plage

        I = I + 1: Tbl(I) = Cel.Value & Cel.Offset(, 2).Value

    Next Cel

    Set Dico = CreateObject("Scripting.Dictionary")

    'valeur unique avec stockage du numéro de ligne
    For I = 1 To UBound(Tbl): Dico(Tbl(I)) = I: Next I

    I = 0

    'inscription des valeurs
    With Worksheets("Feuil2")

        For Each Cle In Dico.Keys

            J = J + 1
            .Cells(I, 1).Value = Plage(Dico(Cle)).Value
            .Cells(I, 2).Value = Plage(Dico(Cle), 2).Value
            .Cells(I, 3).Value = Plage(Dico(Cle), 3).Value

        Next Cle

    End With

End Sub

merci a tous les deux pour vos efforts je teste des que possible en situation reel merci encore je vais paufiner mais sa devrait aller un grand bravo a vous 2 et merci

Rechercher des sujets similaires à "gestion doublons"