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
Bonjour Michel,
x=application.SUBTOTAL(1,[A2:A50000])
remplacer [A2:A50000] par les bonnes cellules
Bruno
 

michel90

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

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas