je cherche a inserer une formule dans une cellule mais j'ai un
depassement de capacit=E9 memoire lorsque c'est une macro qui effectue
l'operation et un message " Formule trop longue" lorsque je suis
directement dans excel.
Comme la formule que je veux inserer comporte des IF, AND imbriqu=E9
j'ai choisi de stocker la formule dans une variable de type String et
ensuite d'ecrire la variable dans la cellule.
Il y a t il une solution pour inserer des formules longues ?
Peut etre qu'on peux s'y prendre autrement ?
D'avance merci,
JL
Ci-joint un bout du programme que je cherche a faire fonctionner.
En commentaire j'ai garde une petite partie de la formule relle que je
souhaite additionner
Sub test()
Dim var As String
Dim i As Integer
var =3D "1"
Do While i <> 1000
' var =3D var & "+IF(AND([Liens.xls]Feuil2!$D$4<>"""", _
' [Liens.xls]Feuil2!$D$3=3D[Charges.xls]Feuil1!$C$3), _
' [Charges.xls]Feuil1!$J$3, 0)"
var =3D var & "+1"
i =3D i + 1
Loop
MsgBox (var)
var =3D "=3D" & var
ActiveCell.Formula =3D var
