Calcul dans cellule excel via vba

Bonjour,

J'ai besoin de vos compétences concernant l'intégration d'une formule dans une cellule excel.
Prenons un exemple bidon, disons que je dois calculer 5*H, avec H=1.

Code:

---

1 2 3 4 5 6

Sub Test()   H=1 Cells(1,1)=5*H+1   End Sub

---

Je comprends bien que le logiciel n'arrive pas à interpréter H, j'ai donc essayé ceci:

Code:

---

1 2 3 4 5 6

Sub Test()   H=1 Cells(1,1)=5*" & H & "+1   End Sub

---

Mais cela ne fonctionne pas non plus. A partir de là c'est au dessus de mes compétences. Je ne sais pas s'il faut adapter une quelconque dim, ou si c'est même faisable.

ps: je ne veux pas juste écrire le résultat dans la cellule car en réalité il y a des cellules ciblées dans cette formule et mon code vba fait que cette cellule est très régulièrement mise à jour (plus rapide de mettre à jour via excel que de réécrire la ligne).

Merci d'avance pour vos suggestions si vous en avez.

Bonjour,

Chez moi le code ci-dessous fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   Dim H As Integer   H = 4 Cells(1, 1) = 5 * H + 1   End Sub

---

Cordialement,

Effectivement, mais je me suis malheureusement mal exprimé et mal écrit mes lignes de code >< ....

En fait je souhaite que la formule reste écrite en intégralité dans la formule, juste en remplaçant H par la valeur contenue dans le code.

Je réécris le dernier code :

Code:

---

1 2 3 4 5 6

Sub Test()   H = 4 Cells(1, 1) = "=5 * H + 1"   End Sub

---

Seulement ceci me donne =5*H+1 dans la cellule, sans modifier le H, et ce code ci ne fonctionne pas non plus :

Code:

---

1 2 3 4 5 6

Sub Test()   H = 4 Cells(1, 1) = "=5 *" & H & "+ 1"   End Sub

---

Bonjour
Dans la limite de ma compréhension ce code fonctionne et donne comme résultat 6 dans la cellule A1 :calim2:

Code:

---

1 2 3 4

Sub Test() H = 1 Cells(1, 1) = 5 * H + 1 End Sub

---

la suite de votre discussion est incompréhensible au moins pour moi !!

Citation:

---

ps: je ne veux pas juste écrire le résultat dans la cellule car en réalité il y a des cellules ciblées dans cette formule et mon code vba fait que cette cellule est très régulièrement mise à jour (plus rapide de mettre à jour via excel que de réécrire la ligne).

---

Rebonjour
si tu cherche à ce que le H soit variable tu peux faire de cette façon

Code:

---

1 2 3 4 5

Sub Test() Dim H As Variant H = Application.InputBox("Introduire la valeur de H", "Valeur de H", Type:=1) Cells(1, 1) = 5 * H + 1 End Sub

---

Si non tu peux déclarer que le H égal à la cellule B2 par exemple et tu utilise la fonction worksheetChange

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)

---

Bonjour,

Citation:

---

Envoyé par Darlink

En fait je souhaite que la formule reste écrite en intégralité dans la formule, juste en remplaçant H par la valeur contenue dans le code.

---

Code:

---

1 2 3 4 5 6

Sub Test()   H = 4 Cells(1, 1).FormulaLocal = "=5*" & H & "+1"   End Sub

---

Ainsi ta formule restera dans la cellule mais H sera figé.

Merci à toutes les personnes qui ont essayé de m'aider malgré une compréhension générale ^^

Mais c'est anasecu qui a trouvé la solution que je cherchais :p. H sera figé et cela me va très bien

Merci encore, bonne journée !