Discussion :

[oceanediana]

Bonjour,

Je fais référence à la discussion suivante : http://www.developpez.net/forums/showthread.php?t=92750

J'ai essayé d'utiliser la fonction VBA proposée pour calculer le coefficient de corrélation mais voici l'erreur que je rencontre :

Erreur d'exécution '3061':
Trop peu de paramètres. 2 attendu.

Pour la ligne Set data avec le select.

Quelqu'un peu m'aider ?

[milia]

il doit manquer un argument dans "OpenRecordset" mais je ne sais pas trop vu que cette commende n'existe pas sur mon access.

[oceanediana]

Précision : j'utilise Access 2000.

[milia]

Et bien moi access 2003 donc il doit y avoir des différences, mais pour savoir le nombre d'argument et leur type tape sur la touche F1 lorsque tu es sur ta commande ou fonction.

[oceanediana]

Je ne trouve rien dans l'aide, quelqu'un à une idée ?

[philben]

Bonjour,

S'agit-il vraiment d'une corrélation entre x et y ou d'une régression de y en x ?

S'il s'agit d'une régression c'est un non sens de parler du coefficient de corrélation (r). Voir dans ce cas :http://www.developpez.net/forums/sho...d.php?t=185519


Philippe

[oceanediana]

Non je ne parle pas de la droite de régression, mais bien du coefficent de corrélation compris entre -1 et 1.

[philben]

Bonjour,

la fonction VBA de Random fonctionne très bien, essayer celle-ci au cas où :

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
19
20
 
Public Function CoeffCorr2(sChampX As String, sChampY As String, sTable As String) As Single
   Dim oDb As DAO.Database
   Dim oRs As DAO.Recordset
   Dim dSV As Double
   Dim sSql As String
   sSql = "SELECT Sum(" & sChampX & ") AS SX, Sum(" & sChampY & ") AS SY, " & _
          "Sum((" & sChampX & ")*(" & sChampY & ")) AS SXY, Sum((" & sChampX & ")^2) AS SXX, " & _
          "Sum((" & sChampY & ")^2) AS SYY, Count(" & sChampX & ") AS N FROM " & sTable
   Set oDb = CurrentDb
   Set oRs = oDb.OpenRecordset(sSql, dbOpenDynaset)
   If Not oRs.EOF Then
      dSV = (oRs("N") * oRs("SXX") - oRs("SX") ^ 2) * (oRs("N") * oRs("SYY") - oRs("SY") ^ 2)
      If dSV > 0 Then
         CoeffCorr2 = (oRs("N") * oRs("SXY") - oRs("SX") * oRs("SY")) / dSV ^ 0.5
      End If
   End If
   Set oRs = Nothing
   Set oDb = Nothing
End Function

Philippe