Discussion :

[bosk1000]

bonjour a tous

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

qui fonctionne très bien

[EmmanuelleC]

et si tu essayes un truc du genre?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fgiambelluco]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bosk1000]

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

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fgiambelluco]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 .

[bosk1000]

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fgiambelluco]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bosk1000]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais ça plante

[fgiambelluco]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je sais, ça commence à faire bricolage !

[bosk1000]

oui, mais du bon bricolage

ça fonctionne

merci