Rafraichissement d un userform

Version imprimable

Bonjour,

J'ai un userform avec un Textbox a qui je rajoute la valeur d un autres textbox. Il me change bien ma valeur dans ma base de donnée par contre le Textbox ou celui ci doit ce rajouter, reste vite après une opération.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Ajout_stock_Click()
 
 
    Sheets("Base de données").Activate
    Columns("A").Select
 
    Set c = Selection.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If c = "" Then
        UserForm1.Hide
    End If
    c.Activate 'active la cellule trouvée
 
    TextBox22.Value = TextBox22.Value + TextBox21.Value
    ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value + TextBox21.Value
    TextBox22.Value = stock_reel
 
End Sub

20/12/2007, 17h47
patbou
bonjour,

la valeur d un textbox est de type string.
convertis les valeurs en numérique avant de réaliser l operation

Citation:

Val, fonction

Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.
Code:

1 2 textbox1.value = val(textbox1.value) + .....
20/12/2007, 18h01
wabo67

cela ne fonctionne toujours pas.
Dans ma base de donnée c'est OK
Dans le Textbox il ne reactulise pas la nouvelle valeur, il marque plus rien.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Ajout_stock_Click() Sheets("Base de données").Activate Columns("A").Select Set c = Selection.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If c = "" Then UserForm1.Hide End If c.Activate 'active la cellule trouvée TextBox22.Value = Val(TextBox22.Value) + Val(TextBox21.Value) ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value + Val(TextBox21.Value) TextBox22.Value = stock_reel
Voila mon nouveau code:

Donc pour faire simple j'essai de faire:

Textbox22 = Textbox21 + Textbox22

Par contre Texbox 22 s'efface et ne marque pas la nouvelle valeur.

Mais je copie cette valeur dans une base de donnée et dans cette base de donnée la valeur et modifié correctement,

Merci de votre aide pour un débutant en VBA

Cordialement,

bonsoir,

essaye de passer par des variables

Code:

1
2
3
4
5
6
 
dim txt1 as variant
dim txt2 as variant
txt1 = val(textbox1.value)
txt2 = val(textbox2.value)
textbox1.value = txt1 + txt2

20/12/2007, 19h22
LeForestier

Tes textBox sont sur le même Formulaire / Feuille / Userform ?
EDIT:
Non Partbou, ta 1ére idée fonctionne parfaitement.
EDIT2:
En relisant ton code... essaye un peu en mettant l'ActiveCell après la modif dans les TextBox. Pas bien sur mais tu met le focus sur une autre feuille.
20/12/2007, 20h11
wabo67

Salut patbou

Ton code fonctionne parfeetement merci encore.
Peux tu me dire la ligne de commande pour que mon Textbox ne passe pas en dessous de 0. Merci
20/12/2007, 20h52
patbou

essaye de tester si le resultat est >=0