simplification de formule

bonsoir
je voudrais savoir si est possible de simplifier la formule par curiosite
ca marche mais c'est long a taper

Code:

---

1 2 3 4 5 6 7

'identifiant dim iden_cb as string iden_cb = Mid(TextBox1.Text, 5, 2) If iden_cb = 8 Then Label8.Text = "Mono " If iden_cb = 8 Then Label9.Text = "40 74 " If iden_cbe = 1 Then Label8.Text = "Palier 1 " If iden_cbe = 1 Then Label9.Text = "40 75 "

---

merci a+

tu peux utilisé un switch, je crois que c'est select case en vb.net
http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx

C'est pas les mêmes variables qui sont testées :)

Tu peux englober les deux affectations dans le même if

Code:

---

1 2 3 4 5 6 7 8 9 10

If iden_cb = 8 Then Label8.Text = "Mono " Label9.Text = "40 74 " End If   If iden_cbe = 1 Then Label8.Text = "Palier 1 " Label9.Text = "40 75 " End If

---

salut
c'est ca que je cherchais
ecrire ca va mais simplifier c'est plus dur
a+