Somme selon cellules visibles après un filtre

[marida]

Bonjour,

je souhaite calculer la somme des cellules visibles après un filtre, dès que j'insère une condition supplémentaire, j'ai un résultat de 0.

voir PJ.

merci;

 

[piga25]

Re : Somme selon cellules visibles après un filtre

Bonjour,

Un essai avec ceci :

=SOUS.TOTAL(9;F$2:F$27)

Ne prend pas en compte les valeurs des cellules masquées;

 

[marida]

Re : Somme selon cellules visibles après un filtre

merci Piga25 mais cela ne fonctionne pas quand je l'insère dans la macro, et j'ai besoin qu'elle prenne en compte en plus des résultats de la colonne F

 

[R@chid]

Re : Somme selon cellules visibles après un filtre

Bonjour @ tous,
Salut piga25,
Tu peux nous préciser la condition supplémentaire???
Amicalement

 

[Dull]

Re : Somme selon cellules visibles après un filtre

Salutmarida, Patrick, R@chid, le Fil

Peut-être comme cela

Sub sommemoyenne()

Dim somme As Double
Dim plage As Range
Dim Cel As Range
somme = 0
With Worksheets(1)
.[$A$1:$BE$65000].AutoFilter Field:=2, Criteria1:="Saint Jean*"
Set MaPlage = .Range("F2:F" & .Cells(Application.Rows.Count, 6).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
End With
For Each Cel In MaPlage
If Worksheets(1).Cells(Cel.Row, 3).Value Like "*08/02/2012" Then
somme = somme + 1
End If
Next
Worksheets(1).Cells(29, 7).Value = somme
End Sub

Bonne Journée

 

[marida]

Re : Somme selon cellules visibles après un filtre

Merci Dull ça fonctionne