Discussion :

[Darlink]

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 :

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

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 :

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

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.

[goldstar]

Bonjour,

Chez moi le code ci-dessous fonctionne

Code :

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

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,

[Darlink]

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 :

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

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 :

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

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

[anasecu]

Bonjour,

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 :

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

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é.

[Darlink]

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 !

[BENNASR]

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

Code :

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

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 !!

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).

[BENNASR]

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

Code :

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

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 :

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

Private Sub Worksheet_Change(ByVal Target As Range)