1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Sub CommandButton19_Click()
Dim TotalVar As Long
Worksheets("Sommaire").Range("D6").Select
With ActiveCell
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = WorksheetFunction.SumIf(Worksheets("Données").Columns("C"), "=" & Worksheets("Sommaire").Range("A7"), Worksheets("Données").Columns("F"))
.Offset(2, 0).Range("A1").Select
ActiveCell.Value = WorksheetFunction.SumIf(Worksheets("Données").Columns("C"), "=" & Worksheets("Sommaire").Range("A8"), Worksheets("Données").Columns("F"))
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveCell.Value = WorksheetFunction.SumIf(Worksheets("Données").Columns("C"), "=" & Worksheets("Sommaire").Range("A7"), Worksheets("Données").Columns("G"))
TotalVar = .Value
End With
End Sub |