Discussion :

[oliver75]

bonjour

je ne comprends pas. j'utilise la formule d'excel pour calculer une corrélation (en gras dans le code) et rien ne s'affiche.

ce n'est pas un pb à priori de synthaxe car si je somme 2 cellules par exemple mon résultat s'affiche?

question : est il possible que la formule de bade d'excel ne génére pas de calcul sous vb?

merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub correlation()
'
' correlation Macro
' Macro enregistrée le 02/07/2007 par Administrateur

Dim result As Double



    result = ActiveCell.FormulaR1C1 = _
        "=CORREL(Correlation!RC[-2]:RC,correlationindice!R[21]C[-2]:R[21]C)"
Sheets("histocorrélation").Range("d2").Value = result
    
MsgBox "je traite le code " & result

End Sub

[SilkyRoad]

bonsoir

as tu essayé cette syntaxe

Code :

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

1
2
3
4
5
6
7
Dim Result As Single
 
ActiveCell.FormulaR1C1 = _
    "=CORREL(Correlation!RC[-2]:RC,correlationindice!R[21]C[-2]:R[21]C)"
 
Result = ActiveCell
MsgBox "je traite le code " & Result

bonne soirée
michel

[oliver75]

Bonjour,

le calcul du coefficient de corélation est correct. En revanche le résultat ne s'affiche pas dans la Sheets("histocorrélation").Range("d2").

[SilkyRoad]

bonjour

effectivement je n'avais pas bien compris ta demande:

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)"
Sheets("histocorrélation").Range("d2").Value = ActiveCell.Value

michel

[oliver75]

bonjour ,

ce code ne fonctionne pas ....

Ce qui est marrant c'est qu'un calcul simple comme celui du code ci-dessous fonctionne bien et s'affiche au bon endroit.

Code :

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

1
2
3
4
5
6
 
ActiveCell.FormulaR1C1 = Sheets("Correlation").Range("B2") + Sheets("Correlation").Range("c2") + Sheets("Correlation").Range("d2")
 
Result = Sheets("Correlation").Range("B2") + Sheets("Correlation").Range("c2") + Sheets("Correlation").Range("d2")
 
Sheets("histoCorrélation").Range("d2") = Result

En revanche lorsque sur le meme modèle je fais intervenir le calcul de corrélation le resultat ne s'affiche plus

aieaieaie.......

[random]

voir
coefficient.correlation macro sup analyse

[oliver75]

ok merci