Discussion :

[ninette24]

Bonjour,

J'ai bsoin de votre aide.
Je voudrais calculer une moyenne mobile à plusieurs conditions.

Chaque mois un produit est livré ou non au client.
Si le produit est livré le meme mois et la meme année on calcule la moyenne mobile des délais de livraison de tous les prduits et on mets dans la colonne correspondante le résultat.

Exemple si 10 produits livrés en juin 2012 avec un délai moyen de 100jrs chaque ligne correspondant à ces produits doit contenir 100.

Cela servirai à une représentation graphique par mois et par an des produits livrés en délais et moyenne mobile

je joins un fichier correspondant.

Merci d'avance.

[Daniel.C]

Bonjour,

Tu es sure de vouloir une macro ? la formule suivante fait bien l'affaire (en F2, matricielle, à valider avec Ctrl+Maj+Entrée ) :

Code :

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

=MOYENNE(SI(($A$2:$A$3703=A2)*($C$2:$C$3703=C2)*($D$2:$D$3703=D2)>0;$E$2:$E$3703))

à reproduire vers le bas.

[ninette24]

Merci pour ta réponse,

Je souhaite trouver le moyen de le faire avec une macro et avoir les valeurs dans la colonne.

Tu penses que c'est possible?

[ninette24]

Voilà j'ai essayé un code mais il n'est pas complet pour prendre mes conditions (année et mois)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim plage, plage1, plage2 As Range               
derligne = Sheets("extraction").Range("A65536").End(xlUp).Row    
Set plage1 = Sheets("extraction").Range(Cells(2, 4), Cells(derligne, 4))                
For Each cel In plage
 
        annee_depart = cel.Offset(rowOffset:=0, columnOffset:=-2).Value
        mois_depart = cel.Offset(rowOffset:=0, columnOffset:=-1).Value
 
 
            Select Case annee_depart
            Case Is <> ""
 
            If annee_depart And mois_depart Then
 
            cel.Offset(rowOffset:=0, columnOffset:=1).Value = WorksheetFunction.Average(plage1)
 
Next cel

qu'elqu'un peut m'aider?

[ninette24]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    With Sheets("extraction")
 
 
  Range("A2:F65000").Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess
 
        LastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
        For i = LastRow To 2 Step -1
            If .Cells(i, 3).Value = .Cells(i - 1, 3).Value And .Cells(i, 4).Value = .Cells(i - 1, 74).Value Then
 
                t = .Cells(i - 1, 5).Value + .Cells(i, 5).Value
 
 
                .Cells(i - 1, 6).Value = t / 2
                .Cells(i, 6).Value = t / 2
 
            End If
         Next j
        Next i
    End With

Cet autre code me donne uniquement la moyenne 2 par 2 j'aiemrais letendre à toute les lignes concernées en gros si c'est du SQL ce serai

Code :

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

1
2
3
SELECT DISTINCT base.`liv_année`, base.`Recep_mois`, Avg(base.`Moy`) AS 'TAT (RA)'
FROM base base
GROUP BY base.`Dispatch Year`, base.`Dispatch Month`

a l'aide