Je cherche la solution au problème suivant
comment sur une plage filtrée en VBA sommer des colonnes
prédeterminées
en ajoutant les formules à la fin de la plage filtrée?
Exemple
plage= A1:E200
filtre effectué
la dernière ligne du filtre A14
comment introduire la formule sans effacer les données masquer?
Voici ou j'en suis
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows,
SearchDirection:=xlPrevious).Row
X = LastRow + 1
End If
Cells(X, 3) = Application.WorksheetFunction.Sum(Range("C2", Range("C"
& X)))
Cells(X, 2) = Application.WorksheetFunction.Sum(Range("B2", Range("B"
& X)))
End Sub
Ce qui fonctione sur une plage non filtrée
Sur une plage filtrée la totalité de la colonne est filtrée
