vba calculer la moyenne après un filtre

michel90

XLDnaute Nouveau
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 :)
VB:
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)

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757