Moyenne avec critère

[matrix]

Bonjour,

J'ai un problème avec un script.

Dans mon fichier excel, je voudrais que dans la feuille "Customer Stops chauffeur", qu'il me copie chaque numéro différent qu'il y a dans la colonne C et qu'il me les colle dans la feuille "Moyenne customer stop chauffeur" dans la colone A, et cela, sans doublons, et qu'ensuite, il me donne la moyenne de temps selon chaque numéro dans la colonne B. Le temps se trouve dans la feuille "Customer Stops chauffeur" colonne M.

Comment faire svp.

 

[Cousinhub]

Re : Moyenne avec critère

Bonsoir,

un essai :

Le code :

Sub moyenn()
With Sheets("Customer Stops chauffeur")
    .Range("C1:C" & .[A65000].End(xlUp).Row).Name = "drivers1"
    .Range("C4:C" & .[A65000].End(xlUp).Row).Name = "drivers"
    .Range("M4:M" & .[A65000].End(xlUp).Row).Name = "stop_time"
End With
With Sheets("Moyenne customer stop chauffeur")
    Range("drivers1").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
        "A1"), Unique:=True
    .Range("A1:A" & .[A65000].End(xlUp).Row).Sort Key1:=.Range("A2"), Header:=xlYes
    .[B2].FormulaR1C1 = _
        "=IF(COUNTIF(drivers,RC[-1])=0,"""",SUMPRODUCT((drivers=RC[-1])*stop_time)/COUNTIF(drivers,RC[-1]))"
    .[B2].AutoFill Destination:=.Range("B2:B" & .[A65000].End(xlUp).Row)
    .Range("B2:B" & .[A65000].End(xlUp).Row).Value = .Range("B2:B" & .[A65000].End(xlUp).Row).Value
End With
End Sub

Le fichier :

 

[matrix]

Re : Moyenne avec critère

Oh oui merci, ça fonctionne super

 

[Cousinhub]

Re : Moyenne avec critère

Re-,

De rien, mais ne dit surtout pas à JMPS que j'ai utilisé :

.Range("B2:B" & .[A65000].End(xlUp).Row).Value = .Range("B2:B" & .[A65000].End(xlUp).Row).Value

Equivalent de :

ActiveCell.Value = ActiveCell.Value

😀😀

 

[matrix]

Re : Moyenne avec critère

Pas de problème 😛