boucle sur des textbox

[julien]

je voudrais savoir comment effectuer une boucle sur des TextBox dans une userform. le but est de parcourir toutes les textbox afin d'avoir toutes les valeurs rentrées.

plus généralement, y'a t-il un code qui permette de faire quelque chose dans ce genre:

for i=1 to 10
MaVariable=textbox(i).text
next

merci

 

[STéphane]

de quoi t'aider


Boucler sur les divers objets
(Textbox, combobox, ....)

dim Ctrl As Control
for each Ctrl In Userform1.Controls
if typename(Ctrl) = "TextBox" then
'......... do your thing with the Ctrl object
end if
next Ctrl

Aligner le bord gauche de tous les contrôles de la première feuille de calcul

For Each s In Worksheets(1).Shapes
If s.Type = msoOLEControlObject Then s.Left = 10
Next

Cochez les cases à cocher d'un userform
Private Sub Userform_Initialize()
dim cntrl As Control
for each cntrl In Me.Controls
if typename(cntrl) = "CheckBox" then
cntrl.value = false
end if
next
end Sub

 

[julien]

c'est sympa, mais en meme temsp il me faudrais pouvoir agir sur 1 controle précis! donc il faudrait pouvoir avoir le nom du controle selectionner et pouvoir faire quelque chose du type:

[NomDuControle].text=.............

merci

 

[STéphane]

TextBox1.Text = "Hello All"
ou alors me.textbox1.text="roro"



<http://xlbysteph.free.fr/aideinformatique/userform.htm>

 

[julien]

c'est pas ca!
en fait je voudrais quelque chose du type:

for i=1 to 10
MaVariable="textbox" & cstr(i)
MaVariable.text=i
next

voila, ce que je veux: pour boucler sur mles variables en leur associant un texte

merci

 

[STéphane]

il y a ^peut-être plus simple
Sub AutreDémo()
Dim Obj As Object
For i = 1 To 10
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.TextBox Then
Obj.Height = 20
Obj.Object.Value = i
End If
Next Obj
Next i
End Sub