formule en vba

Bonjour à tous

Cette question est pour ma connaissance personnelle.
J'essaye de mettre en vba une formule avec des variables donc ma formule s'apparente à :

si j'écris comme ça ça ne fonctionne pas, erreur 1004:

Code:

---

1 2 3

montant1=range("J4") ... range("B10").formula="=(" & montant1 &" -E10+D10)/( "& montant1 &" + "& montant2 &" + "& montant3 &" + "& montant4 &"+ D10-E10+D11-E11+D12-E2+D13-E13)"

---

et si je l'écrit comme ça, ça fonctionne :

Code:

---

range("B10").formula="=(" & montant1 &" -E10+D10)/( """& montant1 &""" + """& montant2 &""" + """& montant3 &""" + """& montant4 &"""+ D10-E10+D11-E11+D12-E2+D13-E13)"

---

[/CODE]

Mais du coup dans ma formule, ça m'écrit mes nombres "montant" entre guillemet. Même si ça ne gêne pas le calcul, j'aimerai le faire sans quand même. au pire je peux évidemment passer ensuite par un recherche et remplace

Merci de vos lumières

Bonjour,

fait un debug.print ou un Msgbox sur cette chaine

Code:

---

"=(" & montant1 &" -E10+D10)/( "& montant1 &" + "& montant2 &" + "& montant3 &" + "& montant4 &"+ D10-E10+D11-E11+D12-E2+D13-E13)"

---

et ne soit pas avare quand tu écris du code : renseigne la propriété .Value sur tes Range, et rattache tes ranges aux feuilles d'appartenance

et regarde ce que ça donne
au besoin, copie nous le retour de cette chaine si tu ne voit pas le problème

Citation:

---

Envoyé par zertupo

si j'écris comme ça ça ne fonctionne pas, erreur 1004:

Code:

---

1 2 3

montant1=range("J4") ... range("B10").formula="=(" & montant1 &" -E10+D10)/( "& montant1 &" + "& montant2 &" + "& montant3 &" + "& montant4 &"+ D10-E10+D11-E11+D12-E2+D13-E13)"

---

---

Il est peu probable que cette ligne soit un copier/coller d'une ligne de code issue de l'éditeur VBA, étant donné la position des espaces (parfois manquants, parfois surnuméraires).
En particulier, en VBA, un & doit toujours être précédé et suivi d'un espace, comme tout opérateur.

Chez moi, ceci ne génère pas d'erreur.

Code:

---

Range("B10").formula = "=(" & montant1 & "-E10+D10)/(" & montant1 & "+" & montant2 & "+" & montant3 & "+" & montant4 & "+D10-E10+D11-E11+D12-E2+D13-13)"

---

Je pense donc que non seulement du mets des données fausses dans ta question mais surtout tu ne donnes pas toutes les données.
En particulier le contenu de tes 4 variables.
Je suppose qu'elles contiennent des nombres avec une partie décimale, non ?
Or Excel et VBA sont souvent en désaccord pour l'interprétation des date et des séparateurs décimaux.

Remplace Formula par FormulaLocal et ça devrait s'arranger.

Le debut.print m'affiche bien le calcul que je veux correctement.

Le formulaLocal finit de la même manière.

Oui ce n'était pas le copié de la formule exactement, les espaces demandés par "&" sont bien respecté, ci-joint le vrai code copié :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim montant1, montant2, montant3, montant4 As Double   montant1 = Range("J4") montant2 = Range("J5") montant3 = Range("J6") montant4 = Range("J7")       Range("B10").Formula= "=(" & montant1 & "-E10+D10)/(" & montant1 & "+D10-E10+ " & montant2 & "+D11-E11+" & montant3 & "+D12-E12+" & montant4 & "+D13-E13)"

---

peut être qu'il y a trop de variable, et excel n'arrive pas... Parce que si j'utilise qu'une seule variable, ça fonctionne.

merci

Bonjour,

et non la "formule" VBA est forcément fausse, il suffit juste de comparer le Debug.Print avec la vraie formule ‼
Sans non plus recourir à des variables …

___________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Le debug.print m'affiche

=(13000000-E10+D10)/(13000000+D10-E10+18794756,39+D11-E11+0+D12-E12+0+D13-E13)

donc je vois pas ce qu'il y a de faux qu'il ne peut pas afficher...

Citation:

---

Envoyé par zertupo

peut être qu'il y a trop de variable, et excel n'arrive pas... Parce que si j'utilise qu'une seule variable, ça fonctionne.

---

Si tu avais quelques centaines de variables, on aurait pu envisager cette hypothèse mais avec 4 variables, c'est fortement improbable.

Il est plus probables que ce soit le contenu d'une de tes cellules J qui pose problème.

Perso, quand j'ai testé ta formule

Déjà, tu devrais commencer par déclarer correctement tes variables.
Parce que dans ta déclaration, il n'y a que montant4 qui soit de type Double. Les autres sont de type Variant.
Tu pourras le vérifier en regardant dans la fenêtre des variables locales.

La bonne syntaxe est :

Code:

---

Dim montant1 As Double, montant2 As Double, montant3 As Double, montant4 As Double

---

Perso, quand je mets des entier dans tes variables, ça passe.
Quand on mets des décimales, ça génère une erreur.
Quand on remplace Formula par FormulaLocal, ça passe, même avec des décimales.

Mais puisque tu dis que tu as essayé et que ça n'est pas ça...

Citation:

---

Envoyé par zertupo

Le debug.print m'affiche
=(13000000-E10+D10)/(13000000+D10-E10+18794756,39+D11-E11+0+D12-E12+0+D13-E13)
donc je vois pas ce qu'il y a de faux qu'il ne peut pas afficher...

---

Sauf que Formula ne comprendra pas la virgule devant le 39.
Seul un FormulaLocal peut le comprendre.
Mais puisque tu dis que tu as testé et que ce n'est pas ça... (bis)

PS : Peu probable aussi que debug.print te renvoie exactement ça puisque dans ton code, il y a un espace derrière le second "E10+"

Cette formule fonctionne bien de mon côté via la propriété FormulaLocal sur une feuille de calculs vierge.
(Edit :   Menhir que je salue a été plus rapide …   Et salut joe !)

zertupo, essaye de ton côté avec ton code et s'il est toujours en échec,
le poster ici accompagné du classeur sans code enregistré au format xlsx …

C'est bon, c'était bien mes variables qui étaient mal déclarées... Je croyais qu'on pouvait les déclarer comme ça pour aller plus vite, et que ça fonctionnait..faut croire que non...

Merci en tout cas

:mouarf2:             :sm:

Mea culpa aussi pour le formulalocal qu'il faut utiliser ^^

Merci en tout cas, j'ai appris plein de choses aujourd'hui :)

Porter sur le monde un regard sans haine ^^

Citation:

---

Envoyé par zertupo

C'est bon, c'était bien mes variables qui étaient mal déclarées... Je croyais qu'on pouvait les déclarer comme ça pour aller plus vite, et que ça fonctionnait..faut croire que non...

---

C'est pourtant bien expliqué dans la doc officielle : https://msdn.microsoft.com/fr-fr/lib.../gg251750.aspx

Citation:

---

' Multiple declarations on a single line. AnotherVar is of type Variant
' because its type is omitted.
Dim AnotherVar, Choice As Boolean, BirthDate As Date

---