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 pourquoic'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
Partager