Utilisation de la fonction CORREL sous VBA

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 !

Bonjour,

Il faut écrire

Code:

---

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.

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 !

Effectivement. Eventuellement cette solution sur cette page.
Cordialement.

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 !

Hello,

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

Code:

---

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:

---

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.

Tout d'abord grand merci. Le calcul de coefficient de corrélation fonctionne.
Mais je suis un vrai emmerdeur car je veux représenter sur un graphique X,Y les deux séries en question.

J'ai tenté d'utiliser ActiveChart de la manière suivante:

ActiveChart.FullSeriesCollection(1).XValues = "$BC$60:$BC$" & Fin

ActiveChart.FullSeriesCollection(1).Values = "$BB$60:$BB$" & Fin

J'ai également essayé
ActiveChart.FullSeriesCollection(1).XValues = Plage1

ActiveChart.FullSeriesCollection(1).Values = Plage2

Dans les deux cas vba me retourne le message suivant :
Erreur d'exécution "91"
Variable objet ou variable de bloc With non définie

Merci encore pour vos aides EXCELentes !

Votre façon de faire me laisse dubitatif 8O
Je me trompe en disant que vous ne connaissez rien au macro (voire à excel en général *) et que vous jouez à l'apprenti sorcier ? (ce n'est pas péjoratif, juste une question)

Vous utiliser Activemachintruc, ça oblige donc à ce que machintruc soit sélectionné, c'est surprenant dans une macro.

Bref, voici comment changer la source des données du graphique actif

Code:

---

ActiveChart.SetSourceData Source:=Range("BB60:BC" & Fin)

---

* une formule commence par =, il n'y a pas de raison d'ajouter un +

Merci pour ce retour rapide.
Pour répondre à la question sur ma pratique EXCEL, j'ai environ 40 ans de pratique des tableurs, Multiplan en premier puis Lotus123 et EXCEL depuis la fin des années 90.
J'ai réalisé de nombreux tableaux dont certains très complexes mais je n'ai pas d'expertise en Vba.
Les macros que j'ai réalisées sont principalement réalisées en enregistrement automatique.
Cordialement !