Aide Worksheetfunction

Bonjour,

J'essaye de calculer un coefficient de correlation entre 2 colonnes je pense

que mon code est bon mais pourtant il y a un problème

à la ligne "WorksheetFunction.Correl((FL1.Range("C3:C5")), (FL1.Range("F1:F3")))"

c'est ecrit "impossible del ire la propriete correl dans la classe

worksheet function"

si quelqu'un pouvait m'aider

Merci beaucoup

Sub Mac()
Dim FL1, FL2, FL3 As Worksheet, NoCol As Integer
Dim NoLig, NoLig1, NoLig2 As Long, Var As Variant

    Set FL1 = Worksheets(1)
    Set FL2 = Worksheets(2)
    Set FL3 = Worksheets(3)

    NoLig1 = 3

    FL3.Cells(NoLig1, 1).Value = "Taux pp >100 microns"
    FL3.Cells(NoLig1, 1).Font.Bold = True
    FL3.Cells(NoLig1, 3).Value =
WorksheetFunction.Correl((FL1.Range("C3:C5")), (FL1.Range("F1:F3")))

End Sub

Salut,

Je ne connais pas grand chose à ton calcul, mais selon moi le problème vient des valeurs que tu as dans tes plages de référence.

Dans le fichier ci-joint, ta macro fonctionne parfaitement

Dans l'aide Excel de la formule =COEFFICIENT.CORRELATION() placée en E8 sur la Feuil1, tu as quelques explications sur les valeurs non admises.

Effectivement qu'avec d'autres valeurs, ça bloque.

Remarque au passage tes parenthèses inutiles, ainsi que l'instruction .Value.

Cordialement.

Merci beaucoup de votre aide

Bonjour,

Au passage lorsque tu écris Dim FL1, FL2, FL3 As Worksheet seul FL3 est typé, FL1 et FL2 sont Variant.

Possible que ça te donne ce message... Une valeur non admise aurait un autre message d'erreur je pense.

Idem pour noLig

eric