quand Checkbox cochée, Textbox prend la valeur d'une autre

[fra340]

Bonjour,

Je débute en VB ester ce forum et après avoir chercher je trouve pas la réponse à mon problème.

Ce que je souhaite faire :

Dans userform, ayant plusieurs textbox, je souhaite que la textbox2 prenne la valeur de la textbox1 quand la checkbox1 est cochée (true).
Mais si je décoche la checkbox1 (false), la valeur de la textbox2 soit égale à 0.

Mon résultat :

Ma textbox2 prends bien la valeur de la textbox1 si checkbox1 est cochée ou 0 si checkbox1 n'est pas cochée mais avant la saisie de ma textbox1.

Mon problème :

Après la saisie de ma textbox1 si je change ma checkbox (de vrai à faux ou inversement), la valeur de ma textbox2 ne change pas. Je suis obligé de ressaisir la valeur de ma Textbox1.

Si dessous mon code (la 1ere partie fonctionne et ne concerne pas mon problème, c'est la 2nde partie qui me pose un soucis) :

Private Sub TextBox9_AfterUpdate()
' PREMIERE PARTIE
TextBox339.Value = Val(TextBox9.Value) * (Val(TextBox10.Value) / 100)
TextBox21.Value = Val(TextBox339.Value) + Val(TextBox357.Value) 
TextBox20.Value = Val(TextBox9.Value) + Val(TextBox274.Value)
'SECONDE PARTIE
If CheckBox1 = True Then
TextBox359.Value = Val(TextBox9.Value)
Else
TextBox359.Value = (0)
End If
End Sub

Par avance merci dans un premier temps de m'avoir lu et ensuite de m'aiguiller

FRA340

 

[thebenoit59]

Re : quand Checkbox cochée, Textbox prend la valeur d'une autre

Bonjour Fra.

Tu peux essayer le code ci-dessous, ensuite à toi de bien nommer les contrôles ça sera plus simple.

Private Sub Checkbox1_Click()
If Checkbox1.Value = True Then 
TextBox2.Value = TextBox1.Value
Else: TextBox2.Value = 0
End If
End Sub

 

[fra340]

Re : quand Checkbox cochée, Textbox prend la valeur d'une autre

Bonjour Benoit,

Un grand merci.
Après lecture de ta réponse, ça paraît évident mais je dois encore énormément me perfectionner.
Encore merci
Fra340