Boucle sur TextBoxd'un Userform

[CHti160]

Bonjour enfin bonne nuit à toutes et à tous

y a plus grand monde je viens de charger nombre de fichier du "Forum" qui traitent de boucles sur differents control mais rien sur une boucle du "STYLE"
for each ctrl in controls
if left(ctrl,7)="textbox" then
for I =1 To 9
cells(I,2)=textbox & I.value
end if
next
next
je me suis donc amuse a faire
cells(I,2)=textbox1.value
cells(I,2)=textbox2.value.......Etc
donc si quelqu'un avait une solution pour pouvoir coller le n° à "Textbox"
Merci d'avance
bonne nuit
A+++
Jean Marie

 

[myDearFriend]

Salut Jean-Marie,


Dim i As Byte
Dim Ctrl As Control
For i = 1 To 9
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then
If Val(Right(Ctrl.Name, 1)) = i Then
Cells(i, 2) = Ctrl.Value
End If
End If
Next
Next

je n'ai pas testé, mais je pense que ça devrait fonctionner (ce n'est sans doute pas la meilleure solution, mais bon...)


Une autre solution serait sans doute de créer un groupe de controles dans un tableau et s'en servir par la suite, du genre :

Dim GroupeTbx(1 to 9) as Object
Dim Ctrl As Control
Dim N as byte
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then
N=N+1
Set GroupeTbx(N) = Ctrl
endif
Next Ctrl


et s'en resservir comme ça :

For N = 1 to 9
Cells(N,2)=GroupeTbx(N).value
Next N


(Attention toutefois à la portée des variables et donc du tableau de controles...)

Espérant avoir pu t'aider...


Cordialement,
Didier_mDF

 

[x-Phil]

Bonjour (!) Jean-Marie,

Je pense à une solution directe telle que :

Private Sub CommandButton1_Click()
For Each ctrl In Controls
If UCase(Left(ctrl.Name, 7)) = UCase("textbox") Then
For i = 1 To 2
Cells(i, 2) = Me.Controls("TextBox" & i).Value
Next
End If
Next
End Sub


Pour ma part, je préfère le test sur 'TypeName(ctl) = "TextBox" '

J'espère que cela répond à ta question.


Bonne nuit et bonne journée.

x-Phil

PS: je viens de découvrir ce site et suis vraiment impressionné par sa qualité et celle de ses intervenants...
C'est vraiment super-cool!

 

[CHti160]

Bonjour "myDearFriend et x-Phil"

Bonjour le "FORUM"

Bienvenue x-Phil sur ce merveilleux Forum
mDF toujours à l'écoute Merci

je vous remercie de vos réponses et je vais donc tester cela sur ma petite Appli car je pense avoir un problème avec l'ordre dans lequel sont testé les
ctrl ???? enfin je vais voir
Encore Merci
A+++
Jean Marie