Avec vba, écrire une formule dans une cellule

PascalXLD

XLDnaute Barbatruc

• 9 Janvier 2009

• #2

Re : Avec vba, écrire une formule dans une cellule

Bonjour

il faut l'ecrire en anglais

if(isnumber

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 9 Janvier 2009

• #3

Re : Avec vba, écrire une formule dans une cellule

RE

Sinon tu as un ' qui traine "=SI(ESTNUM(A"'&

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 9 Janvier 2009

• #4

Re : Avec vba, écrire une formule dans une cellule

Bonjour,

Code:

sheets(2).Range("A" & cpt).Formulalocal = "=SI(ESTNUM(A" & (cpt - 1) & ");A" & (cpt - 1) & " + 1 ; 1)"

Edit: ouppsss, suis à la bourre moi, salut Pascal 🙂

 

Vote positif 0 Vote négatif

L

Lsg

Guest

• 9 Janvier 2009

• #5

Re : Avec vba, écrire une formule dans une cellule

Merci skoobi. C'était toi qui avait raison.
Tu m'as fait gagner pas mal de temps parceque j'ai cherché la solution pendant TRES LONGTEMPS !!!
Quelqu'un peut m'expliquer la différence ? A quel moment utiliser .formula et .formulalocal ?


Merci aussi à toi PascalXLD. Même si ce n'était pas la solution, c'est chouette d'avoir répondu et essayé.

Bonne journée, bon week-end.

Cordialement.


Lsg

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Janvier 2009

• #6

Re : Avec vba, écrire une formule dans une cellule

Bonjour à tous,

avec Formula tu dois mettre la formule en anglais, comme la précisé PascalXLD, avec FormulaLocal tu peux la mettre dans la langue d'Excel... ce qui veut dire que ton code ne fonctionnera que sur des Excel français..

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 9 Janvier 2009

• #7

Re : Avec vba, écrire une formule dans une cellule

RE

j'avais oublié de préciser qu'écrivant la formule en anglais il faut remplacer les ; par des ,

Worksheets(2).Range("A" & cpt).Formula = "=IF(isnumber(A" & (cpt - 1) & "),A" & (cpt - 1) & " + 1 , 1)"

 

Vote positif 0 Vote négatif

P

philmascio

Guest

• 23 Septembre 2011

• #8

Re : Avec vba, écrire une formule dans une cellule

J'ajouterais au propos de PascalXLD que non seulement il faut remplacer les ; par des , mais que les , présentes dans les nombres (séparateur décimal) sont automatiquement remplacées par des ; ce qui peut poser de sérieux problèmes.

J'ai donc opté pour .FormulaLocal qui règle tous mes problèmes.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 23 Septembre 2011

• #9

Re : Avec vba, écrire une formule dans une cellule

Bonjour philmascio,

Dans Formula, le séparateur décimal doit être le point

 

Vote positif 0 Vote négatif

C

Camille Pollita

Guest

• 9 Août 2012

• #10

Re : Avec vba, écrire une formule dans une cellule

Bonjour à tous,

Je viens vers vous pour le même type de problème que je n'arrive pas à résoudre malgré vos bons conseils.

Voici mon script:

Cells(12, 3).Select

Dim onglet As String
client = "dupont"
ActiveCell.FormulaLocal = "=RECHERCHEV($B6,'[Evolution compte.xls] " & client & "'$C$9:$BE$149;$H$6,FAUX)"

Erreur d'éxécution 1004
Erreur définie par l'application ou par l'objet.

Je n'arrive pas à trouver le problème.
Merci d'avance pour votre aide 🙂

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Août 2012

• #11

Re : Avec vba, écrire une formule dans une cellule

Bonjour Camille,

Bienvenue sur XLD,

Si Formula, alors :
noms de fonctions en anglais
séparateur d'arguments : virgule
séparateur décimal : point

Si FormulaLocal :
noms de fonctions en français
séparateur d'arguments : point-virgule
séparateur décimal : virgule (peut-être en fonction des paramètres régionaux)

essaye peut-être

Code:

ActiveCell.FormulaLocal = "=RECHERCHEV($B6;'[Evolution compte.xls]" & client & "'!$C$9:$BE$149;$H$6;FAUX)"

 

Vote positif 0 Vote négatif

C

Camille Pollita

Guest

• 9 Août 2012

• #12

Re : Avec vba, écrire une formule dans une cellule

Merci pour ta réponse. Effectivement j'avais un mléange de virgule et de point virgule dans ma formule .

Mai smême en essayant avec des virgules ou des point-virgule ça ne marche pas 🙁

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 9 Août 2012

• #13

Re : Avec vba, écrire une formule dans une cellule

Re,

Dans la réponse que je t'ai faite, j'ai enlevé un espace et ajouté un "!" dans ta formule, regarde si ta version correspond

 

Vote positif 0 Vote négatif

T

tcarrier

Guest

• 11 Mars 2015

• #14

Re : Avec vba, écrire une formule dans une cellule

Bonjours, pour faire suite à cette discusion, j'essai de faire fonctionné le code suivant et j'ai toujours des erreurs de compilation. Est-ce que quelqu'un peu m'aider

......
Dim nom As String
.....

Sheets("Liste_Facture").Range("E" & Target.Row) = "=SI(ESTERREUR(CELLULE("contenu";"nom"!G42));"";CELLULE("contenu";"nom"!G42))"

J'ai toujours une erreur de compilation du ("contenu"), j'imagine que ma variable "nom" ne fonctionnera pas non plus ???

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Mars 2015

• #15

Re : Avec vba, écrire une formule dans une cellule

Bonjour,

si "contenu" et "nom" sont des variables, essaye peut être ceci :

Code:

Sheets("Liste_Facture").Range("E" & Target.Row) = "=SI(ESTERREUR(CELLULE(" & contenu & ";" & nom & "!G42));"";CE LLULE(" & contenu & ";" & nom & "!G42))"

non testé...

bonne journée
@+

 

Vote positif 0 Vote négatif