Standard Deviation VBA - ne fonctionne pas

Question

Je me prends la tete sur cette macro de calcul d ecart type ... Je veux calculer l'ecart type pour chacune des equipes ( Cost Center ) en feuille 2 Je ne comprends pas pourquoi cela ne fonctionne pas ... Merci d avance de votre aide. A+...

MFerrand · Accepted Answer

J'ai dû me faire un peu violence pour entrer dans le vif du sujet... Le nombre d'erreurs à rectifier était en fait assez conséquent...

Sub Button1_Click()
    Dim lLastRow&, lTeamCount&, lBbgCol%, lBbgColCount%, sTeam$
    Dim lLastDataRow&, lCount&, lDataCol%
    Dim Ti(), lAvgCount&, dStd#
    Application.ScreenUpdating = False
    lLastRow = wts.Cells(Rows.Count, 1).End(xlUp).Row
    lLastDataRow = Sheet5.Cells(Rows.Count, 1).End(xlUp).Row
    lBbgCol = wts.Cells(1, Columns.Count).End(xlToLeft).Column
    For lTeamCount = 2 To lLastRow
        sTeam = wts.Cells(lTeamCount, 2).Value
        lDataCol = 16
        For lBbgColCount = 3 To lBbgCol
            lAvgCount = 0
            For lCount = 2 To lLastDataRow
                With Sheet5
                    If .Cells(lCount, 13).Value = sTeam Then
                        If .Cells(lCount, lDataCol).Text <> "#N/A" _
                         And Sheet5.Cells(lCount, lDataCol).Value > 0 Then
                            ReDim Preserve Ti(lAvgCount)
                            Ti(lAvgCount) = .Cells(lCount, lDataCol).Value
                            lAvgCount = lAvgCount + 1
                        End If
                    End If
                End With
            Next lCount
            If lAvgCount > 0 Then
                dStd = WorksheetFunction.StDev(Ti)
                wts.Cells(lTeamCount, lBbgColCount).Value = dStd
            End If
            lDataCol = lDataCol + 1
        Next lBbgColCount
    Next lTeamCount
    MsgBox "Done"
End Sub

Cordialement.

i20100 · Answer

La variable wts fait référence à quoi ? lLastRow = wts.Cells(Rows.Count, 1).End(xlUp).Row c'est bon, j'ai trouvé, c'est la Feuil2...

i20100 · Answer

&#91;quote="sabV"&#93;Bonjour, la variable wts fait référence à quoi ? lLastRow = wts.Cells(Rows.Count, 1).End(xlUp).Row c'est bon, j'ai trouvé, c'est la Feuil2 par contre For lBbgColCount = 3 To lBbgCol lBbgCol = 2 ça ne boucle pas du tous...

MFerrand · Answer

LBbgCol = wts.Cells(2, Columns.Count).End(xlToLeft).Column 1 Cordialement...

pierre.jy · Answer

Salut, une idée , peu-être : "lire le message d'erreur" et le rapporter ici .....

MFerrand · Answer

SabV qui a creusé ton code te fait remarquer qu'une boucle de 3 à 2 (pas: +1) n'a aucune chance de s'éxécuter. Moi (qui n'ai pas du tout creusé ! ) me suis contenté d'observer que ta boucle devait manifestement être de 3 à 4, et que pour avoir 4, il fallait chercher la dernière colonne utilisée sur la ligne 1 et non 2 ! Peut-être s'agit-il de tout autre chose, mais cela reste un point à vérifier et curieux que tu n'aies pas vu ce dont il s'agissait... ! Cordialement...

MFerrand · Answer

Décidément, je n'aime pas cette façon de nommer des variables, ça me perturbe !

J'observe (de loin!!) : ....Cells(lCount, lDataCol)...

lCount est curieusement utilisée comme variable de boucle quelques lignes plus haut. Sa valeur à la sortie de ladite boucle est donc de lLastDataRow+1. Je doute un peu que ce soit la valeur qui convienne .

Alors ! soit ce n'est pas la bonne variable, soit ce fragment de code n'est pas au bon endroit et devrait par exemple être dans la boucle utilisant lCount au lieu d'être placé à la suite (je précise que je n'ai pas regardé le détail de ce que fait cette boucle ! )

En tout état de cause il me semble qu'il faut regarde de plus près autour de ça... [Il me semble que tu te perds un peu aussi au milieu de tes variables ! )

Cordialement.

jmd · Answer

Salut MFerrand salut louyotj sans VBA, avec un TCD ...

jmd · Answer

Re je ne comprends pas tout affichage d'un TCD peut servir de base à des calculs...

jmd · Answer

Pour plusieurs raisons, mes tableaux sont de tailles variables et comme tu peux imaginer je n ai pas que 2 colonnes a etudier mais une cinquantaine ... Et l'ecart type sera la base de mon analyse, je devrais par la suite recuperer cette variable pour calculer un ratio .... re à tous tu es en plein dans l'analyse de la variance ? les tableaux sont toujours de tailles variables. Les TCD s'adaptent. 50 colonnes ou 200, quelle est la différence ? en fait tu as posé une question qui est une étape dans ton problème plus vaste. Pose le problème global. Il se peut qu'on puisse faire (un peu) autrement...