Formule EXCEL en VBA erreur 1004

Bonjour,

J'ai une feuille EXCEL comportant de nombreuses formules, j'ai fais un bouton de RAZ de contenu de mes tableaux comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Reset_FLAT() Range("C40:L43").Activate Selection.ClearContents Range("C29").Select ActiveCell.FormulaR1C1 = "7.85" Range("C29").Select Selection.Copy Range("c39:L39").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("C29").Select Application.CutCopyMode = False   Range("C40").Activate End Sub

---

Et je voudrai à présent créer un autre bouton permettant en cas d'erreur de manipulation de remettre à zéro une formule de VLOOKUP.
Pour ce faire j'ai mis dans mon module VBA ceci :

Code:

---

1 2 3 4

Range("e29").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(E29;ACIERS!1:65536;2;FALSE)" Range("e29").Select Selection.Copy

---

Je selectionne ma cellule "VIDE" et j'y inclus cette formule pour la recopié sur d'autre cellules.

Mais VBA ne comprend pas cette formule apparemment !!!! et pourtant elle fonctionne très bien dans ma feuille de calcul , je suis en environnement Anglais ...

Merci pour aide .

Salut,

Une première solution arrive toute cuite depuis la :faq:
http://excel.developpez.com/faq/?pag...eurFormulaR1C1

Sinon, la formulaR1C1 n'attend pas la même chose que la plus rapide Formula.
Encore dans la :faq: en tapant en mot clé FormulaR1C1
http://excel.developpez.com/faq/?page=Formules#Formula

Toujours privilégier un peu de recherche personnelle dans la :faq: avant de poster :ccool:

Merci pour toutes ces précisions...

J'ai modifié ma variable comme suit (en remplacant les ";" par des "," ):

Code:

---

1 2 3 4

Range("c29").Select ActiveCell.FormulaR1C1Local = "=VLOOKUP(e25,ACIERS!1:65536,2,FALSE)" Range("c29").Select Selection.Copy

---

La réponse reste la même !

Si tu utilises la R1C1, ta formule doit aussi être en R1C1
Donc soit tu passes sur Formula et tu gardes ta formule telle quelle,
soit tu change le format en R1C1 (e25 = R25C5)