1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim CT(1 To 4), CAT(1 To 4) As Range
Dim D0, critere1, critere2, critere, AdresseTrouvee As String
Dim SumSQ As Double
Dim i, j As Integer
SumSQ = 0
For j = 1 To 4
critere = Sheets("CQM_1").Cells(1, j).Value
Set CT(j) = Sheets("TEMP").Range("A15:OP47").Find(critere)
Set CAT(j) = Sheets("CQM_1").Range("A1:T33").Find(critere)
For i = 1 To 8
SumSQ = SumSQ + carre(Application.StDev(CT(j).Offset(i, 0).Value, CT(j).Offset(i + 8, 0).Value, CT(j).Offset(i + 16, 0).Value, CT(j).Offset(i + 24, 0).Value))
Next i
CAT(j).Offset(4, 0).Value = Sqr(1 / 8 * SumSQ)
Next j |
Partager