Discussion :

[yobor]

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.

[Jean-Philippe André]

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 !

[yobor]

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

[riaolle]

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?

[Jean-Philippe André]

Ok,

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

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

[eriiic]

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 :

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

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

[Jean-Philippe André]

Salut,

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

C'est quoi l'interet exact ?