syntaxe sur textox_change

[mikeo]

Bonjour les amis du forum,

Je bute sur un problème de syntaxe :


Je souhaite que quand la valeur de textbox1 commence par 2, textbox2 = 4, sinon textbox2 =6

J'ai écrit ce code qui ne marche pas :

Private Sub TextBox1_Change()
IIf Left(TextBox1.Value, 1) = "2", CDbl(TextBox2.Value) = "20", CDbl(TextBox2.Value) = "60"
End Sub

Vous pouvez m'aider à écrire la bonne instruction ? Merci à vous.

Mikeo

 

[laetitia90]

Re : syntaxe sur textox_change

bonjour mikeo,jean marcel

Je souhaite que quand la valeur de textbox1 commence par 2, textbox2 = 4, sinon textbox2 =6

on peut tenter!!

Private Sub TextBox1_Change()
TextBox2 = IIf(Left(TextBox1, 1) = 2, 4, 6)
End Sub

 

[mikeo]

Re : syntaxe sur textox_change

Bonjour Jean Marcel, Laetitia,

Merci pour vos réponses. Laetitia a donné la bonne solution. En plus elle est simple et élégante.

J'apprécie également vos interventions sur d'autres posts.

A +

Mikeo