Incrémenter le nom d'une textbox
Incrémenter le nom d'une textbox - VB/VBA/VBS - Programmation
Marsh Posté le 08-06-2009 à 16:14:54
Hi,
Code :
|
Pas testé mais ça devrait pouvoir t'aider.
---------------
"That kind of information doesn't just grow on trees."
Marsh Posté le 08-06-2009 à 16:20:24
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 :
|
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
Marsh Posté le 08-06-2009 à 16:49:34
---------------
"That kind of information doesn't just grow on trees."
Marsh Posté le 09-06-2009 à 09:29:22
| Ctplm a écrit :
|
Super merci c'était exactement ce dont j'avais besoin 
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...
Marsh Posté le 08-06-2009 à 14:35:13
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)