Calcul d'écart-type entre des dates

Bonjour les amis,
J'ai un problème dans le calcul d'écart-type entre des dates, j'ai besoin d'un code VBA qui permet de calculer l'écart-type entre des intervalles des dates, mais sans qu'il prenne en considération les weekends (voir l'image ci-dessous) , et merci d'avance.

Salut,

et sur quelle etape tu bloques ?

Quel est ton code VBA actuel ?

Plus tu nous en dis, plus tes chances de trouver une solution efficace s'amelioreront !

On fait, j'ai un fichier Excel qui contient 3 colonnes "commande ", "date de fabrication" et "groupe de commande", la colonne "date de fabrication ne contient que les jours ouvrés,càd que les dates des weekends n'existe pas, j'ai besoin de calculer l'écart-type pour chaque groupe, mais lorsque je calcule l'écart-type entre les dates de fabrication (Exemple : groupe 1), je trouve 1.38,càd qu'il a pris que, entre 21 avril et 24 avril il y a 3 jours ouvrés, alors que non, il n' y a qu'un seul jour.
Pour le code VBA, je ne sais pas comment programmer ce truck :(

Bonjour,
Peux-tu expliquer comment tu as obtenu le deuxième résultat (en vert)?
Je pense que tu dois partir de la définition que tu donnes à ton écart-type. Comment définis-tu une moyenne et un écart-type dans ton cas?

Ok,

tu peux tres bien passer par une fonction personnalisee, par exemple
a adapter bien entendu

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Function MonEcartTypeOuvre(Rng as Range) dim strCompilation as String for each Cel in Rng If weekday(Cel.Value,vbMonday)<=5 Then ' je pars du principe que tu prends les dates dans une colonne et les valeurs dans la colonne juste a droite. strCompilation = strCompilation & "," & Cel.Offset(0,1).Address End if Next 'nettoyage de la virgule en trop if Len(strCompilation)>0 Then strCompilation=mid(strcompilation,2) MonEcartTypeOuvre = Application.WorksheetFunction.StDev(Range(strCompilation)) Else MonEcartTypeOuvre = 0 End if     End Function

---

Bonjour,

Jean-Philippe, pour une plage du vendredi au lundi ta fonction retourne 2.12.
Soit l'écart type de 4 valeurs dont les 2 centrales ne seraient pas prises en compte.

J'ai l'impression qu'il voudrait faire comme si le samedis et dimanches n'existent vraiment pas et qu'un vendredi 42846 soit suivi d'un lundi 42847 (et non 42849).
Voici donc une proposition dans ce sens (à tester...) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Function EcartTypeOuvre(plage As Range) As Double Dim dat, tmp() As Long, nb As Long, nbJWE As Long, lig As Long dat = plage.Value ReDim tmp(1 To UBound(dat)) For lig = 1 To UBound(dat) If Weekday(dat(lig, 1), vbMonday) > 5 Then nbJWE = nbJWE + 1 Else nb = nb + 1 tmp(nb) = Int(dat(lig, 1)) - nbJWE End If Next lig ReDim Preserve tmp(1 To nb) EcartTypeOuvre = Application.WorksheetFunction.StDev(tmp) End Function

---

qui retourne 0.707 dans ce cas.
Attention, le 1er jour doit être un jour de semaine, sinon compléter la fonction pour tenir compte du cas particulier où le 1er jour peut être pendant un WE.

PS : par contre pour l'exemple avec 11 jours je ne trouve pas 0.726 mais 0.5 (écart type de (1,1,1,1,1,1,2,2,2) ) donc ?!?...
eric

Salut,

dans mon cas, je n'imaginai meme pas faire un ecrat type sur des dates :/

C'est quoi l'interet exact ?

Merci bcp pour votre aide les amis, j'ai résolu le problème.
Pour ta question Jean, j'ai besoin de savoir le décalage entre les dates de fabrication des commandes de chaque groupe, et mon indicateur pour faire ça est l'écart-type entre les dates, parce que je travaille sur un sujet d'optimisation et j'ai rencontré ce problème.
Merci énormément :)

Et la solution était donc ?

Bonjour Eriiic
j'ai inséré une colonne "ordre" qui incrémente seulement avec les jours ouvrées ,et aprés j'ai utilisé une formule pour calculer l'écart type dans la colonne "Ecart-type"