Utilisation de formule excel

Version imprimable

Bonjour à tous,

Je souhaite utiliser une formule excel dans une macro. Cette formule est "COEFFICIENT.CORRELATION(matrice1;matrice2)".

Dans une cellule excel j'ai saisi: =COEFFICIENT.CORRELATION(G12:G23;H12:H23)
Ca marche parfaitement mais maintenant je voudrai faire la même chose en vba et en rendant les matrices 1 et 2 dynamiques.

Je n'arrive pas à faire fonctionner cette formule dans ma macro avec des plages statiques, donc avec des plages dynamiques:aie:

J'ai essaye en faisant ça:
Code:

1 2 3 4 Set myplage1 = Feuil1.Range(Cells(12, 7), Cells(12 + 10, 7)) Set myplage2 = Feuil1.Range(Cells(12, 8), Cells(12 + 10, 8)) Feuil1.Range("A3").FormulaR1C1 = "=COEFFICIENT.CORRELATION(myplage1,myplage2)"
ou encore ça:

Code:

Feuil1.Range("A3").FormulaR1C1 = "=COEFFICIENT.CORRELATION(G12:G23;H12:H23)"

Des tonnes de sujets parlent de Formula ou Formula R1C1, mais ce que j'ai trouvé ne m'a pas permis de résoudre mon problème.

Merci de me donner un petit coup de pouce

30/11/2009, 14h00
ouskel'n'or

FormulaR1C1 demande une adresse relative où R = le décalage de ligne par raport à la cellule active, et C le décalage de colonne
Pour utiliser Feuil1.Range("A3").... tu dois utiliser "Formula".
Vérifie tout de même, en enregistrant la macro, que ta formule française soit bien traduite en anglais (Que devient "=COEFFICIENT.CORRELATION" une fois traduit en anglais par l'enregistrement de la macro ?
Sinon, tu peux aussi utiliser "FormulaLocal" qui permet de mettre la formule en français dans la macro.
Pense aussi à remplacer les ";" par des virgules dans la formule. VBA l'aime pas les points-virgules ;)
A+
30/11/2009, 14h07
fgiambelluco

Bonjour
En fait ce que tu as écrit en bon français

Code:

"=COEFFICIENT.CORRELATION(G12:G23;H12:H23)"

doit s'écrire

Code:

"=CORREL(R[9]C[6]:R[20]C[6],R[9]C[7]:R[20]C[7])"

Aussi Feui1. est à remplacer par Sheets("Feuil1").
30/11/2009, 14h40
christophe_fr
Tu as raison fgiambelluco c'est ce que je viens de voir en faisant un enregistrement de la macro.

Premier pas réussi, J'arrive en statique à calculer le coefficient de corrélation.

Je viens de faire plusieurs tests pour rendre la plage de cellules dynamique.
Mais c'est la première fois que je suis confronté à cette manière de définir les lignes et les colonnes ( R[...]C[...]:R[...]C[...],R[...]C[...]:R[...]C[...] ).
J'ai essayé en faisant:

Code:

Sheets("ANALYSE").Range("A3").FormulaR1C1 = "=CORREL(R[12]C[6]:R[12+&line_max]C[6],R[12]C[7]:R[12+&line_max]C[7])"

ou faire l'addition en avant la cette ligne:
Code:

1 2 line_max = line_max + 12 Sheets("ANALYSE").Range("A3").FormulaR1C1 = "=CORREL(R[12]C[6]:R[line_max]C[6],R[12]C[7]:R[line_max]C[7])"
et en mettant le & :
Code:

1 2 line_max = line_max + 12 Sheets("ANALYSE").Range("A3").FormulaR1C1 = "=CORREL(R[12]C[6]:R[&line_max]C[6],R[12]C[7]:R[&line_max]C[7])"
Je sais que mettre des codes qui marchent pas ne fait pas beaucoup avancer les choses mais au moins vous voyez ce que j'ai testé et qui ne marche pas.

Merci

Bonjour à tous,

Par rapport à ton exemple, je propose quelque chose comme ça :

Code:

1
2
3
4
Dim MyPlage1 As Range, MyPlage2 As Range
Set MyPlage1 = Feuil1.Range(Cells(12, 7), Cells(12 + 10, 7))
Set MyPlage2 = Feuil1.Range(Cells(12, 8), Cells(12 + 10, 8))
Feuil1.Range("A3").Formula = "=CORREL( " & MyPlage1.Address & "," & MyPlage2.Address & ")"

30/11/2009, 14h44
christophe_fr

Merci aalex_38 :ccool: ça marche au poil

Je vais me renseigner d'avatage sur la méthode adresse que je n'ai jamais utilisée et qi à l'air fort utile!!
30/11/2009, 14h46
fgiambelluco
Re
Ou alors, mais c'est moins lisible que la 1ere syntaxe modifiée par aalex_38.
Avec la 2ème syntaxe, il faut faire des ruptures de chaine pour concaténer les variables ; du style :
Code:

1 2 line_max = line_max + 12 Sheets("ANALYSE").Range("A3").FormulaR1C1 = "=CORREL(R[12]C[6]:R[" & line_max & "]C[6],R[12]C[7]:R[" & line_max & "]C[7])"