Modifier une formule avec VBA pour inclure les nouveaux classeur

Résolu/Fermé
Arbra - 17 août 2016 à 16:49
 Arbra - 17 août 2016 à 17:47
Bonjour,

J'ai un soucis avec un code VBA, je cherche a compléter une formule excel existante lorsque je créé un nouveau classeur. La partie soulignée est la ou je recois une erreur, j'ai essayé beaucoup de formulations mais aucune ne semble marcher.

Sub Macro1 ()
Sheets("Part 1").Select
Sheets("Part 1").Copy Before:=Sheets(5)
Sheets("Part 1 (2)").Select
Sheets("Part 1 (2)").Name = "New Part"
Sheets("Raw Materials").Select
Range("J4").Select
ActiveCell.FormulaR1C1 = FormulaR1C1 & "+SUMIF('New Part'!$F$9:$F$17,B4,'New Part'!$V$9:$V$17)"
End Sub

Merci de votre aide
A voir également:

1 réponse

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
17 août 2016 à 17:07
bonjour,

Sans regarder en détail votre code ... je pense que tu devrais déjà utiliser FormulaLocal au lieu de R1C1
La syntaxe pour les utiliser étant très différentes
Par exemple :
ws.Range("A14").FormulaLocal = "=SOMME(A4:A6)"
ws.Range("A15").FormulaR1C1 = "=Sum(R[-11]C:R[-9]C)"

NB : si ton excel est en Anglais, tu écris SUM au lieu de SOMME dans le formulaLocal bien entendu.

0
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
17 août 2016 à 17:08
Sans oublier que dans ton code actuel .. tu as oublié de respécifier la RANGE devant formulaR1C1
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 ....
0
Merci beaucoup, avec ActiveCell.FormulaLocal = ActiveCell.FormulaLocal & "etc..."
Ça marche !
0