Gestion des doublons Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
pilou21
Membre habitué
Membre habitué
Messages : 98
Inscrit le : 18 juin 2016
Version d'Excel : 2016

Message par pilou21 » 1 septembre 2019, 18:24

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 :) :)
aide.xlsx
(9.86 Kio) Téléchargé 3 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'843
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 1 septembre 2019, 18:37

Bonjour

Sur l'exemple de 15 lignes que tu as donné, peux-tu donner le résultat attendu ?
Bye !
p
pilou21
Membre habitué
Membre habitué
Messages : 98
Inscrit le : 18 juin 2016
Version d'Excel : 2016

Message par pilou21 » 1 septembre 2019, 18:40

oui bien sur merci de ton aide. En jaune le résultat
aide.xlsx
(10.24 Kio) Téléchargé 5 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'843
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 1 septembre 2019, 23:06

Un essai à tester.
Je n'ai pas le même résultat que toi.
Cela te convient-il ?
Bye !
aide v1.xlsm
(26.28 Kio) Téléchargé 6 fois
1 membre du forum aime ce message.
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 2 septembre 2019, 07:32

Bonjour,

Et moi, je trouve un résultat différent des deux votre :scritch: :
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
1 membre du forum aime ce message.
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
p
pilou21
Membre habitué
Membre habitué
Messages : 98
Inscrit le : 18 juin 2016
Version d'Excel : 2016

Message par pilou21 » 2 septembre 2019, 21:36

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Gestion de doublons
    par TomRL » 21 juin 2018, 11:51 » dans Excel - VBA
    4 Réponses
    167 Vues
    Dernier message par TomRL
    25 juin 2018, 18:03
  • Gestion des doublons
    par kenny972 » 22 septembre 2016, 11:39 » dans Excel - VBA
    12 Réponses
    273 Vues
    Dernier message par kenny972
    22 septembre 2016, 19:23
  • Gestion des doublons
    par Chouspy » 15 avril 2015, 10:00 » dans Excel - VBA
    5 Réponses
    267 Vues
    Dernier message par Klin89
    15 avril 2015, 18:56
  • gestion des doublons
    par Letikeur » 9 mai 2016, 11:21 » dans Excel - VBA
    2 Réponses
    161 Vues
    Dernier message par Letikeur
    9 mai 2016, 12:01
  • Gestion des doublons
    par jpsept » 16 septembre 2014, 17:41 » dans Excel - VBA
    1 Réponses
    262 Vues
    Dernier message par Banzai64
    16 septembre 2014, 18:11
  • Gestion des doublons VBA
    par Prypry » 13 octobre 2015, 12:16 » dans Excel - VBA
    6 Réponses
    294 Vues
    Dernier message par Prypry
    13 octobre 2015, 17:11