Convertir une formule en VBA

[olivierd]

bonjour à tous,
J'essaie en vain d'écrire une formule de calcul en VBA pour l'intégrer à une macro... sans succès

Peut-être auriez-vous la gentillesse d'y jeter un oeil pour me débloquer ?

La formule qui fonctionne:

Sub test()
    
'FORMULE MAGIQUE qui ne marche pas
  With Range('L1')
.FormulaR1C1 = '=IF(RC[-4]=''Non-cadres'',IF(RC[-3]>20,(RC[-8]+RC[-7])*(7.5+0.55*(RC[-3]-20))*1.05, IF(RC[-3]>10,(RC[-8]+RC[-7])*(3+0.45*(RC[-3]-10))*1.05,IF(RC[-3]>5,(RC[-8]+RC[-7])*(1.25+0.35*(RC[-3]-5))*1.05,(RC[-8]+RC[-7])*0.25*RC[-3]*1.05))),IF(RC[-3]>20,(RC[-8]+RC[-7])*(9.5+0.65*(RC[-3]-20))*1.1, IF(RC[-3]>10,(RC[-8]+RC[-7])*(4+0.55*(RC[-3]-10))*1.1), IF(RC[-3]>5,(RC[-8]+RC[-7])*(1.75+0.45*(RC[-3]-5))*1.1),(RC[-8]+RC[-7])*0.35*RC[-3]*1.1))))'
 .AutoFill Range('L1:L' & Range('A65536').End(xlUp).Row)
End With
End Sub

Je joins un fichier de démo

merci d'avance pour votre aide
cordialement

Message édité par: olivierd, à: 02/05/2005 14:27

 

[olivierd]

oupps voici le fichier de démo
le fichier
:unsure:

Message édité par: olivierd, à: 02/05/2005 14:29

 

[Gibson94]

[file name=forum_olivierD.zip size=11810]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/forum_olivierD.zip[/file]

Salut Olivier
Je te renvoie ton fichier... Juste un problème de parenthèses dans ta ligne ....pas facile à trouver d'ailleurs.
A+....Gibson94

 

[olivierd]

Gibson94: tu es un Dieu pour moi :woohoo:
Merci pour ton temps et ta gentillesse, je vais regarder ta correction de plus prêt et essayer de l'intégrer à mon code
A bientôt
cordialement