boucle sur des textbox dans une userform

[Excalibur]

Bonjour à tous et vive le nouveau forum,

J'ai un problème en essayant de boucler sur des textbox.
Je m'explique :

1. Dans une userform j'ai par exemple 20 textbox numérotées de textbox1 à textbox 20.
2. J'aimerai pouvoir faire des actions avec une boucle sur les numéros des textbox ; par exemple passer la propriété 'enabled' à 'false' pour les textbox 6 à 18.

Pour cela j'ai écrit un truc simple mais qui ne marche pas (en fait j'ai écrit un truc trop simple je pense) : il me semble que c'est parce que excel ne reconnait pas ma variable 'numerotext' comme une textbox :

    Dim i As Integer
    Dim nombre As Integer
    Dim numerotext As String
    nombre1 = 0
    For i = nombre1 + 6 To nombre1 + 18
        numerotext = 'TextBox' & CStr(i)
        numerotext.Enabled = False
    Next

Si vous avez une idée je suis preneur.
Merci d'avance à tous.

Exca.

 

[Excalibur]

Rebonjour à tous,

Je viens de m'apercevoir qu'on pouvais faire une recherche sur l'ancien forum et jai trouvé mon bonheur.
Il fallait écrire :

    Dim i As Integer
    Dim nombre As Integer
    Dim numerotext As String
    nombre = 0
    For i = nombre + 5 To nombre + 25
        numerotext = 'TextBox' & CStr(i)
        Userform1.Controls(numerotext).Enabled = False
    Next

Merci à tous d'avoir jeté un coup d'oeil.
Et désolé de vous avoir fait chercher pour rien.

Exca.

 

[Robert]

Salut Excalibur, salut le forum,

Je te propose d'essayer comme ça (un plan que j'ai piqué à @+Thierry mais faut pas le dire...)

Dim i As Byte 'déclare la variable i
'boucle sur 6 valeurs (tu adapteras...)
For i = 1 To 6
    'rend inaccessible le textbox i
    Me.Controls('textbox' & i).Enabled = False
Next i 'prochaine valeur de la boucle

 

[Excalibur]

Salut Robert,

Merci pour ta réponse.
J'avais trouvé mais c'est très sympa de ta part.

Exca.

PS : je ne le dirai pas à @+Thierry. C'est promis.