problème avec textbox

Bonjour,

Je travaille sous excel 2016 et j’ai un userform où 20 textbox ont été créés.

5 d’entre eux (de tb10 à tb15) ont été déclarés « enable=false » mais lorsque cela s’avère nécessaire, je voudrais, à l’action d’un bouton de commande, les rendre « enable=true ».
Je pense que la solution serait de travailler avec les tabindex mais avec ma faible maîtrise du sujet je ne parviens pas à résoudre mon problème.

Merci d’avance pour votre aide

Salut.


Sur base des noms des textbox, tu pourrais utiliser ceci:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer   For i = 10 To 15 Controls("tb" & i).Enabled = True Next i End Sub

---

Tu pourrais rendre le bouton de commande "ON/OFF" de manière à les rendre à nouveau inaccessibles par un clic sur le même bouton:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer   For i = 10 To 15 Controls("tb" & i).Enabled = Not Controls("tb" & i).Enabled Next i End Sub

---

Perso, sauf à ce qu'il y ait une signification "métier" derrière, j'éviterais la numérotation des contrôles de cette manière car à la maintenance, ça peut vite poser des problèmes. Des noms explicites permettent en général un meilleur suivi du code. Dans cette optique, on pourrait travailler avec la propriété Tag des contrôles, qui permettent de fournir plusieurs infos si on le souhaite.


Pour info, TabIndex sert à déterminer l'ordre des contrôles lorsque tu navigues dans le userform avec la touche TAB.

Bonjour,

solution tellement simple qui montre mes immenses lacunes en VBA
Qui plus est, j'avais testé cette solution mais il faut croire que j'avais bidouillé avec autre chose car là je recevais alors un message d'erreur sur ("tb" & i).

Toujours est-il que cela fonctionne parfaitement et je vous en remercie mille fois !!

Peut-être avais-tu essayé avec un i "à un chiffre" alors que tes tb seraient numérotés tb01, tb02, etc... Dans ce cas, le code essaierait de trouver tb1 et planterait.

Pour pallier cet inconvénient, tu pourrais utiliser Format(i, "00") pour garantir d'avoir "le bon numéro". Exemple avec un i qui va de 1 à 5 pour tb01, tb2,..., tb05

Code:

---

1 2 3

For i = 1 To 5 Controls("tb" & Format(i, "00")).Enabled = Not Controls("tb" & Format(i, "00")).Enabled Next i

---

C'est en effet cette erreur que j'avais commise et comme je suis passé à 2 chiffres je n'ai plus eu de message d'erreur.
Encore grand merci pour ce complément d'information très utile.