Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Problème SOMME par Macro

demonsares

XLDnaute Junior
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 :

Code:
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
 

ROGER2327

XLDnaute Barbatruc
Bonjour.

Typez vos variables !
Placez

VB:
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

XLDnaute Junior
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.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…