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

[A2H]

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

 

[Lone-wolf]

Bonjour A2H

@A2H

Il faut écrire le code dans le module de classe, mais sans fichier on ne peux rien faire.

 

[A2H]

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

J'ai trouvé la solution suivante
Private Sub TBxF_Change()
Dim i
For Each i In Array(1, 2, 3, 4, 5, 6)
If TBxF.Value = Me.Controls("Lab" & i).Caption Then Me.Controls("Lab" & i).Enabled = False Else Me.Controls("Lab" & i).Enabled = True
Next i
End Sub
que je dois la répéter pour chaque textbox

 

[Lone-wolf]

Re

@A2H

Mais tu peux le faire en une seule fois dans le module de classe, si t'en as un.

Edit: voici le fichier de Dranreb, j'ai ajouté l'instruction dans le module de classe. Maintenant tu peux avoir 50 labels et textboxs, mais il y a qu'une seule fois la macro. Double-clique sur la feuille pour afficher le formulaire.

 

[A2H]

1000 Merci Wolf c'est génial

 

[Lone-wolf]

Re A2H

@A2H: il faut surtout remercier Dranreb

 

[Dranreb]

Bonjour.
Si déjà il a été glissé de façon visible, ne vaudrait-il pas mieux qu'il ne soit plus remis visible à sa position de repos ?

 

[A2H]

Re A2H

@A2H: il faut surtout remercier Dranreb

1000 Merci Dranreb