Userform

Salut à tous,

Ci-dessous un petit code :

Sub UserForm_Initialize()
'recherche des noms
For a = 1 To 20
Nom = "Feuil" & a
textbox = "tbnom" & a
boite.textbox.Value = Worksheets(Nom).Name
Next a
End Sub

Ce code sera utilisé dans un fichier excel, il a pour but de rechercher et
de donner les noms des feuilles (nb 20) dans des textbox* qui se trouvent dans une
userform "boite". Mais ça ne marche pas ! (évidemment )

* j'ai créé 20 textbox dans "boite" avec les noms suivants "tbnom1", "tbnom2" etc ...

Etant un apprenti (sur le tas) du VB et un peu fait néant (aussi) car j'ai pas envie d'écrire
en dur je me suis dis qu'avec une petite boucle ça marcherait. Et bien non ...

Alors s'il y avait une bonne pour me dépanner, ça serait super !!


Merci d'avance


Nonaud

Tu peux le faire comme ça:

For a = 1 To 20
    TextBox = "tbnom" & a
    boite.Controls(TextBox) = Worksheets(a).Name
Next a

Mais tu aurais aussi pu créer un groupe de contrôles, ça aurait été plus simple:
For a = 1 To 20
    boite.tbnom(a) = Worksheets(a).Name
Next a

Salut à toi FOHAF,

Un grand merci . La première solution fonctionne parfaitement, la
seconde renvoi un message d'erreur identique à celui que j'avais "erreur de compilation ...".

A+

Nonaud