textbox

textbox - VB/VBA/VBS - Programmation

Marsh Posté le 27-05-2006 à 16:52:59    

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

Reply

Marsh Posté le 27-05-2006 à 16:52:59   

Reply

Marsh Posté le 27-05-2006 à 19:46:43    

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 :
  1. Sub test()
  2.     Dim monControl As Control
  3.     MsgBox "Nombre de controles : " & UserForm1.Controls.Count
  4.     For Each monControl In UserForm1.Controls
  5.         If Left(monControl.Name, 7) = "TextBox" Then
  6.             MsgBox Mid(monControl.Name, 8)
  7.         End If
  8.     Next
  9. End Sub

Cela devrait t'aider ;)
Bidgii

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed