range.formula ne fonctionne pas, demande confirmation sur la cause

**pijaku** · 19/07/2017, 12h58

Bonjour,

Voici un moyen de contourner :

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
16
17
18
19
20
Sub formule()
Dim cell_devise As String, cell_vdevise As String, cell_devise1 As String, cell_vdevise1 As String
Dim valo As Double, valo2 As Double, valo3 As Double, valo4 As Double
 
cell_devise = "F5"
cell_vdevise = "F6"
cell_devise1 = "G5"
cell_vdevise1 = "G6"
 
valo2 = 1000000
valo = 850000
valo3 = Range(cell_devise).Value
valo4 = Range(cell_devise1).Value
 
Range(cell_devise).Formula = ""
Range(cell_devise1).Formula = ""
 
Range(cell_devise).FormulaLocal = "=" & valo3 + valo2 & "/" & cell_vdevise
Range(cell_devise1).FormulaLocal = "=" & valo4 + valo & " / " & cell_vdevise1
End Sub

EDIT : correction du code. copié/collé de la mauvaise macro...

**zertupo** · 19/07/2017, 13h56

si je tape la formule directement dans excel, ça fonctionne trés bien justement puisque c'est la formule de base inscrite justement, je veux juste actualiser la valeur au nominateur...

Je pensais que la source de l'erreur provenait de là aussi, mais ce n'est pas le cas, puisque si je change la valeur au denominateur et que je met la variable relative à G5, ça ne fonctionne pas non plus..

La cellule contient une formule (via un add-in) qui va chercher sur internet de manière continue une donnée

l'add-in est bien validé dans les références.

J'ai essayé de remplacé ma cell_vdevise1 par une fonction rechercheh mais même erreur...

j'arrive pas à comprendre quand même, pourquoi la ligne précédente fonctionne, et celle ci non...

Je continue quand même à chercher les alternatives possibles, à chercher des solutions

**zertupo** · 19/07/2017, 14h10

Bon, j'ai trouvé un subterfuge qui fonctionne, c'est pas trés beau mais bon ça fonctionne... Je suis par contre toujours preneur si quelqu'un sait pourquoi ça ne fonctionnait pas à la base et comment il faut procéder pour que ça fonctionne avec formula...

subterfuge :

je code un recherche et remplace sur la valeur, que je remplace par celle que je veux.

**eriiic** · 19/07/2017, 17h17

Bonjour,

quand même bizarre ton erreur 1004 là-dessus...

idée 1 :
la feuille est-elle active ? Si non est-ce mieux en l'activant ?

idée 2, rajouter un étage :
mettre ta formule utilisant l'add-in dans une cellule quelconque et dans O2: =ta_cellule_quelconque

idée 3, pas beau mais on n'est plus à ça près :
... & cdbl(range(cell_devise1).text) + ...
et tant qu'on y est :
... & range(cell_devise1).value2 + ...

**zertupo** · 19/07/2017, 19h42

la feuille est active puisque la ligne précédente fonctionne

j'ai essayé vos idées, même problème

**Jean-Philippe André** · 20/07/2017, 10h47

Salut,

je reprends le fil avec quelques etapes loupees, du coup pourrais-tu nous redonner ton code actuel stp ?

**zertupo** · 20/07/2017, 11h12

Envoyé par pijaku

Bonjour,

Voici un moyen de contourner :

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
16
17
18
19
20
Sub formule()
Dim cell_devise As String, cell_vdevise As String, cell_devise1 As String, cell_vdevise1 As String
Dim valo As Double, valo2 As Double, valo3 As Double, valo4 As Double
 
cell_devise = "F5"
cell_vdevise = "F6"
cell_devise1 = "G5"
cell_vdevise1 = "G6"
 
valo2 = 1000000
valo = 850000
valo3 = Range(cell_devise).Value
valo4 = Range(cell_devise1).Value
 
Range(cell_devise).Formula = ""
Range(cell_devise1).Formula = ""
 
Range(cell_devise).FormulaLocal = "=" & valo3 + valo2 & "/" & cell_vdevise
Range(cell_devise1).FormulaLocal = "=" & valo4 + valo & " / " & cell_vdevise1
End Sub

EDIT : correction du code. copié/collé de la mauvaise macro...

désolé je n'avais pas vu votre commentaire...

non déjà essayé ça ne fonctionne pas

**Jean-Philippe André** · 20/07/2017, 11h16

Peux tu etre plus precis que

ça ne fonctionne pas

stp ?

Un numero d'erreur ? lequel ?

On est sur une erreur tres simple a gerer, tres etonnant qu'on ait toujours pas reussi a la resoudre

**zertupo** · 20/07/2017, 11h17

Envoyé par Jean-Philippe André

Salut,

je reprends le fil avec quelques etapes loupees, du coup pourrais-tu nous redonner ton code actuel stp ?

Bonjour

alors mon code de base qui ne fonctionne pas sans explication précise, juste des suppositions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
cell_devise="F5"
cell_vdevise="F6"
 
cell_devise1="G5"
cell_vdevise1="G6"
 
valo2 = 1 000 000
valo = 850 000
 
 
range(cell_devise).formula="= & range(cell_devise) - valo2 & "/" & cell_vdevise
range(cell_devise1).formula="= & range(cell_devise1) + valo & "/" & cell_vdevise1

transformé par un replace qui fonctionne lui :

Code :

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

1
2
3
4
5
valeur=valo*range(cell_vdevise1)
valo=range(cell_devise1) + valo
range(cell_devise).select
cells.find(what:=valeur).activate
cells.replace what:=valeur, replacement:=valo

J'ai pas cliqué sur résolu, car on n'a toujours pas trouvé de solution, juste une alternative... mais s'il faut cliquer sur résolu alors je le ferai...

**zertupo** · 20/07/2017, 11h20

Envoyé par Jean-Philippe André

Peux tu etre plus precis que

stp ?

Un numero d'erreur ? lequel ?

On est sur une erreur tres simple a gerer, tres etonnant qu'on ait toujours pas reussi a la resoudre

désolé

toujours la même erreur 1004 que précédemment ... Moi je pense qu'il n'aime pas la cellule de référence...j'ai peut être pas du activer quelque chose, pourtant j'ai regardé... je vais mettre résolu, à moins que quelqu'un utilise bloomberg et sache comment passer outre...

**Jean-Philippe André** · 20/07/2017, 11h27

Bon alors sur les deux lignes en question

Code :

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

1
2
range(cell_devise).formula="= & range(cell_devise) - valo2 & "/" & cell_vdevise
range(cell_devise1).formula="= & range(cell_devise1) + valo & "/" & cell_vdevise1

on corrige deja avec

Code :

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

1
2
range(cell_devise).formula="=" & range(cell_devise).Value - valo2 & "/" & cell_vdevise
range(cell_devise1).formula="=" & range(cell_devise1).Value + valo & "/" & cell_vdevise1

Invité · 20/07/2017, 11h27

Bonjour,

Tu peux toujours essayer ton code sur d'autres cellules, voir sur un autre classeur.
Avec les correctifs que l'on t'a proposé je ne vois pas pourquoi sa ne marche pas chez toi en particulier.

**zertupo** · 20/07/2017, 11h59

pour les guillemets c'est moi qui ai mal recopié, mea culpa...

pour le tester avec d'autre cellule, déjà fait... même erreur.

Le plus surprenant, c'est que la première ligne fonction c'est bon, mais pas la seconde... et si je remplace la cellule dénominatrice dans la seconde, par celle de la première, ça ne fonctionne pas non plus...

**Jean-Philippe André** · 20/07/2017, 12h16

OK, on avancdeja esi la premiere fonctionne

pour la seconde, quel est le message d'erreur ?

Essaie avec

Code :

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

range(cell_devise1).formula="=" & cell_devise1 & "+" & valo & "/" & cell_vdevise1

**zertupo** · 20/07/2017, 14h07

toujours la même erreur 1004, Erreur définie par l'application ou par l'objet.

c'est toujours la même

ici je pense que ça peut pas marcher avec votre proposition car ça fait une circulaire F6=F6 + chiffre ...

**Jean-Philippe André** · 20/07/2017, 14h20

OK,

du coup on peut avoir les valeurs exactes de
cell_devise1, valo & cell_vdevise1 ?

et je pense honnetement que tu as une chose que tu oublies de nous dire...

mets en PJ ton fichier, qu'on arrete de tourner autour du pot =]

**eriiic** · 20/07/2017, 23h01

D'accord avec Jean-Philippe, je serais curieux de connaitre la réponse finale :-)
Mais s'il faut installer un add-in... :-s
Accessoirement tu pourrais tester ceci :

Code :

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

1
2
Range("A1")=Range("G5").value
Range(cell_devise1)=Range("G5").value

et dire si tu as bien la valeur en A1 et G5

**zertupo** · 21/07/2017, 10h18

Je peux pas mettre value, car je veux que la valeur soit actualisé constamment par la cell_vdevise1 qui elle même s'actualise tout le temps à la seconde prêt...

la cell_vdevise1 contient =BDP("EURUSD Curncy";"last_price")

mais je sais pas si ça va vous aider...

Je vais pas vous prendre plus de temps non plus, l'alternative "recherche et remplace" fonctionne donc voilà, on va rester pragmatique ^^ je vais mettre résolu

Merci en tout cas pour votre aide.

**Jean-Philippe André** · 21/07/2017, 10h24

Bon,

alors cette information aurait du nous etre donnee des le debut

BDP c'est une formule bloomberg, qui fourniut effectivement un flux financier en temps reel.

Donc si on avait eu cette information depuis le debut, on n'aurait pas perdu tout ce temps a jouer :/

Dans ta formule tu vas donc forcement passer par l'adresse de ta cellule.

Peux tu finir de repondre a ma question stp ?

du coup on peut avoir les valeurs exactes de
cell_devise1, valo & cell_vdevise1 ?