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+