Aide pour calcul de deux textbox

[salhisarra]

Bonjour,

Voilà j'ai un petit soucis de calcul avec VBA, les résultats que m'affiche VBA sont faux alors qu'hier en utilisant cette méthode tout marché correctement.

J'ai fais un petit test en page 6 de l'userform je veux faire la moyenne de deux chiffres ajouté ds les deux textbox qu'on affiche dans le label133 . Je ne comprend pk sa m'affiche des résultats incohérents.

 

[CHALET53]

Re : Aide pour calcul de deux textbox

Le format est un format Texte : il colle les deux nombres avant de les diviser par 2
45 en 1
5 en 2
label133= 455/2 227.5

a+

 

[salhisarra]

Re : Aide pour calcul de deux textbox

d'accord merci. Tu saurais comment je pourrais faire pr prendre la valeur stp ?

 

[job75]

Re : Aide pour calcul de deux textbox

Bonjour salhisarra, Edit : salut CHALET53,

Private Sub CommandButton4_Click()
Label133 = (Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox2, ",", "."))) / 2
End Sub

A+

 

[salhisarra]

Re : Aide pour calcul de deux textbox

Merci nickel

 

[job75]

Re : Aide pour calcul de deux textbox

Re,

Une autre solution qui ne compte pas une TextBox si elle n'est pas numérique :

Private Sub CommandButton4_Click()
Dim n1#, n2#, n As Byte
If IsNumeric(Replace(TextBox1, ".", "")) Then _
  n1 = Val(Replace(TextBox1, ",", ".")): n = 1
If IsNumeric(Replace(TextBox2, ".", "")) Then _
  n2 = Val(Replace(TextBox2, ",", ".")): n = n + 1
If n Then Label133 = (n1 + n2) / n Else Label133 = ""
End Sub

Tout dépend bien sûr de ce que l'on veut faire.

A+

 

[laetitia90]

Re : Aide pour calcul de deux textbox

bonjour toutes ,tous
dans certains cas marche egalement en ecrivant comme cela

Label133 = (TextBox1 - -TextBox2) / 2