soustraire 2 textbox

[Pierre59]

Bonjour tlm
pour soustraire les valeurs de 2 textbox j'ai mis dans userform - initialize la commande suivante: textbox8 = textbox2-textbox4 et j'ai une erreur : incompatibilité de type par contre quand je la met dans userform - click ca marche -comment dois-je ecrire ma formule pour que la soustraction se fasse de que les deux textbox soit remplie(voir ex) etje voudrais passer de textbox en textbox par la touche enter ou valider est-ce possible
d'avance merci
Pierre59

 

[@+Thierry]

Salut Pierre, le Forum

Je te propose de remplacer ton Private Module de UserForm par celui-ci :

Option Explicit

Private Sub UserForm_Initialize()
'TextBox6.Value = TextBox2.Value - TextBox4.Value ' NON !!!! Pas à l'initialisation
With Me
With .TextBox2
.Locked = True
.TabStop = False
End With
With .TextBox4
.Locked = True
.TabStop = False
End With
End With
End Sub


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox1) Then
If IsNumeric(Me.TextBox3) Then
TextBox6.Value = TextBox2.Value - TextBox4.Value
End If
End If
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
TextBox2.Text = Application.WorksheetFunction.VLookup(Val(TextBox1.Text), Sheets(2).Range("A1:B31"), 2, False)
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
TextBox4.Text = Application.WorksheetFunction.VLookup(Val(TextBox3.Text), Sheets(2).Range("A1:B31"), 2, False)
End Sub

Private Sub TextBox6_Change()
On Error Resume Next
TextBox5.Value = Application.WorksheetFunction.VLookup(Val(TextBox6.Value), Sheets(2).Range("a1:b31"), 2, False)
End Sub


Je ne sais pas trop ce que tu fais dans la TextBox5, mais dès que tu sortiras de la TextBox3 et si ce sont bien des valeur numérique en TextBox1 et Texbox3, alors l'addittion des TextBox2 et TextBox4 se fera en TextBox 6...

Par contre il ne fallaitr surtout pas tenter l'addition à l'initialise du UserForm, les TextBox ne peuvent s'additionner vides...

Bonne Soirée
@+Thierry

PS le beau bouton bleu me rappelle quelqu'un au fait !!

 

[Pierre59]

Merci thierry
c'est impec exactement ce que je chercher
pour la textbox5 je fais l'inverse de la 1 & 3
des que j'ai le resultat l me donne une longeur
une autre petite question trouver la valeur la plus pres du resultat
je m'explique
je tape 12 dans textbox1 j'ai 500 dans tb2
je tapre 10 dans tb3 j'ai 390 dans tb4
resultat 110 dans tb6 mais aucune valeur ne corespont a 110 la plus pres est 100 donc 1 afficher en textbox 5
j'espere avoir ete clair
pierre59


ps : pour le bouton bleu c'est un du forum c'est ch'ti quelque chose
sais plus avec tous ces codes en plus suis debutant
sinon merci a tous

 

[le CH'TI160]

Salut "Pierre59 etThierry"

Bonour le "FORUM"
eh non le petit bouton c'est pas moi!!!!
A+++
Jean Marie