Bonjour,

J'ai ce macro qui me permet de faire la somme des colonnes Montant1 et Montant2, et une petite mise en forme.

Je suis preneur pour des idées afin de le rendre plus propre.

Merci d'avance
Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SommeDebCred()
Dim DernLigne As Long, MaPlage1 As Range, MaPlage2 As Range
 
    DernLigne = Range("A1048576").End(xlUp).Row
    Set MaPlage1 = Range("F5:F" & DernLigne)
    Set MaPlage2 = Range("G5:G" & DernLigne)
    Range("A" & DernLigne + 1).Select
    ActiveCell = "TOTAL"
    ActiveCell.Font.Bold = True
    ActiveCell.HorizontalAlignment = xlCenter
    ActiveCell.Offset(0, 5) = Application.WorksheetFunction.Sum(MaPlage1)
    ActiveCell.Offset(0, 5).Font.Bold = True
    ActiveCell.Offset(0, 5).NumberFormat = "#,##0"
    ActiveCell.Offset(0, 6) = Application.WorksheetFunction.Sum(MaPlage2)
    ActiveCell.Offset(0, 6).Font.Bold = True
    ActiveCell.Offset(0, 6).NumberFormat = "#,##0"
    ActiveSheet.Range("A" & DernLigne + 1, "D" & DernLigne + 1).MergeCells = True 'Fusion de la ligne Total de A à D
 
End Sub