Discussion :

[sab_info]

Bonsoir,

Je souhaite faire une colonne 'Total ' qui me somme les valeurs d'un ensemble de colonnes
*
exemple

col1 col2 col3 total
10 10 2 22
5 3 1 9
.
.
.
etc

Sachant que le nombre de ligne peut varier il n'est pas fixe

Pouvez vous me donner une idée sur comment je dois procéder ?

Merci

[gFZT82]

Bonjour,

Un exemple en utilisant la méthode Sum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Totaliser()
Dim ColTotal As Integer
Dim DerLig As Long
Dim Plage As Range, Cel As Range
    With Worksheets("Feuil1")
        ColTotal = .Cells(1, Columns.Count).End(xlToLeft).Column
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range(.Cells(2, ColTotal), .Cells(DerLig, ColTotal))
        Plage.ClearContents
        For Each Cel In Plage
            Cel = Application.Sum(Cel.Offset(0, 1 - ColTotal).Resize(, ColTotal - 1))
        Next Cel
        Set Plage = Nothing
    End With
End Sub

Cordialement.