Problème SOMME par Macro
Bonjour à toutes, à tous et le forum.
Voila, je suis en trian de réaliser une macro. Celle-ci réalise une somme. Mais actuellement j'ai un problème et je ne trouve pas de solutions sur internet... Voici la macro :
a = InputBox("Qu'elle est la consigne sur l'étuve : °C ")
b = InputBox("Qu'elle est la tolérance sur l'étuve : ± °C ")
Cells(2, NumCol2 + 1) = "Tolérance Haute"
Cells(3, NumCol2 + 1) = "Consigne"
Cells(4, NumCol2 + 1) = "Moyenne"
Cells(5, NumCol2 + 1) = "Tolérance Basse"
MsgBox (a)
MsgBox (b)
range(Cells(10, NumCol2 + 2), Cells(10, NumCol2 + 8)) = a + b
range(Cells(3, NumCol2 + 2), Cells(3, NumCol2 + 8)) = a
range(Cells(5, NumCol2 + 2), Cells(5, NumCol2 + 8)) = (a - b)Je rentre a = 64 et b = 2
La Tolérance Basse se réalise parfaitement en faisant 64 - 2 = 62.
La valeur se remplie bien dans ma plage de cellule souhaitée.
La moyenne se réalise parfaitement pour chaque colonne.
La valeur se remplie bien dans ma plage de cellule souhaitée.
La Consigne se réalise parfaitement en étant égale à 64.
La valeur se remplie bien dans ma plage de cellule souhaitée.
La Tolérance Haute NE se réalise PÄS parfaitement en faisant 64 + 2 = 642
La valeur se remplie bien dans ma plage de cellule souhaitée.
J'espère qu'une personne à une solution...
Cordialement
Bonjour,
remplace la ligne de la tolérance haute par celle ci-dessous:
Range(Cells(10, NumCol2 + 2), Cells(10, NumCol2 + 8)) = Val(a) + Val(b)La fonction val() transforme a et b en nombre.
Dis moi si ça te convient,
RemBabar
Bonjour RemBabar,
C'est avec succès et gaieté que je te confirme que cela fonctionne !
Super, je n'y avais pas pensé et j'avais rien trouvé auparavant !
Il était aussi possible de typer les variables.
En effet ! J'ai posé :
Dim a As Integer
Dim b As Integer Cela fonctionne !
Mais je ne comprends pas comment typer mes variables... Donc voila pourquoi je ne le fais jamais...