calcul d'une textbox de manière conditionnel

[amenoo]

Bonjour à vous tous!

Je me permets de vous demander de l'aide concernant ceci:

Comment puis je effectuer le calcul de la valeur d'une textbox dans une autre selon une condition.

exemple: multiplier par 4 la valeur de la textbox21 dans la textbox33 si la combobox3 est égale à "salt"
en revanche si elle est égale à "histamine" la textbox 33 aura la même valeur que la textbox 21.

merci de votre aide !

bonne journée!

Cdt,

Amenoo

 

[Robert]

Re : calcul d'une textbox de manière conditionnel

Bonjour Amenoo, bonjour le forum,

Je ne sais pas comment afficher la TextBox33 mais peut être ce code fera l'affaire :

Private Sub TextBox21_AfterUpdate()
Select Case Me.ComboBox3 'agit en fonction de la ComboBox3
    Case "salt" 'cas "salt"
        If IsNumeric(Me.TextBox21.Value) Then Me.TextBox33.Value = 4 * CDbl(Me.TextBox21) 'si le contenu de la TextBox21 est numérique, place sa valeur multipliée par 4 dans la TextBox33
    Case "histamine" 'cas "histamine"
        Me.TextBox33.Value = Me.TextBox21.Value 'place la valeur de la TextBox21 dans la TextBox33
End Select 'fin de l'action en fonction de...
End Sub

 

[amenoo]

Re : calcul d'une textbox de manière conditionnel

Bonjour à toi Robert,

merci pour ton aide.

en fait je viens juste de trouver la solution j'ai mis cela pour résoudre mon problème:

If Me.ComboBox3.Value = "salt" Then
TextBox33.Value = Val(TextBox21.Value) * 4
TextBox34.Value = Val(TextBox22.Value) * 4
TextBox35.Value = Val(TextBox23.Value) * 4
TextBox36.Value = Val(TextBox24.Value) * 4
TextBox37.Value = Val(TextBox25.Value) * 4
TextBox38.Value = Val(TextBox26.Value) * 4
TextBox39.Value = Val(TextBox27.Value) * 4
TextBox40.Value = Val(TextBox28.Value) * 4
TextBox41.Value = Val(TextBox29.Value) * 4
TextBox42.Value = Val(TextBox30.Value) * 4
TextBox43.Value = Val(TextBox31.Value) * 4
TextBox44.Value = Val(TextBox32.Value) * 4

Else

TextBox33.Value = Val(TextBox21.Value) * 1
TextBox34.Value = Val(TextBox22.Value) * 1
TextBox35.Value = Val(TextBox23.Value) * 1
TextBox36.Value = Val(TextBox24.Value) * 1
TextBox37.Value = Val(TextBox25.Value) * 1
TextBox38.Value = Val(TextBox26.Value) * 1
TextBox39.Value = Val(TextBox27.Value) * 1
TextBox40.Value = Val(TextBox28.Value) * 1
TextBox41.Value = Val(TextBox29.Value) * 1
TextBox42.Value = Val(TextBox30.Value) * 1
TextBox43.Value = Val(TextBox31.Value) * 1
TextBox44.Value = Val(TextBox32.Value) * 1

c'est un peu long mais bon ça marche...merci pour ton aide

bonne journée

 

[Robert]

Re : calcul d'une textbox de manière conditionnel

Bonjour Amenoo, bonjour le forum,

ou :

Private Sub TextBox21_AfterUpdate()
Select Case Me.ComboBox3 'agit en fonction de la ComboBox3
    Case "salt" 'cas "salt"
       For i = 21 To 32 'boucle sur les textboxes 21 à 32
            'si le contenu de la TextBox21 est numérique, place sa valeur multipliée par 4 dans la TextBox33
            If IsNumeric(Me.Controls("TextBox" & i).Value) Then Me.Controls("TextBox" & i + 12).Value = 4 * CDbl(Me.Controls("TextBox" & i).Value)
        Next i 'prochaine textbox de la boucle
    Case "histamine" 'cas "histamine"
       For i = 21 To 32 'boucle sur les textboxes 21 à 32
            'si le contenu de la TextBox21 est numérique, place sa valeur multipliée par 4 dans la TextBox33
            If IsNumeric(Me.Controls("TextBox" & i).Value) Then Me.Controls("TextBox" & i + 12).Value = Me.Controls("TextBox" & i).Value
        Next i 'prochaine textbox de la boucle
End Select 'fin de l'action en fonction de...
End Sub

 

[amenoo]

Re : calcul d'une textbox de manière conditionnel

Ok merci Robert,

ton code est plus technique est donc m'apprendras beaucoup plus de chose

merci de ton aide je vais employé ta méthode.

bonne journée à toi



Amenoo