Discussion :

[guigui1976]

Bonjour,
J'ai un fichier ou j'applique un filtre élaboré dessus mais quand je le fais les calcul ( moyenne) des colonnes ne s'actualisent pas.
je suis obliger de la ressaisir.
Merci de votre aide.

exemple:

Code :

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

=sous.total(1;c23:c6500)

[sabzzz]

bonjour guigui1976,

soit il n'y a pas de doublon dans la plage, ou bien le calcul est sur manuel.

[guigui1976]

Bonjour, désolé du retard mais mon pc ma fait un coup de pompe.
Bref voici la macro utilisé pour faire le filtre elabore, je ne peux pas mettre le fichier car il est trop gros 10 mo.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub filtre_plage()
'
' filtre Macro
' Macro enregistrée le 30/01/2010 par Moi
 
    Range("d22:d6500").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("c1:d2"), Unique:=False
 
 
End Sub

[sabzzz]

bonjour guigui1976,

la fonction SOUS.TOTAL ne prend pas en compte les lignes masquées suite à un filtre élaboré. le sous-total ne porte que sur les données visibles résultant du filtre automatique.

soit tu utilise le filtre automatique(le nombre de critère est de 2 maximun)

Code :

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

Range("D22").AutoFilter Field:=1, Criteria1:="=" & Range("C3"), Operator:=xlOr, Criteria2:="=" & Range("C2")

soit tu ajoute une boucle à ta macro pour compter de nombre de ligne visible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub AppliquerAdvanceFiltre()
Dim a As Integer, b As Integer
Range("d22:d6500").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("c1:d2"), Unique:=False
   For Each c In Range("c22:c6500")
  If Rows(c.Row).Hidden = False Then
     a = a + 1
     b = b + Range(c.Address)
    End If
  Next
 Range("H1") = b / a
End Sub

[guigui1976]

Je vais tester cela demain au travail , la je suis avec ma fille

[78chris]

Bonjour

Si tu as une version 2003 ou + tu peux utiliser

Code :

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

SOUS.TOTAL(101;c23:c6500)

qui en principe fonctionne pour tous types de masquage.

[guigui1976]

J'ai fait une version light du fichier mais la macro propose plus haut ne fonctionne pas.
dans le fichier original des graphiques se succédent sur toute la largeur et leur valeur se trouve en dessous aussi.
je vous remercie pour votre aide.
Pour info excel 2002

[sabzzz]

bonjour guigui1976,

il faut modufier la macro comme ça,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub filtre_plage()
Dim a As Integer, b As Double
Range("D22:D" & Range("D65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("C1:D2"), Unique:=False
   For Each c In Range("E23:E" & Range("E65536").End(xlUp).Row)
  If Rows(c.Row).Hidden = False And Range(c.Address) <> 0 Then
     a = a + 1
     b = b + Range(c.Address)
    End If
  Next
 Range("G17") = b / a
End Sub

et aussi pour les critère les mettre au format indiquer dans la barre de formule lorsqu'il y a un signe devant

>2010-01-10 <2010-01-19
http://www.cijoint.fr/cjlink.php?fil...cij6GEowcf.xls