Discussion :

[oliver75]

bonjour,

je cherche à créer un macro pour calculer une corrélation.

j'ai crée un macro et ensuite utiliser la fonction " correlation " d' excel pour déterminer le code :

Code :

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

1
2
3
 
    ActiveCell.FormulaR1C1 = _
        "=CORREL(Correlation!RC[-2]:RC,correlationindice!R[21]C[-2]:R[21]C)"

Avec la fonction excel le calcul se réalise correctement.

Par contre lorsque je lance la macro ci-dessous rien ne se passe?

comment dois je procéder pour que le calcul se fasse via la macro

merci de votre aide

[ouskel'n'or]

Si tu ne veux que le résultat, tu peux passer par WorksheetFunction
ActiveCell = Application.WorksheetFunction.CORREL(Worksheets(Correlation).range(L'adresse), worksheets(correlationindice).range(L'adresse))
Pas testé.
Par contre, évide d'utiliser "ActiveCell" qui signifie que tu sélectionnes ta cellule. Tu peux parfaitement utiliser

Code :

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

1
2
3
4
5
Worksheets(NomDeLaFeuille).Cells(NoLigne, NoCol).value = ...
'ou
Worksheets(NomDeLaFeuille).Range(Cells(NoLigne, NoCol)).value =
'ou
Worksheets(NomDeLaFeuille).Range(Adresse).value =

sans avoir rien à sélectionner. Il y a plus simple mais ce sera pour la prochaine question
A+

[oliver75]

bonjour,

voilà mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
'
' CORRELATION Macro
' Macro enregistrée le 29/06/2007 par Administrateur
'
 
'
    Worksheets("Histocorrélation").Cells(2, 4).Value = ActiveCell.FormulaR1C1 = _
        "=CORREL(Correlation!RC[-2]:RC,correlationindice!R[21]C[-2]:R[21]C)"
End Sub

ensuite j'appelle "Sub CORRELATION()" est malgrès cela rien ne s'affiche


j'ai oublié de faire un truc?

[ouskel'n'or]

Non, ça ne marche pas comme ça. Tu ne peux pas utiliser une formule de cellule Excel ainsi dans VBA. Je t'ai donné une piste mais je n'ai pas ton fichier et ne peux donc pas tester le code que je t'ai passé qui n'est donc qu'une indication sur la syntaxe.
Pour placer le résultat de la formule dans une cellule tu es obligé de passer par Application.WorksheetFunction qui permet seul d'utiliser une fonction de feuille de calculs.

[oliver75]

et ça cela te semble plus "réaliste"
mais ca marche pas..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub correlation2()
Dim correlation As String
Dim correlationindice As String
 
ActiveCell = Application.WorksheetFunction.Correl(Worksheets(correlation).Range("B2:D2"), Worksheets(correlationindice).Range("B23: D23"))
Sheets("histocorrélation").Range("D2") = ActiveCell
 
 
 
End Sub

[oliver75]

je joints le fichier correspondant