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.

[PierreDrome]

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 !

[Nain porte koi]

Votre façon de faire me laisse dubitatif
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 :

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

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

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

[PierreDrome]

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 !