bonsoir et merci laurentTBT
C'est bon pour la police rouge et gras j'avais solutionné;
cependant
les deux lignes que vs m'avez donné ci dessous;
cell.Cells(0, 2).FormulaR1C1 = "=SUMIF(C[-1],R[-1]C[-1],C)"
cell.cells(0,2).font.colorindex=3
conviennent parfaitement
mais comme la macro insère une ligne que entre chaques articles différents il est evident que la dernière catégories n'est pas prise en compte
j'ai donc essaye de rajouter une ligne en dernière position
Rows(Range("b1").End(xlDown).Row + 1).Select
Selection.Insert Shift:=xlDown
et d'y incorporer vos deux lignes
cell.Cells(0, 2).FormulaR1C1 = "=SUMIF(C[-1],R[-1]C[-1],C)"
cell.cells(0,2).font.colorindex=3
pour obtenir un resultat similaire aux autres categories.
mais résultat est nul
j'ai re joint un petit fichier
merci d'avance et bon Dim as anche
Evelynetfrancois
Sub separer()
Dim cell As Range
Dim depart As String
Application.ScreenUpdating = False
'Rows(Range("b2").End(xlDown).Row + 1).Select
' Selection.Insert Shift:=xlDown
'cell.Cells(0, 2).FormulaR1C1 = "=SUMIF(C[-1],R[-1]C[-1],C)"
'cell.Cells(0, 2).Font.ColorIndex = 3
depart = Range("b2").Value
For Each cell In Range("b2", Range("b65536").End(xlUp))
If Not cell.Value = depart Then
Rows(cell.Row).Insert Shift:=xlDown
cell.Cells(0, 2).FormulaR1C1 = "=SUMIF(C[-1],R[-1]C[-1],C)"
With cell.Cells(0, 2).Font
.ColorIndex = 3
.Bold = True
End With
depart = cell.Value
End If
Next
End Sub