affectation du résultat d'une formule dans une variable

[fleet21]

Bonsoir,

je cherche à affecter le résultat d'une formule dans une variable, du type :

HP1 = ('Données utiles'!G3-'Données utiles'!F3)*'Données utiles'!D3 et HP3 = HP1 + HP2

Les deux lignes ne fonctionnent pas.

 

[djidji59430]

Re : affectation du résultat d'une formule dans une variable

Bonjour,

Dans la charte, il est demandé de joindre un fichier test, ou le fichier, pour faciliter la compréhension des problémes.

Crdmt

 

[fleet21]

Re : affectation du résultat d'une formule dans une variable

il s'agit d"une problème de syntaxe, les deux exemples sont suffisants pour la compréhension

 

[fleet21]

Re : affectation du résultat d'une formule dans une variable

il s'agit d'un problème de syntaxe que je n'arrive pas à résoudre, les deux exemples sont pour le moment suffisants

 

[Staple1600]

Re : affectation du résultat d'une formule dans une variable

Bonsoir à tous

Je plussoie à ce que vient de dire djidji59430
fleet21
Joins ton fichier (puisqu'il existe déjà sur ton disque dur, cela nous évitera de perdre notre temps à recréer un fichier pré-existant)

NB: Quand on arrive sur un forum, la plupart du temps, on essaie de se plier aux us et coutumes de celui-ci.
(la charte est là cet effet 😉 )

Et si tu parcours les fils, tu verras que c'est un conseil récurent que l'on fait aux nouveaux membres.

 

[fleet21]

Re : affectation du résultat d'une formule dans une variable

voici le fichier en espérant que vous pourrez m'aider

 

[fleet21]

Re : affectation du résultat d'une formule dans une variable

la déclaration des variables dans les formules est incorrecte, quelqu'un pourrait-il regarder ?
Merci

 

[Dranreb]

Re : affectation du résultat d'une formule dans une variable

Bonsoir.

Vous pouvez écrire ça comme ça par exemple :

With Worksheets("Données utiles")
   HP1 = (.[G3].Value - .[F3].Value) * .[D3].Value
   HP2 = (hp - .[G3].Value) * .[E3].Value
   etc.
   End With

Ou bien vous pouvez charger les valeurs qu'il vous faut dans un petit tableau pour limiter les accès aux cellules, très pénalisant en temps d'exécution :

Dim T() As Variant
T = Worksheets("Données utiles").[D3:G4].Value
HP1 = (T(1, 4) - T(1, 3)) * T(1, 1)
HP2 = (hp - T(1, 4)) * T(1, 2)
etc.

 

[fleet21]

Re : affectation du résultat d'une formule dans une variable

le premier code est plus lisible et tout fonctionne.
Merci