inserer formule en vb

[steffy]

Bonjour,

Je débute en VBS et je souhaite inserer des formules dans des cellules à partir de mon script.
J'ai le code suivant qui me donne une erreur d'exécution :
formule = "=IF(RC[3]=13,bon,RC[4]*10)"
FeuilXLS_dest.Cells(indiceLgfonct, "B").FormulaR1C1 = formule

J'ai fait pas mal de recherches et je ne comprends pas ou est l'erreur.

Merci de votre aide

 

[pierrejean]

Re : inserer formule en vb

bonjour steffy

et bienvenue sur XLD

A tester

formule = "=IF(RC[3]=13," & """bon""" & ",RC[4]*10)"
FeuilXLS_dest.Cells(indiceLgfonct, "B").FormulaR1C1 = formule

 

[tototiti2008]

Re : inserer formule en vb

Bonjour steffy, Bonjour PierreJean,

ou alors (c'est pour chipoter) :

formule = "=IF(RC[3]=13,""bon"",RC[4]*10)"

 

[pierrejean]

Re : inserer formule en vb

Re

Salut Tototiti 🙂

Qu'est-ce que tu chipotes bien !!!!

 

[tototiti2008]

Re : inserer formule en vb

eh, on économise quand même 10 caractères sur la ligne, c'est pas négligeable 😉
ça fatigue quand même moins les yeux 🙂

le problème c'est qu'avec tes réponses il n'y a souvent rien à ajouter, alors si je peux trouver un détail...

 

[steffy]

Re : inserer formule en vb

merci beaucoup pour votre réactivité, ca marche bien maintenant.
J'ai une autre question, quand je fais des macros via un script VBS , la syntaxe ne doit pas être tout à fais la même qu'en VBA parce que j'ai souvent des erreurs du style fin d'instruction attendue
ex :
FeuilXLS_dest.Range("Z17").Select
Selection.AutoFill Destination:=Range("Z17:Z3777"), Type:=xlFillDefault

merci pour votre aide

 

[tototiti2008]

Re : inserer formule en vb

Re,

là par contre, comme je ne connais pas trop la différence VBS/VBA, je vais avoir du mal à te dire... un peu au pif, j'enlèverais ", Type:=xlFillDefault" pour voir

 

[steffy]

Re : inserer formule en vb

sniff ça ne marche pas.
J'aimerais trouver une aide qui indique les différences entre VBA et VBS parce que je perd un temps fou pour des "betises".Je pense que j'ai des erreurs syntaxiques.

 

[tototiti2008]

Re : inserer formule en vb

essaye peut-être avec :

FeuilXLS_dest.Range("Z17").Select
Selection.AutoFill Destination:=FeuilXLS_dest.Range("Z17:Z3777"), Type:=xlFillDefault

ou bien

FeuilXLS_dest.Range("Z17").AutoFill Destination:=FeuilXLS_dest.Range("Z17:Z3777"), Type:=xlFillDefault

 

[steffy]

Re : inserer formule en vb

Bonjour,

Tototiti, j'ai dejà essayé n rajoutant le nom de la feuille comme tu me le conseilles mais ça ne marche pas non plus. Je ne sais plus comment faire !!!

 

[steffy]

Re : inserer formule en vb

bon j'ai trouve une solution mais je pense qu'il y a quand même moyen de se servir des propriétés de Selection

voila comment j'ai détourné le problème :
FeuilXLS_dest.Range("Z17").Copy FeuilXLS_dest.Range("Z17:Z3777")