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

Minus · 11 Décembre 2007

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 · 11 Décembre 2007

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:

Code:

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 · 11 Décembre 2007

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 :

Code:

Public k As Byte

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

Code:

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 · 11 Décembre 2007

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.

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

Minus

Guest

bqtr

XLDnaute Accro

bqtr

XLDnaute Accro

Minus

Guest

Discussions similaires

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

Minus

Guest

bqtr

XLDnaute Accro

bqtr

XLDnaute Accro

Minus

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency