Discussion :

[Pynouz]

Bonjour,

J'aimerai, comme le dit l'intitulé, insérer une formule dans une cellule. Mais j'ai une erreur 1004 (défini par l'application ou par l'objet) que je n'arrive pas à résoudre.
Voilà mon code :

Code :

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

1
2
3
4
cellule = Sheets("Budget").Cells(finblocWMS, ColCentrale + 13)
test = "ARRONDI(=" & cellule & "*Taux_Change*(1+Marge_Filiale);0)"
Sheets("Feuil4").Range(3, 1).FormulaLocal = test
'Taux_Change et Marge_Filiale étant des celulles renomé

J'espère que vous pourrez m'aider car je bloque depuis un petit moment la dessu.

Merci d'avance

[zyhack]

Bonjour

Code :

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

test = "ARRONDI(=" & cellule & "*Taux_Change*(1+Marge_Filiale);0)"

il n'y aurait pas une erreur dans la formule le = qui est mal placé ?
a modifier comme suit

Code :

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

test = "=ARRONDI(" & cellule & "*Taux_Change*(1+Marge_Filiale);0)"

[Pynouz]

Ah oui effectivement, je n'avai pas vu ceci.
C'est une faute de frappe de ma part lors du recopiage mais le problème reste le même avec un égale bien placé.
(je remet donc le code modifié)

Code :

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

1
2
3
cellule = Sheets("Budget").Cells(finblocWMS, ColCentrale + 13)
test = "=ARRONDI(" & cellule & "*Taux_Change*(1+Marge_Filiale);0)"
Sheets("Feuil4").Range(3, 1).Formula = test

[zyhack]

re

essaye en anglais

Code :

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

test = "=ROUND(" & cellule & "*Taux_Change*(1+Marge_Filiale);0)"

[Pynouz]

J'avai déjà essayé mais c'est toujours pareil.

[zyhack]

Mais c'est bien sur, c'était trop gros pour s'en appercevoir

dans cette ligne

Code :

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

Sheets("Feuil4").Range(3, 1).Formula = test

remplace Range par cells

Code :

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

Sheets("Feuil4").Cells(3, 1).Formula = test