Probleme boucle de textbox en vba

Question

Je suis sur un formulaire VBA pour une feuille Excel, et lorsque tous les textbox de ce formulaire sont remplis, je dois les insérer dans ma feuille Excel qui va bien. Le problème c'est qu'il y a 60 textbox, et je voudrais faire une boucle. 
En VB je sais faire, avec textbox(i) etc... mais la, ca veut pas marcher, est ce que quelqu'un sait ???

Merci  %-6

guiguizz · Answer

Effectivement tu ne peux pas te servir des index car cela ne fonctionne pas sur les frames Excel.
La solution est de parcourir les controles de la form comme suit :

Dim MyControl as Control
For Each MyControl in UserForm1.controls
if TypeOf MyControl Is TextBox Then
    'Instruction à faire quand le control est un TextBox
    'Tu peux utiliser Mycontrol.name pour pouvoir identifier tes controles
End If
Next MyControl

J'ai déja utilisé ça précédemment et ça fonctionne pas mal

Si tu veux des précisions...

Guill

ptij · Answer

Merci beaucoup, ca passe bien comme ca!!!

belay04 · Answer

Bon d'abord merci guiguizz pour son morceau de code qui m'evite du
bricolage &#224; la noix sur les "name" des textbox...... Simplement, si on
veut pas utiliser les propri&#233;tes des textbox (premi&#232;re options que tu
decrit) il me semble qu'il est necessaire d'ajouter un
"msforms.textbox" ds la condition du IF ce qui donne un code du style :



> Dim MyControl as Control
> For Each MyControl in UserForm1.controls
> if TypeOf MyControl Is MSFORMS.TextBox Then
>     'Instruction &#224; faire quand le control est un TextBox
> End If
> Next MyControl


Parce que sinon le resultat du IF est toujours FAUX ... ;)

++




"Le VBA c amusant, mais heureusement qu'il y a les forums ;) !!! "

Probleme boucle de textbox en vba

3 réponses

Discussions similaires