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
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