Division impossible (type de variable)

Hello,

Je débute en VBA et j'ai un problème de type de variable ...

Voilà j'ai un problème concernant une opération mathématique simple.
J'aimerais diviser chaque membre du vecteur Exp1 par la valeur Exp2 (valeur unique).
Cependant la fonction MMult force la variable Exp2 en Variant qui ne fonctionne pas pour effectuer une division (Exp1(i, 1) / Exp2) ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Exp1 As Variant Dim Exp2 As Variant   Exp1 = WorksheetFunction.MMult(DataT, t1) t1T = WorksheetFunction.Transpose(t1) Exp2 = Application.WorksheetFunction.MMult(t1T, t1)   p1 = Exp1   For i = 1 To UBound(Exp1) p1(i, 1) = Exp1(i, 1) / Exp2 Next

---

Merci

Bonsoir,

Pourquoi ne la repasses-tu pas en "Long" ?

Salut !

Es-tu obligé de déclarer tes deux valeurs en variant ?

Si tu trouves le moyen d'aller les chercher sous type de "string" la fonction CDbl te permet d'effectuer l'opération et avec CStr tu pourras remettre le résultat en string et tu pourras l'intégrer ou tu veux.

PS : CDbl transforme en double mais tu peux le faire en long en single ou en integer

Hello,

Oui je suis obligé de déclarer mes deux valeurs en variant.
J'avais déjà essayé CDbl mais cela ne fonctionnait pas ...

J'ai enfin trouvé la solution, bien que Exp2 ne contient qu'une seule valeur, la variable est considérée comme un tableau il faut donc ajouter Exp2(1,1)...

Merci