Aditionner le montant de 2 textBox

Bonjour Willy et le forum

En vitesse sans avoir essayé, mais ca devrais marcher, essaye:

Private Sub Ajouter_Deplacement_Click()
Dim TotalTextBox As Byte
TotalTextBox = TextBox1.Value
TextBox1.Value = TotalTextBox + TextBox2.Value

End Sub

@Christophe@

Bonjour Willy et @Xtof@ et le Forum

Attention Christophe, déclarer "as Byte" limite la Variable à 255...

Voici un exemple tout simple et DEUX méthodes :
1 UserForm
3 Texbox
1 CommandButton

METHODE 1 ) Le Code :
Private Sub CommandButton1_Click()
Dim A As Double
Dim B As Double
If Not IsNumeric(TextBox1) Then Exit Sub
If Not IsNumeric(TextBox2) Then Exit Sub
A = TextBox1
B = TextBox2
TextBox3 = A + B
End Sub

METHODE 2 ) Le Code :
Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1) Then Exit Sub
If Not IsNumeric(TextBox2) Then Exit Sub
TextBox3 = CDbl(TextBox1) + CDbl(TextBox2)
End Sub

On notera que dans les deux cas il faut faire un test pour avoir la certitude d'avoir du numérique dans les textboxs... Sinon les deux méthodes ont le même impact, sauf que dans la seconde on est plus simple.

Bon Appétit
@+Thierry

Un grand bonjour Thierry

Je savais pour le byte, de 0 a 255, comme sont exemple etait 100 + 100 = 200, j'avais assez, lol

Mais super ta methode de A et B, j'avais pas pensé

Merci

PS: Thierry, as tu vus ce que j'ai fais de mon Planning, Userform different selon jour de semaine.

Merci encore et bonne journée

Bonjour et merci à tous les deux,
Je vais de ce pas étudier vos procédures
A+
Willy

Re,
Finalement j'ai retenu la méthode 2 de Thierry qui ne peut pas être plus simple.
De plus cela m'a permis de découvrir la fonction Cdb1

Merci encore à vous deux