Pb Ecritures de Formules

[Sapin]

D'abord coucou à tous...

Je suis en train de developper un petit outils utilisant le solveur d'Excel sous Vba. Cet outil doit permettre de régler différents paramètres en fonctions de plusieurs criteres.

Prob : comme le nombre de mes paramètres (pouvant aller jusqu'a une 40aine) est définit par l'utilisateur, je rencontre des prob pour ecrire mes formules.

En effet si mes paramètre sont sur la feuil1 et sont au nombre de 5:
Je les place en col des cells(1,1) à (5,1).

Les formules que j'ecrit dans la feuil2 sont alors du type (c un ex):

worksheets("Feuil2").cells(i,1).formulaR1C1= "Feuil1!RC-Feuil1!R[-i+6]C"

Pour i=1 je fait A1-A5
i=2 je fait A2-A4
i=3 : A3-A3=0
i=4 : A4-A2
i=5: A5-A1

Le prob est que i n'est pas reconnu comme un indice de reperage de colonne mais surement comme du texte. La formule ne marche donc pas.
Savez vous comment ecrire une formule en introduisant les valeurs de certaines variables VBA ??


Je vous remercie par avance passez une tous une super journee... ;-)
Sapin

 

[Arnaud]

salut,

il faut que tu l'écrive comme ça pour que i soit pris en compte comme une variable :

worksheets("Feuil2").cells(i,1).formulaR1C1= "Feuil1!RC-Feuil1!R[-" & i & "+6]C"

 

[Sapin]

Salut Arnaud et merci d'avoir repondu si vite,

Bon triste conclusion : Ca ne marche toujours pas...
comme je suis deçu... :-(

Si j'ecris worksheets("Feuil2").cells(i,1).formulaR1C1= "Feuil1!RC-Feuil1!R[-i+6]C"

voila ce que la macro ecrit dans les cases:
Feuil1!RC-Feuil1!R[-1+6]C : c'est à dire du texte

J'ai donc pensé rajouter un = devant la formule comme suit:

worksheets("Feuil2").cells(i,1).formulaR1C1= "=Feuil1!RC-Feuil1!R[-i+6]C"

Mail la je rencontre la fameuse "erreur 1004 Erreur définit par l'application ou par l'objet" qui d'après ce que j'ai pu constater cache tout et n'importe quoi !!

Je me demande alors si c'est possible de réaliser ce que je voudrais... Vous en pensez quoi amis du forum ??

Sapin (qui manifestement a bien des prob avec VBA )

 

[Arnaud]

re,

cette erreur viens du fait que ta formule ne veux rien dire pour excel donc il explose.
donne la formule comme tu voudrais qu'elle s'écrive dans ta cellule, cela m'aidera car moi les formules........^^

 

[Sapin]

Voilà les formules que je souhaite écrire pour un nb de paramètre = 5
cellule A1 feuille 2: =Feuil1!A1-Feuil1!A5
cellule A2 feuille 2: =Feuil1!A2-Feuil1!A4
cellule A3 feuille 2: =Feuil1!A3-Feuil1!A3
cellule A4 feuille 2: =Feuil1!A4-Feuil1!A2
cellule A5 feuille 2: =Feuil1!A5-Feuil1!A1

Pour seulement 3 paramètres ca donnerait:
cellule A1 feuille 2: =Feuil1!A1-Feuil1!A3
cellule A2 feuille 2: =Feuil1!A2-Feuil1!A2
cellule A3 feuille 2: =Feuil1!A3-Feuil1!A1

etc...

En fait comme tu peux le voir les indices des cellules dont je fait la différence sont conditionnées par le nombre de paramètres que l'utilisateur choisit.

A terme je voudrais à la fois conditionner les indices de lignes (1 -> nb_paramètres ) et les indices de colonnes ( A -> lettre correspondant au nb de paramètres).

Merci pour ton aide je sais pas si j'ai été très clair...
Sapin

 

[Arnaud]

re,

Worksheets("Feuil2").Cells(i, 1).FormulaR1C1 = "=Feuil1!RC-Feuil1!R[" & -i + 6 & "]C"

 

[Sapin]

Merci Arnaud tu es un Dieu vivant du VBA !!!
MERCI ENCORE !!

bon je vous souhaite à tous un bon appetit et je vous dis à bientot car je pense que je ne suis pas encore au bout de mes peines.

Sapin