Appliquer la même séquence d'instructions sur plusieurs objets

A2H à dit:

Bonjour les héros Wolf & Dranreb
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 faire

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

Cliquez pour agrandir...

Lone-wolf à dit:

Re A2H

@A2H: il faut surtout remercier Dranreb 😉

Cliquez pour agrandir...