Discussion :

[biboulou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[youtpout978]

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

[Jerede]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[biboulou]

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