Discussion :

[prosper02]

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

[Pierre Fauconnier]

Salut.


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[prosper02]

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 !!

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[prosper02]

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.