Caclul textbox et ajout

Bonjour,

J'ai 2 soucis.

1er - je cherche à calculer 3 textbox (La 7 qui est en saisie manuelle, la 10 qui est un resultat de soustraction et la 25 qui est "fixe") le total dans la 26

2e - j'aimerais que le total obtenu dans 26 s'ajoute dans les 14-15-16-17 et 18

je joins un exemple

et là... je bloque. qui pour un coup demain ?

je vous remercie

Salut Bidoutche,

Pas trop compris la 2e demande...

J'ai rempli les 13-14-15-16, les 17-18 devant plutôt être complétées manuellement, non ?

Private Sub TextBox7_Change()
'
If Val(Me.TextBox7.Text) > 0 And Val(Me.TextBox10.Text) > 0 Then
    Me.TextBox26.Text = CDbl((Val(Me.TextBox7.Text) * Val(Me.TextBox10.Text)) * CDbl(Me.TextBox25.Text))
    Me.TextBox13.Text = Me.TextBox26.Text
    Me.TextBox14.Text = CDbl(Me.TextBox26.Text) * 0.85
    Me.TextBox15.Text = CDbl(Me.TextBox26.Text) * 0.8
    Me.TextBox16.Text = CDbl(Me.TextBox26.Text) * 0.75
    If Me.TextBox17.Text <> "" Then Me.TextBox17.Text = CDbl(Me.TextBox17.Text) + CDbl(Me.TextBox26.Text)
    If Me.TextBox18.Text <> "" Then Me.TextBox18.Text = CDbl(Me.TextBox18.Text) + CDbl(Me.TextBox26.Text)
End If
'
End Sub

A+

bonsoir.

ça fonctionne impec. j'ai modifié comme ceci

Private Sub CommandButton5_Click()

'

If Val(Me.TextBox7.Text) > 0 And Val(Me.TextBox10.Text) > 0 Then

Me.TextBox26.Text = CDbl((Val(Me.TextBox7.Text) * Val(Me.TextBox10.Text)) * CDbl(Me.TextBox25.Text))

Me.TextBox13.Text = CDbl(Me.TextBox13.Text)

Me.TextBox14.Text = CDbl(Me.TextBox13.Text) * 0.85

Me.TextBox15.Text = CDbl(Me.TextBox13.Text) * 0.8

Me.TextBox16.Text = CDbl(Me.TextBox13.Text) * 0.75

If Me.TextBox14.Text <> "" Then Me.TextBox14.Text = CDbl(Me.TextBox14.Text) + CDbl(Me.TextBox26.Text)

If Me.TextBox15.Text <> "" Then Me.TextBox15.Text = CDbl(Me.TextBox15.Text) + CDbl(Me.TextBox26.Text)

If Me.TextBox16.Text <> "" Then Me.TextBox16.Text = CDbl(Me.TextBox16.Text) + CDbl(Me.TextBox26.Text)

End If

'

End Sub

par contre les Textbox19 à Textbox24 ne font plus les calculs de colonnes

en tous les cas une belle avancée Merci encore