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

A2H · 11 Août 2018

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 · 11 Août 2018

Bonjour A2H

@A2H

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

A2H · 11 Août 2018

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

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 · 11 Août 2018

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 · 11 Août 2018

1000 Merci Wolf c'est génial

Lone-wolf · 11 Août 2018

Re A2H

@A2H: il faut surtout remercier Dranreb

Dranreb · 11 Août 2018

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 · 11 Août 2018

Lone-wolf à dit:
Re A2H

@A2H: il faut surtout remercier Dranreb

1000 Merci Dranreb

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

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

A2H

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

A2H

XLDnaute Nouveau

Discussions similaires