Re : Regroupé les doublons d'une liste et incrémenter une valeur
me revoilàaprès quelques minutes d'essais.
Dranreb, j'ai adapté à mes colonnes et lancer la procèdure uniquement sur 20000 lignes pas à pas.
Mes colonnes sont les suivantes FICHIER/dESCRIPTIF/n°/Séquence/ressource/DPT/METIER/Date de début/Date de fin/Charge
A la ligne .Columns(16).FormulaR1C1 = "=AND(RC1=R[-1]C1,RC2=R[-1]C2,RC3=R[-1]C3,RC4=R[-1]C4)" , j'ai le message d'erreur suivant Erreur d'excution 1004.
Je t'envoie le code que j'ai adapté, où est l'erreur stp. Toi avec ton eil de lynx!!!! Il faut adapter les formules c'est cela? Sachant sue mes doublons sont toujours portés par sur un m projet pr une m séquence pr une m personne et pr une m date de début, faire le cumul de la charge si doublons identifiés et supprimer les lignes inutiles....bref l'éternel même refrain!!
Sub SuppressionDesDoublons()
With Feuil1.Rows(2).Resize(Feuil1.Cells(Feuil1.Rows.Count, 1).End(xlUp).Row - 1)
.Sort Key1:=.Columns(5), Order1:=xlAscending, Key2:=.Columns(8), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
.Sort Key1:=.Columns(1), Order1:=xlAscending, Key2:=.Columns(4), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
.Columns(16).FormulaR1C1 = "=AND(RC1=R[-1]C1,RC2=R[-1]C2,RC3=R[-1]C3,RC4=R[-1]C4)"
.Columns(15).FormulaR1C1 = "=RC7+IF(R[1]C10,R[1]C9,0)"
.Columns(14).FormulaR1C1 = "=IF(RC10,""Suppr"",RC9)"
.Columns(13).Value = .Columns(8).Value
.Columns(13).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End With
Feuil1.[K
].Delete
End Sub
merci infiniment de votre aide et soutien