macro calcul de correlation

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:

---

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:roll:

merci de votre aide

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:

---

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+

bonjour,

voilà mon code

Code:

---

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:roll:


j'ai oublié de faire un truc?

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.

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

Code:

---

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

---

je joints le fichier correspondant:yaisse2:

avec le fichier c'est mieux:lol:

Si tu as des idées, n'hésite pas à nous les mettre :evil:
J'ai testé et ton code et le mien. Mais moi j'ai compris :langue:
Tes plages de cellules doivent être mises en adresses absolue (parce que prises sur plusieurs feuilles ? Je n'en sais rien mais sans ça, ça ne fonctionne pas !)

Code:

---

ActiveCell.FormulaR1C1 = "=CORREL(Feuil1!R77C1:R80C1,Feuil2!R77C2:R80C2)"

---

Comme quoi, tout est relatif ;)
La prochaine fois que tu te fous de moi je jète ta question aux orties :evilred:
A+ quand même

merciiiiiiiiiiiiiiiiiiiiiiiiiiiii;)