Discussion :

[hidodu]

Bonjour à tous
Je cherche à me faire une macro qui me servirait à traiter mes données.
En gros, j'ai un tableau de données comprenant une vingtaine de paramètres; je veux calculer les corrélations entre chacun de mes paramètre et si le coefficient de corrélation pour deux colonnes données est supérieur à une valeur fixée, je veux que se trace un graph avec ces deux variables.
Mais je n'arrive pas à calculer mon coefficient de corrélation entre deux colonnes qui varient. Voila ce que j'ai essayé:

Code :

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

1
2
3
4
5
For i = 1 To 20
    For j = 1 To 20
 
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "=CORREL(Range(Cells(" & i & ", 2), Cells(" & i & ", 100)),Range(Cells(" & j & ", 2), Cells(" & j & ", 100)))"

Apparemment, ce n'est pas la bonne solution
Je crois que je suis un peu brouillé entre les coordonnées relatives et les cordonées lettre+chiffre
Quelqu'un pourrait me donner un petit coup de main?
Merci d'avance

[mercatog]

Bonjour

Je crois que je suis un peu brouillé entre les coordonnées relatives et les cordonées lettre+chiffre

Oui sur plusieurs aspects

Essaies ceci, e, adaptant le nom de ta feuille de données

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim k As Integer
Dim i As Byte, j As Byte
 
With Sheets("Mara")                                                  'à adapter
    For i = 1 To 18
        For j = i + 1 To 20
            k = k + 1
            .Range("U" & k).Value = "Corellation colonne " & i & " et colonne " & j
            .Range("V" & k).Formula = "=CORREL(" & .Range(.Cells(2, i), .Cells(100, i)).Address & "," & .Range(.Cells(2, j), .Cells(100, j)).Address & ")"
        Next j
    Next i
End With

[hidodu]

Ok super. Ca marche nickel. J'ai retiré la mise en page avec les k pour faciliter la lecture mais merci beaucoup pour la syntaxe du Correl.
Bye