Bonjour,

J'ai un petit soucis au niveau de mon programme je pense, alors que je vous explique, je veux obtenir dans la colonne A les données sans doublons mais pour les doublons je veux que dans la colonne D on y ajoute la valeur de la cellule. lorsqu'il ya doublons rajouter la données du doublons de la colonne D dans la colonne D du 1er doublons et supprimer la ligne doublons.ca ca fonctionne mais ca me supprime aussi les lignes non doublons et je ne vous pas pourquoi c'est peut etre pas trés clair mais avec le fichier joint ca le sera un peu plus.

je vous remet le code aussi on sais jamais !

si vous avez une autre méthode ou que vous voyez pourquoi ca me donne pas ce que je souhaite je suis prennante !

bonne saint valentin à tous


exempledoublon.xlsm


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub sup()
 
Dim dp As Integer, dp2 As Integer
'supprimer les doublons dans id et rajout dans dependtgates
 
                            For dp2 = 1 To Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
                              For dp = 2 To Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row - 1
 
                                    If Worksheets("Feuil1").Cells(dp2, 1).Value = Worksheets("Feuil1").Cells(dp, 1).Value Then
 
                                      dependentgates = Worksheets("Feuil1").Cells(dp2, 5).Value
                                      dependentgates = dependentgates & "," & Worksheets("Feuil1").Cells(dp, 5).Value
                                      Worksheets("Feuil1").Cells(dp2, 5).Value = dependentgates
 
                                      Worksheets("Feuil1").Rows(dp).EntireRow.Delete
 
 
                                    End If
 
                                Next dp
 
                                Next dp2
 
End Sub