addition dans un formulaire

bonjour a tous

j'ai mis une addition dans un formulaire afin d'obtenir le résultat sur une cellule

Code:

---

1 2	ActiveCell.Value = Val(stock_actuel1 + quantité1)

---

et à la place j'obtient une concatenation des 2 chiffres
exemple si j'ai 64 en stock_actuel1 et 2 en quantité1
je voudrait 66, hors j'obtiens 642

comment faire car étrangement j'ai dans un autre formulaire

Code:

---

1 2	ActiveCell.Value = Val(stock_actuel1 - quantité1)

---

qui fonctionne très bien

et si tu essayes un truc du genre?

Code:

---

1 2	ActiveCell.Value = SUM(stock_actuel1 , quantité1)

---

Bonjour

Le + est l'ancien symbole de concaténation du Basic (maintenant remplacé par &.
Essaye ça:

Code:

---

Val(stock_actuel1) + Val(quantité1)

---

Edit: on peut d'ailleurs utiliser le Val de façon systématique sur les zones de formulaire qui contiennent des chiffres. Attention à l'erreur si la zone contient un valeur texte.

ça ne fonctionne pas, il me répond sub ou fonction non définie

bonjour bosk Emmanuelle fgiambelluco le forum le principe
val accepte que le point??

Code:

---

ActiveCell = (Val(TextBox1) + (TextBox2))

---

ou

Code:

---

ActiveCell = (CDbl(TextBox1) + (TextBox2))

---

Re
ote moi d'un doute, ty as bien écrit ça :

Code:

---

ActiveCell.Value = Val(stock_actuel1) + Val(quantité1)

---

Edit : Bonjour laetitia
C'est vrai qu'avec Val on a un problème de symbole de décimale
Edit 2 : je viens de tester
Val : si on utilise la , il ne prend que la partie entière
CDbl : plante si on utilise le .

le code

Code:

---

1 2	ActiveCell.Value = Val(stock_actuel1) + Val(quantité1)

---

fonctionne
impec

merci a vous

par contre je me rend compte que j'ai pas testé avec des chiffres a virgule.

mais ici je n'additionne que des unités complettes
pas de problème de décimal

re fgiambelluco j 'ai tester CDbl avec le point chez moi ca plante pas bizarre??
le calcul se fait sans pb...


ps : on peut aussi forcer l'utilisateur a utiliser seulement les chiffres plus point ou virgule 2 exemples interessant

Code:

---

1 2 3

Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger) If keyAscii = Asc(",") Then keyAscii = Asc(".") End Sub

---

Code:

---

1 2 3

Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger) If InStr("0123456789.", Chr(keyAscii)) = 0 Then keyAscii = 0 End Sub

---

Re bonjour
Laetitia
En fait moi j'utilise ça pour changer les , en .

Code:

---

1 2 3

If KeyAscii = 44 Then KeyAscii = 46 End If

---

Mais ton code est plus propre et surtout plus lisible, je me mets ça de coté pour plus tard :ccool:

je viens de testé un autre cas de figure avec chiffre a virgule et ça plante, car j'obtien un nombre entier

Code:

---

1 2	total1 = Val(prix1) * Val(quantité1)

---

auparavant cela fonctionnait car la valeur de prix1 était obtenue par un principe de "ActiveCell.Offset(0, 2).Select"

mais j'ai voulue affiné en créant un principe de VLookup pour eviter les select

j'ai essayé

Code:

---

1 2	total1 = (CDbl(prix1) * (quantité1))

---

mais ça plante

Re
pour utiliser Val en toute sérénité, on peut faire:

Code:

---

total1 = Val(Replace(prix1, ",", ".")) * Val(Replace(quantité1, ",", "."))

---

Je sais, ça commence à faire bricolage !:?

oui, mais du bon bricolage

ça fonctionne

merci