boucle sur des textbox

  • Initiateur de la discussion julien
  • Date de début
J

julien

Guest
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
 
S

STéphane

Guest
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
 
J

julien

Guest
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
 
J

julien

Guest
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
 
S

STéphane

Guest
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
 

Discussions similaires

Réponses
1
Affichages
372

Statistiques des forums

Discussions
303 730
Messages
2 013 593
Membres
219 657
dernier inscrit
Lvolley86