Discussion :

[wabo67]

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 :

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

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

[patbou]

bonjour,

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

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 :

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

1
2
 
textbox1.value = val(textbox1.value) + .....

[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.

[wabo67]

Code :

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

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,

[patbou]

bonsoir,

essaye de passer par des variables

Code :

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

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

[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.

[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