Résultat sur une texbox

[Berrehal]

Bonjour tout le monde.
J'ai un texbox qui calcule la TVA ça marche bien . Mai le problème je doit aller sur le texbox et taper n'importe quoi pour avoir le résultat.
Se que je veux que le résultat s'affiche automatiquement

Private suv txt20_change()
Txt20.value=(Val(txt31.value)*Val(txt32.value))/100
Enduit sub

 

[cp4]

Bonjour,

un petit fichier STP.

 

[Eric C]

Bonjour le forum
Bonjour Berrehal, cp4

Essaies ceci. Dès la sortie de ton Txt32, le résultat doit s'afficher dans ton Txt20

Private Sub Txt32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt20.Value = (Val(Txt31.Value) * Val(Txt32.Value)) / 100
End Sub

@+ Eric C

 

[Berrehal]

Bonjour le forum
Bonjour Berrehal, cp4

Essaies ceci. Dès la sortie de ton Txt32, le résultat doit s'afficher dans ton Txt20

Private Sub Txt32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt20.Value = (Val(Txt31.Value) * Val(Txt32.Value)) / 100
End Sub

@+ Eric C

Merci sa marche mais il ya un problème:
Texbox1=texbox2+texbox 3+texbox4
Je veux si je saisis une donnes du l'un des texbox2 il me donne le résultat.
La sortie elle peu être texbox 2 3 ou 4
Merci

 

[Eric C]

Re, pas très claires tes explications. Mets nous un fichier ce sera beaucoup plus simple.
@+ Eric C

 

[Berrehal]

Re, pas très claires tes explications. Mets nous un fichier ce sera beaucoup plus simple.
@+ Eric C

Ok je v vous transmette le fichier dans une heure

 

[Berrehal]

Honoraire c l'addition des montant
Honoraire = texbox 44 +49+54+ 59

 

[cp4]

Bonjour,

La textbox Honoraire n'existe pas, il ma semble qu'il s'agisse de Txt16.
Comme ci-dessous

Private Sub Txt43_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT44.Value = Val(TXT42.Value) * Val(TXT43.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub
Private Sub Txt48_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT49.Value = Val(TXT47.Value) * Val(TXT48.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub

Private Sub Txt53_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT54.Value = Val(TXT52.Value) * Val(TXT53.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub

Private Sub Txt58_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT59.Value = Val(TXT57.Value) * Val(TXT58.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub

 

[Berrehal]

Bonjour,

La textbox Honoraire n'existe pas, il ma semble qu'il s'agisse de Txt16.
Comme ci-dessous

Private Sub Txt43_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT44.Value = Val(TXT42.Value) * Val(TXT43.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub
Private Sub Txt48_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT49.Value = Val(TXT47.Value) * Val(TXT48.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub

Private Sub Txt53_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT54.Value = Val(TXT52.Value) * Val(TXT53.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub

Private Sub Txt58_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TXT59.Value = Val(TXT57.Value) * Val(TXT58.Value)
Txt16.Value = Val(TXT44.Value) + Val(TXT49.Value) + Val(TXT54.Value) + Val(TXT59.Value)
End Sub

Merci sa marche 10/10
Je veux juste une chose sur tex16 qui va réservoir le résultat interdiction de sesair pour ne pas fausser le résultat
Juste le droit d'afficher le résultat
Merci

 

[Berrehal]

C bon . Juste fair loked sur propriété merci