Discussion :

[svetlan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[Jean-Philippe André]

Salut,

Une première solution arrive toute cuite depuis la
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 en tapant en mot clé FormulaR1C1
http://excel.developpez.com/faq/?page=Formules#Formula

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

[svetlan]

Merci pour toutes ces précisions...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Jean-Philippe André]

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)