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