Bonjour les héros Wolf & Dranreb
SVP je veux appliquer les instructions présentées ci_dessous sur 4 Textbox
Private Sub TBxF_Change()
If TBx.Value = Lab1.Caption Then Lab1.Enabled = False Else Lab1.Enabled = True
If TBx.Value = Lab2.Caption Then Lab2.Enabled = False Else Lab2.Enabled = True
If TBxF.Value = Lab3.Caption Then Lab3.Enabled = False Else Lab3.Enabled = True
If TBxF.Value = Lab4.Caption Then Lab4.Enabled = False Else Lab4.Enabled = True
If TBxF.Value = Lab5.Caption Then Lab5.Enabled = False Else Lab5.Enabled = True
If TBxF.Value = Lab6.Caption Then Lab6.Enabled = False Else Lab6.Enabled = True
End Sub
Merci d'avance
SVP je veux appliquer les instructions présentées ci_dessous sur 4 Textbox
(TBXF,TBXV,TBXC,TBXL), q
u'on a déjà travailler dessus (Glisser-Déposer), comment je peux le fairePrivate Sub TBxF_Change()
If TBx.Value = Lab1.Caption Then Lab1.Enabled = False Else Lab1.Enabled = True
If TBx.Value = Lab2.Caption Then Lab2.Enabled = False Else Lab2.Enabled = True
If TBxF.Value = Lab3.Caption Then Lab3.Enabled = False Else Lab3.Enabled = True
If TBxF.Value = Lab4.Caption Then Lab4.Enabled = False Else Lab4.Enabled = True
If TBxF.Value = Lab5.Caption Then Lab5.Enabled = False Else Lab5.Enabled = True
If TBxF.Value = Lab6.Caption Then Lab6.Enabled = False Else Lab6.Enabled = True
End Sub
Merci d'avance