Re: comparaison et addition sans doublons
re
bon encore merci Celeda, c'est toi qui m'a permis de debogger ce foutu vba grace a la solution d'additionner les 10 feuilles sur une seule
et voila le code pour ceux qui le voudrait, il n'est peut etre pas tres "pro" mais il marche tres bien sur une feuille de 2000+ lignes
voila a adapter suivant les besoins
.
Windows("TOTAL.xls").Activate
nligne = 2
nlignerecap = 2
compteur = 0
ligneinit = 1
Do
Sheets("TOTAL").Select
If (Range("C" & nligne).Value) <> (Range("C" & ligneinit).Value) Then
If compteur = 0 Then
Rows(nligne).Select
Selection.Copy
Sheets("RECAPTOTAL").Select
Rows(nlignerecap).Select
ActiveSheet.Paste
ligneinit = nligne
Else
compteur = compteur + 1
End If
Else
If (Range("C" & nligne).Value) <> (Range("C" & (nligne + 1)).Value) Then
Sheets("RECAPTOTAL").Select
Range("F" & nlignerecap).Select
ActiveCell.FormulaR1C1 = "=SUM(TOTAL!R" & ligneinit & "C6:R" & nligne & "C6)"
Range("G" & nlignerecap).Select
ActiveCell.FormulaR1C1 = "=SUM(TOTAL!R" & ligneinit & "C7:R" & nligne & "C7)"
Range("H" & nlignerecap).Select
ActiveCell.FormulaR1C1 = "=SUM(TOTAL!R" & ligneinit & "C8:R" & nligne & "C8)"
Range("J" & nlignerecap).Select
ActiveCell.FormulaR1C1 = "=SUM(TOTAL!R" & ligneinit & "C10:R" & nligne & "C10)"
nlignerecap = nlignerecap + 1
ligneinit = nligne
compteur = 0
End If
End If
nligne = nligne + 1
Loop Until IsEmpty(ActiveCell)
that's all