VBA & formule contenant une variable input box

[LPandre]

Bonjour et tous mes voeux à toutes et tous.
Je vous la fais courte.
J'ai ça dans mon code :

rep1 = InputBox("Valeur en format 0,035 par ex", "Pourcentage d'augmentation")
Var1 = 1+ rep1
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]<>0,RC[-1],IF(RC[-2]=R[1]C[-2],R[1]C[-1]/1.035,""toto""))"

je souhaiterais ça :
rep1 =...
Var1 = 1 + rep1
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]<>0,RC[-1],IF(RC[-2]=R[1]C[-2],R[1]C[-1]/Var1,""toto""))"

Pour que la formule intègre la valeur saisie dans l'input box.

Par avance merci.
Et si vous avez trouvez des fils qui l'expliquent, qu'avez vous tapé dans le moteur de recherche !

 

[porcinet82]

Re : VBA & formule contenant une variable input box

Salut,

Je n'ai pas testé, mais je dirai un truc de ce genre :

rep1 = InputBox("Valeur en format 0,035 par ex", "Pourcentage d'augmentation")
var1 = 1 + rep1
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>0,RC[-1],IF(RC[-2]=R[1]C[-2],R[1]C[-1]/" & var1 & ",""toto""))"

@+

 

[LPandre]

Re : VBA & formule contenant une variable input box

Salut,

Je n'ai pas testé, mais je dirai un truc de ce genre :

rep1 = InputBox("Valeur en format 0,035 par ex", "Pourcentage d'augmentation")
var1 = 1 + rep1
ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>0,RC[-1],IF(RC[-2]=R[1]C[-2],R[1]C[-1]/" & var1 & ",""toto""))"

@+

Merci Porcinet, mais ça coince avec un bug : erreur définie par l'application ou l'objet.

@+

 

[pierrejean]

Re : VBA & formule contenant une variable input box

bonjour LPandre

A tester

ActiveCell.FormulaLocal = "=SI(IV1<>0;IV1;SI(IU1=IU2;IV2/" & Var1 & ";""toto""))"

S'il n'est pas question d'exporter le fichier vers une version anglaise d'Excel
Pour une version anglaise ,je ne sais pas faire

Un Gaulois fier de l'etre

Edit: Salut Porcinet

 

[LPandre]

Re : VBA & formule contenant une variable input box

Merci Pierre Jean.
J'ai adapté et ça fonctionne.
Mais je ne pige pas pourquoi le code de Porcinet ne fonctionne pas.

Bref : MERCI à vous deux.

@+