textbox active en fonction d'une combobox

[Airone784]

Bonjour à tous,

J'ai un petit souci sur une UF.
Je dispose dans une UF d'une combobox dont les valeurs sont par exemple : 15/3, 20/5, 25/8. J'ai dons une liste de choix toujours sous cette forme.

Plus bas dans l'UF, j'ai 8 textbox. Je souhaite lorsque je sélectionne dans ma combobox 15/3, par exemple, que seul la textbox1, textbox2 et textbox3 soit sélectionnable (via la propriété enabled).

Mon code est le suivant :

Private Sub ComboBox1_Change()
'inhibe les textbox en fonction du nombre de coureur dans le barème
v = Right(ComboBox1, 1)
For b = 1 + v To 8
Primes.Controls("textbox" & b).Enabled = False
Next b

Ce code fonctionne bien. En revanche si je me suis trompé dans ma combobox et qu'au lieu de choisir 15/3 je voulais choisir 20/5, alors là les propriétés enabled de mes textbox ne se mettent pas à jour. Du coup, je peux sélectionner la textbox1, textbox2 et textbox3 mais pas la 4 et 5. Du coup, je suis obligé de refermer l'UF et recommencer.

PS : Vous aurez compris que le nombre de textbox disponible dépend du dernier chiffre en partant de la droite de ma combobox1.


En espérant avoir été clair.

merci du coup de main.

 

[Robert]

Re : textbox active en fonction d'une combobox

Bonjour Airone, bonjour le forum,

Commence par permettre l'accès de toutes les textboxes dans le code :

Private Sub ComboBox1_Change()
For x = 1 to 8
     Primes.Controls("textbox" & x).Enabled = True
Next x
'inhibe les textbox en fonction du nombre de coureur dans le barème
v = Right(ComboBox1, 1)
For b = 1 + v To 8
Primes.Controls("textbox" & b).Enabled = False
Next b
End Sub

 

[Airone784]

Re : textbox active en fonction d'une combobox

Bien joué Robert!!!!

Merci beaucoup