Spiekermayo
XLDnaute Nouveau
Bonjour,
Je bloque sur une somme de cellule.
Je donne un exemple:
Colonne A: Task ID
Colonne B: Parent ID
Colonne C: Prix
Si Task ID = Parent ID alors on somme les Prix des Parent ID en colonne C sur la meme ligne que le Task ID identique.
Actuellement la macro ci-dessous ne me remonte que la valeur Prix de la derniere equivalence trouvee en Task ID et Parent ID.
Je n'arrive pas a lui dire de me faire la somme de toutes les equivalences trouvees.
Sub SumPV()
Dim i As Integer
Dim j As Integer
Dim derlig As Long
derlig = Range("A65536").End(xlUp).row
For i = 3 To derlig
For j = 3 To derlig
If Worksheets(1).Cells(i, 1) = Worksheets(1).Cells(j, 2) Then
Worksheets(1).Cells(i, 3) = Application.Sum.Worksheets(1).Cells(j, 3) )
End If
Next j
Next i
End Sub
Si vous avez une idee,
Merci et bonne journee
Je bloque sur une somme de cellule.
Je donne un exemple:
Colonne A: Task ID
Colonne B: Parent ID
Colonne C: Prix
Si Task ID = Parent ID alors on somme les Prix des Parent ID en colonne C sur la meme ligne que le Task ID identique.
Actuellement la macro ci-dessous ne me remonte que la valeur Prix de la derniere equivalence trouvee en Task ID et Parent ID.
Je n'arrive pas a lui dire de me faire la somme de toutes les equivalences trouvees.
Sub SumPV()
Dim i As Integer
Dim j As Integer
Dim derlig As Long
derlig = Range("A65536").End(xlUp).row
For i = 3 To derlig
For j = 3 To derlig
If Worksheets(1).Cells(i, 1) = Worksheets(1).Cells(j, 2) Then
Worksheets(1).Cells(i, 3) = Application.Sum.Worksheets(1).Cells(j, 3) )
End If
Next j
Next i
End Sub
Si vous avez une idee,
Merci et bonne journee