vba calculer la moyenne après un filtre

[michel90]

bonjour,
je souhaite simplement calculer la moyenne sur la colonne O après avoir filtré sur la semaine - 1.
aujourd'hui nous somme semaine 22 et je veux calculer la moyenne des valeurs de la colonne O pour la semaine 21.
j'ai créer cette macro ci joint mais le soucis pour la semaine 21 je trouve 30 c'est ok mais quand je veux vérifier si le code est bon je fais la semaine 20 et du coup ca me donne 30 alors que c'est faux ça doit me donner 22.

pouvez vous me la corrigé SVP. En vous remerciant par avance

Sub Moyenne_ER()
'
' Macro2 Macro
'

'


    'ActiveSheet.Range("$A$7:$AG$228").AutoFilter FIELD:=23, Criteria1:=Format(datetest, "ww", vbMonday, vbFirstFourDays - 1)
   
    'ActiveSheet.Range("$A$7:$AG$228").AutoFilter FIELD:=15, Criteria1:="<>"
     Dim x As Long

x = Application.Average(Columns("O"))
MsgBox "la moyenne des Ecart de reprise est de " & x

 

'If Worksheets("fichier suivi").AutoFilterMode Then
    ' Worksheets("Fichier suivi").AutoFilterMode = False
'End If
End Sub

 

[youky(BJ)]

Bonjour Michel,
x=application.SUBTOTAL(1,[A2:A50000])
remplacer [A2:A50000] par les bonnes cellules
Bruno

 

[michel90]

Bonjour Michel,
x=application.SUBTOTAL(1,[A2:A50000])
remplacer [A2:A50000] par les bonnes cellules
Bruno

salut youky(Bj) ,
le problème c'est la plage doit commencer par la ligne 8 sauf que comme je fais un filtre parfois ça commence par 29 par exemple, donc je en peux pas définir les ligne juste la colonne.

 

[youky(BJ)]

Alors ceci
x=application.SUBTOTAL(1,columns("A"))
Pour trouver le code j'ai mis la formule SOUS.TOTAL comme elle doit être
et j'ai affiché en VBA la fenêtre exécution et écris ?selection.formula et fait Entrée
C'est magique la traduction se fait.
Bruno
Oublié remplace columns("A" par la lettre souhaitée