Entrée d'une variable dans un prog en boucle.

[Minus]

Bonsoir,

J'ai un programme qui se mord la queue.

Mon souhait est de pouvoir utiliser l'une ou l'autre des cases, et que seule la commande de la Textbox concernée fonctionne. Sans quoi, vous le comprendrez, je me retrouve avec TextBox1.Value =0 , TextBox2.Value =0 , TextBox3.Value =0 quoi qu'il arrive.

Private Sub TextBox1_Change()
TextBox2.Value = Val(TextBox1.Value) / 2 * 3
TextBox3.Value = Val(TextBox1.Value) / 2
End Sub


Private Sub TextBox2_Change()
TextBox1.Value = Val(TextBox1.Value) / 3 * 2
TextBox3.Value = Val(TextBox1.Value) / 3
End Sub

Private Sub TextBox3_Change()
TextBox1.Value = Val(TextBox1.Value) * 2
TextBox2.Value = Val(TextBox1.Value) * 3
End Sub

 

[bqtr]

Re : Entrée d'une variable dans un prog en boucle.

Bonsoir Minus,

J'ai un peu de mal à saisir ce que tu veux faire, mais essaye ceci:

Private Sub TextBox1_AfterUpdate()
TextBox2.Value = Val(TextBox1.Value) / 2 * 3
TextBox3.Value = Val(TextBox1.Value) / 2
End Sub

Tu fais la même chose pour le TextBox2 et le TextBox3.
Tu entres une valeur dans un TextBox et tu valides par entrée et l' événement se déclenche.

A+

 

[bqtr]

Re : Entrée d'une variable dans un prog en boucle.

Re,

Je laisse ma première réponse, bien que je pense quelle ne doit pas être bonne.

Je sais pas si celle là est meilleur mais teste la.
Tu mets dans un module de code standard ceci :

Public k As Byte

Sur ton Userform, rajoute un bouton de commande puis ceci :

Private Sub CommandButton1_Click()
    Select Case k
    Case 1
     TextBox2.Value = Val(TextBox1.Value) / 2 * 3
     TextBox3.Value = Val(TextBox1.Value) / 2
    Case 2
     TextBox1.Value = Val(TextBox1.Value) / 3 * 2
     TextBox3.Value = Val(TextBox1.Value) / 3
    Case 3
     TextBox1.Value = Val(TextBox1.Value) * 2
     TextBox2.Value = Val(TextBox1.Value) * 3
    End Select
     k = 0
End Sub

Private Sub TextBox1_Change()
k = 1
End Sub

Private Sub TextBox2_Change()
k = 2
End Sub

Private Sub TextBox3_Change()
k = 3
End Sub

Après chaque changement dans un Textbox, valide par le bouton de commande.
A+

 

[Minus]

Re : Entrée d'une variable dans un prog en boucle.

Merci pour tes 2 réponses bqtr. La première me convient mieux en fait.
J'ai un très bon résultat.

A+ et bonne journée.