textbox

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : textbox

rico328

bonjour,
j'aimerais copier le contenu de 132 textbox contenu sur un userform dans une feuille excel
Seulement la syntaxe textbox[i] ou textbox & i ou textbox(i) ne fonctionne pas
merci

Private Sub CommandButton1_Click()
Dim obj() As TextBox
For i = 1 To 132
Sheets("Attribution NB" ).Range("c" & (i + 2)).Value = TextBox[i].Value
Next i
UserForm6.Hide
Sheets("menu" ).Select

End Sub

Publicité

Bidgii

Voilà un petit bout de code qui dénombre le nombre de contrôles d'une UserForm, les balaye tous, et affiche le complément dudit nom quand il commence par "TextBox".

Code :

Sub test()
Dim monControl As Control
MsgBox "Nombre de controles : " & UserForm1.Controls.Count
For Each monControl In UserForm1.Controls
If Left(monControl.Name, 7) = "TextBox" Then
MsgBox Mid(monControl.Name, 8)
End If
Next
End Sub

Cela devrait t'aider
Bidgii

FORUM HardWare.fr

Programmation

VB/VBA/VBS

textbox

Sujets relatifs
Comment installer la date en temps réel dans un textbox ?	TextBox : Petit carré devant chaque saut de ligne
Saisie dans un TextBox avec saut de ligne ?	[Résolu] Lier un TextBox à un DataSet dans un TabControl
select case avec textbox	Boucle pour tester différentes textbox
envoyer une donnée dans excel depuis une textbox	Textbox = cellule excel ?
Report d'1 valeur d'1 textbox ds plusieurs feuilles (chgmt lignes)
Plus de sujets relatifs à : textbox

Page générée en 0.035 secondes