Incrémenter le nom d'une textbox

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Incrémenter le nom d'une textbox

tranceorbitale

Bonjour, j'ai une liste de textbox dans une userform dont la valeur est récupérée dans une feuille excel.
Je souhaiterais créer une boucle avec une variable i pour être quite de recopier X fois la même ligne.

Est ce que c'est possible d'incrémenter le TextBox avec la variable i ?

Livraison.TextBox1.Text = Sheets("Stock" ).Cells(12, 8)
Livraison.TextBox2.Text = Sheets("Stock" ).Cells(13, 8)
Livraison.TextBox3.Text = Sheets("Stock" ).Cells(14, 8)
Livraison.TextBox4.Text = Sheets("Stock" ).Cells(15, 8)
Livraison.TextBox5.Text = Sheets("Stock" ).Cells(16, 8)

Publicité

Ctplm

Hi,

Code :

For i = 1 To 5
Livraison.Controls("Textbox" & i).Text = Sheets("Stock" ).Cells(11 + i, 8)
Next i

Pas testé mais ça devrait pouvoir t'aider.

Message cité 1 fois

---------------
"That kind of information doesn't just grow on trees."

Turkleton

I don't quite understand you

Tu peux utiliser une boucle "For Each" et passer en revue tous tes contrôles, en faisant des tests pour voir par exemple si le nom commence par "TextBox" et en récupérant le numéro de ton TextBox.

Code :

Dim lecontrole as Control
Dim i as Integer
For Each lecontrole in Controls
If Left(lecontrole.Name, 7) = "TextBox" Then
i = Right(lecontrole.Name, 1)
lecontrole.Text=Sheets("Stock" ).Cells(i + 11, 8)
End If
next

Sinon, je sais qu'en Access on peut directement "composer" le nom d'un contrôle avec par exemple "Me.Controls("TextBox" & i)", i étant une variable. C'est pas très académique mais ça fonctionne. Après, reste à voir si c'est possible sur Excel.

EDIT : Rhaaa, le grillaid en beauté (mais qui répond à ma dernière question )

Message édité par Turkleton le 08-06-2009 à 16:21:24

---------------
If you think it could look good, then I guess it should

Ctplm

---------------
"That kind of information doesn't just grow on trees."

tranceorbitale

Ctplm a écrit :

Hi,

Code :

For i = 1 To 5
Livraison.Controls("Textbox" & i).Text = Sheets("Stock" ).Cells(11 + i, 8)
Next i

Pas testé mais ça devrait pouvoir t'aider.

Super merci c'était exactement ce dont j'avais besoin

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Incrémenter le nom d'une textbox

Sujets relatifs
problem textbox en VBA	Récupérer texte Textbox dynamique en VBA
text combobox et textbox	[SOLUCE INCLUE] Comment forcer des nombres dans un TEXTBOX ?
[ VB6 ] Enregistrer Données ( combobox.txt, textbox.txt ) sous EXCEL	[RESOLU] asp .net c# textbox: modifier le contenu?
incrémenter un champs dans une table via un bouton	VBA problème de saisie dans Textbox
[VBA] Sélectionner une TextBox	Dans une TextBox, saisie uniquement numérique...
Plus de sujets relatifs à : Incrémenter le nom d'une textbox

Page générée en 0.032 secondes