Aditionner le montant de 2 textBox

[Willy]

Bonjour à tous,

Je souhaiterai aditionner le montant de 2 textbox comme ceci :

TextBox1 = 100
TextBox2 = 100

TextBox1 = 200

J'ai tenté la procédure suivante qui me donne : 100100 !!!!

Private Sub Ajouter_Deplacement_Click()

If Total_Frais.Value <> "" Then
TextBox1.Value = TextBox1.Value + TextBox2.Value
End If
Unload Ajout_FraisDep
End Sub

Merci de votre aide et bonne journée
Willy

 

[@Christophe@]

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@

 

[@+Thierry]

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

 

[@Christophe@]

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

 

[Willy]

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

 

[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