Discussion :

[PierreDrome]

Bonjour,

J'ai besoin de calculer le coefficient de corrélation entre deux séries numériques, mais qui sont de longueur variable suivant les différentes configurations.
J'ai paramétré les deux séries numériques ainsi :
Dim LigneFinRegression As Integer
LigneFinRegression = 141 + nbpays
Dim Plage1 As String
Dim Plage2 As String
Plage1 = "BA141:" & "BA" & LigneFinRegression
Plage2 = "BB141:" & "BB" & LigneFinRegression

J'ai tenté de calculer ainsi le coefficient de corrélation
Range("BA141").Select
ActiveCell.FormulaR1C1 = "=+CORREL(Plage1,Plage2)"
Mais ma syntaxe de la fonction CORREL n'est pas bonne.
Merci de votre aide !

[EricDgn]

Bonjour,

Il faut écrire

Code :

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

    Range("BA141").Formula = "=CORREL(" & Plage1 & "," & Plage2 & ")"

Il serait préférable d'utiliser un tableau, ce qui éviterait de passer par du code VBA.
Le tableau permet d'ajouter ou supprimer des lignes sans qu'il y ait à recalculer les plages, et donc la formule.

Cordialement.

[PierreDrome]

Merci pour cette réponse rapide.
J'aimerais bien qu'en utilisant le format tableau cela fonctionne mais hélas si on filtre ou si on utilise un segment pour ne choisir que les lignes correspondant à un critère donné, le résultat du calcul du coefficient de corrélation ne change pas. Excel prend en compte les lignes masquées.
Je regarde pour modifier mon code Vba


Cordialement !

[EricDgn]

Effectivement. Eventuellement cette solution sur cette page.
Cordialement.

[PierreDrome]

Bonjour,

J'ai avancé mais j'ai une erreur de syntaxe dans le script suivant :

Fin est le numéro de la ligne où doit s'arrêter le calcul que j'ai récupéré avec la fonction Active.Cell.Row
fin = ActiveCell.Row - 1

ActiveCell.FormulaR1C1 = "=+CORREL("BC60" & ":" & "BC" & Fin & "," & "BB60" & ":" & " BB" & Fin)"

Merci de votre aide !

[Nain porte koi]

Hello,

voici une version corrigée (et j'ai simplifié la formule)

Code :

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

ActiveCell.Formula = "=CORREL(BC60:BC" & Fin & "," & "BB60:BB" & Fin")"

FormulaR1C1 fait référence à des numéros de lignes et de colonnes donc sous la forme "R10C45" pas "BA142"...

Voici la version (légèrement modifié) que EricDgn vous avait proposé

Code :

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

1
2
3
4
5
6
7
Dim Fin As Long
Fin = ActiveCell.Row - 1
Dim Plage1 As String
Dim Plage2 As String
Plage1 = "BC60:BC" & Fin
Plage2 = "BB60:BB" & Fin
ActiveCell.Formula = "=CORREL(" & Plage1 & "," & Plage2 & ")"

Ceci dit, ActiveCell.Row - 1 fait référence à la ligne de la cellule active - 1, ce qui voudrait dire que vous devez forcément sélectionner la dernière ligne +1 et que la formule va s'inscrire dans cette cellule (et écrasé le contenu).

Il y a certainement d'autres solution mais vous devrez nous donner plus de précision sur ce que vous voulez faire.