Probleme avec l'Analysis Toolpak _ VBA

**atonn** · 01/05/2016, 06h20

Bonjour,

Dans le cadre d'un projet scolaire, J'ai été ramené à construire une macro qui moyennant l' "Analysis Toolpak" ferait le calcul d'une matrice de covariances, j'ai déjà ajouté donc atpvbaen.xlam aux références.

Tous se passe bien quand j'utilise le code suivant:

Code :

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

1
2
3
4
5
Sub MCovariances()
 
     Application.Run "ATPVBAEN.XLAM!Mcovar", Sheets("Feuil1").Range("$A$1:$G$47"), Sheets("Feuil1").Range("$I$1"), "C", True
 
End Sub

Cependant quand je veux effectuer le calcul en réalité je travaille avec des dimensions que je ne connais pas, ce n'est pas le problème, car je peux les calculer et ça marche aussi sans aucun soucis, mais quand je veux utiliser l' "analysis Toolpak" avec le code en dessous, un message d'erreur 1004 m'est affiché.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
      Dim k, i As Integer 
      k = 47
      i = 11
 
      Application.Run "ATPVBAEN.XLAM!Mcovar", Sheets("Feuil1").Range(Sheets("Feuil1").Cells(1, 1), Sheets("Feuil1").Cells(k, i - 4)), Sheets("Feuil1").Range(Sheets("Feuil1").Cells(i, 1)), "C", True
 
 
End Sub

J'aimerais donc savoir s'il y a une erreur dans cette ligne de code ou s'il y avait une meilleur façon pour faire ce calcul.

Merci d'avance.

**Slooby** · 01/05/2016, 16h31

Bonjour,

Je n'ai jamais utilisé Analysis Toolpak, mais si ta première ligne de code fonctionne mais pas la deuxième c'est probablement un problème de Range

Premier point à signaler: Dans ta sub test, k n'est pas integer mais Variant (=> regarde sur google comment déclarer plusieurs variables en VBA)
Deuxième: essaie de déclarer une variable Range, puis utilise là dans ton appel de fonction:

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 test()

Dim k as Integer , i As Integer 
Dim rangeSource As Range, rangeCible as Range

k = 47
i = 11

With Sheets("Feuil")
    Set rangeSource = .Range(.Cells(1, 1), .Cells(k, i - 4) )
    Set rangeCible = .Cells(i,1)
End With

Application.Run "ATPVBAEN.XLAM!Mcovar", rangeSource , rangeCible , "C", True


End Sub