Probleme avec l'Analysis Toolpak _ VBA

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:

---

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:

---

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.

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:

---

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

---

Dis moi si ça change quelque chose.

Slooby.

Merci bien Slooby, ça marche.

Citation:

---

Envoyé par atonn

Merci bien Slooby, ça marche.

---

parfait !

Dans ce cas, clic sur Résolu !!!

Slooby