Re : inserer une ligne automatique de Total
Bonjour,
voici une macro qui le fait
Colonne 2 = numéro de piece
col 5 = debi
col 6 = crédit
Sub ST()
lig = 2 ' numéro de la première ligne détail
Numprec = Cells(lig, 2) ' stockage 1 n0 de piece
cumul = 0
Do
If Cells(lig, 2) <> Numprec Then ' changement de n° de piece
Rows(lig).Insert Shift:=xlDown ' ligne total
Cells(lig, 2) = "Total " & Numprec
Cells(lig, 6) = cumul
cumul = 0
Numprec = Cells(lig + 1, 2)
lig = lig + 1
If Cells(lig, 2) = "" Then Exit Do
End If
cumul = cumul + Cells(lig, 5) ' cumul debit
lig = lig + 1
Loop
End Sub
Bon courage
PS : pour ajouter la macro : ouvrir l'interface Visual Basic ( ALT+F8) , donner un nom et faire créer. puis copier la macro ci-dessus