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