Discussion :

[zoumzoum59]

Bonjour a tous

Je voudrais savoir s'il est possible de creer une boucle sur 40 textbox situé sur une userform.

Donc en fait ma userform comporte exactement 41 textbox et je veux que la boucle se fasse sur mes 40 premieres textbox et pas sur la 41ème.

Mes 40 textbox sont sur 4 frames par groupe de 10 et la 41èmetextbox est directement sur la userform (information supplementaire si ça peut aider).

le code que je veux boucler est celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 
Application.ScreenUpdating = False
            TextBox1.Value = TimeValue(Left(Application.Text(TextBox1.Value, "00.00"), 2) _
        & ":" & Right(TextBox1.Value, 2))
        c = TextBox1.Value
       h1 = TextBox1.Value    'cette variable ne sert que pour la suite
       TextBox1.Value = Format(c, "hh\H mm")
 
End Sub

mais il ne fonctionne que pour une textbox.

Je ne sais pas si c'est possible car il s'execute sur l'evenement "TextBox_Exit"
Alors dois je mettre un code pour chaque textbox, ce qui allourdi en ligne de code ou estce possible de le boucler.

Si quelqu'un peut m'aider.

Merci

[ouskel'n'or]

Deux possibilités : Ou toutes les textbox de ta form sont à traiter, ou seulement une partie des textbox de la form (même si c'est la plus grande partie)
Dans le premier cas, tu peux faire une boucle sur LaForm.controls en identifiant le type du contrôle (ici des textbox)
Dans le second cas, tu baptises les textbox concernés de noms comportant tous un préfixe identique.
Ta boucle, au lieu d'identifier un type de contrôle, reconnaîtra le contrôle selon le préfixe de son nom.

Pas la peine que je te passe les deux codes alors précise le cas qui te concerne

[zoumzoum59]

Bonjour ouskel'n'or

Mon cas est le second mes texbox concernés se nomme toute de "textbox1" jusqu'a "textbox40"

[ouskel'n'or]

Hello zoumzoum59,
Oui, je sais, j'ai un peu tardé mais j'étais pas là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For each lecontrol in Luserform.controls
      if left(LeControl.name,6) = "TextBox" then
            Result = Luserform.controls(LeControl.name).text
            ' et tu fais ce que tu veux de Result
      endif
next

[zoumzoum59]

Merci ouskel'n'or

j'ai repris ton code est je l'ai retravaillé de cette maniére:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim LeControl As Variant
Dim Result As Variant
 
 
For Each LeControl In Planning.Controls
      If Left(LeControl.Name, 7) = "TextBox" Then
            Result = Planning.Controls(LeControl.Name).Text
 
            ' et tu fais ce que tu veux de Result
 
       End If
Next

je recupere avec ce code le texte des textbox ce qui me sert d'exemple pour faire ce que je veux derrière et y mettre ce que je veux.
Jusque là je pense que j'ai compris.

Mais comment je fais pour lier cette procedure aux evenements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...

de chaque textbox, là je dois dire que je suis completement perdu et de mon coté je me demande si c'est possible de le faire ou pas.

[SilkyRoad]

bonsoir

c'est possible en utilisant un module de classe mais, pour ne pas créer une usine à gaz , il faudrait :

- ne pas utiliser l'evenement Exit

ou

- ne pas utiliser de Frames


bonne soiree
michel