Bonjour à tous,
Je rencontre un problème avec mon fichier. En effet, je cherche à supprimer les doublons et à additionner les valeurs correspondantes. J'ai écrit mon code comme suit :
Petit hic : en faisant quelques essais, j'ai remarqué que le code marchait très bien sans la partie de tri des valeurs :
Il faut donc que je passe par le tri manuel des valeurs. Je voudrais éviter cette manipulation car je compte utiliser ce code pour un tableau beaucoup plus important.
Pouvez-vous me dire ce qui cloche s'il vous plaît ?
Merci d'avance
Je rencontre un problème avec mon fichier. En effet, je cherche à supprimer les doublons et à additionner les valeurs correspondantes. J'ai écrit mon code comme suit :
Code:
Sub supDoublonsTotal()
With Sheets("Feuil2")
Dim L_fin As Integer
L_fin = Range("A65536").End(xlUp).Row
ligne = 1
Range(Cells(1, 1), Cells(L_fin, 1)).Sort Key1:=Cells(L_fin, 1), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Do While Cells(ligne, 1) <> ""
If Cells(ligne, 1) = Cells(ligne + 1, 1) Then
Cells(ligne, 2) = Cells(ligne, 2) + Cells(ligne + 1, 2)
Rows(ligne + 1).Delete
Else
ligne = ligne + 1
End If
Loop
End With
End Sub
Petit hic : en faisant quelques essais, j'ai remarqué que le code marchait très bien sans la partie de tri des valeurs :
Code:
Range(Cells(1, 1), Cells(L_fin, 1)).Sort Key1:=Cells(L_fin, 1), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Il faut donc que je passe par le tri manuel des valeurs. Je voudrais éviter cette manipulation car je compte utiliser ce code pour un tableau beaucoup plus important.
Pouvez-vous me dire ce qui cloche s'il vous plaît ?
Merci d'avance