XL 2010 Problème SOMME par Macro

[demonsares]

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

 

[JBARBE]

Bonjour à tous,
Peux-tu nous dire quelle est la valeur NumCol2 ?
Merci & bonne journée !

 

[ROGER2327]

Bonjour.

Typez vos variables !
Placez

Dim a#, b#

au début de la procédure est les choses rentrent dans l'ordre.


Bonne journée.

ℝOGER2327
#8422

Samedi 14 Sable 144 (Don Quichotte, champion du monde - fête Suprême Quarte)
24 Frimaire An CCXXV, 4,0309h - oseille
2016-W50-3T09:40:27Z

 

[demonsares]

Bonjour JBARBE et ROGER2327,

Tout d'abord, merci de vos retours rapides !
- JBARBE : NumCol2 = 686
- En effet ! J'ai posé :
Dim a As Integer
Dim b As Integer
Cela fonctionne !

Je ne type jamais mes variables car je n'y comprends rien... Pour moi tout est similaire.