[VBA E] boucle sur textbox d'une userform

Version imprimable

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:

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

26/06/2006, 11h00
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 ;)
26/06/2006, 20h14
zoumzoum59

Bonjour ouskel'n'or

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

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

Code:

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

Merci ouskel'n'or

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

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:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Code:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Code:

...

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.

27/06/2006, 22h23
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
27/06/2006, 23h05
zoumzoum59

merci SilkyRoad

Donc il vaut mieux que je tape mon code pour chaque textbox sans creer de boucle meme s'il y en a 40.

De plus si mon niveau est pas tres elevé.

Mais cela ne vas pas trop allourdir ma macro de le faire pour chaque textbox?

bonsoir

Tu peux adapter cette procedure pour gerer les evenements GetFocus et LostFocus de TextBox placés dans des Frames

l'evenement USF_LostFocus remplace _Exit
Me.Controls(Txtbx) correspond au nom des tes textBox ( TextBox1, TextBox2 ...etc ...)

remarque :
je trouve malheureusement cette solution un peu gourmande en ressource

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'---- dans un module de classe nommé Classe1
Option Explicit
 
Public Event GetFocus()
Public Event LostFocus(ByVal Txtbx As String)
Public nomObjActif As String
 
Public Sub cibleFocus(USF As MSForms.UserForm)
With USF
    If TypeName(.ActiveControl) = "Frame" Then
        nomObjActif = .Controls(.ActiveControl.Name).ActiveControl.Name
        On Error GoTo errorHandler
        Do
            DoEvents
            If .ActiveControl.Name <> nomObjActif Then
                If TypeName(.ActiveControl) = "Frame" Then
                RaiseEvent LostFocus(nomObjActif)
                nomObjActif = .Controls(.ActiveControl.Name).ActiveControl.Name
                RaiseEvent GetFocus
            End If
            End If
        Loop
    End If
End With
 
errorHandler:
Exit Sub
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'---  dans l'UserForm  ---
Option Explicit
Private WithEvents USF As Classe1
 
 
Private Sub UserForm_Activate()
Set USF = New Classe1
 
TextBox1.SetFocus
Me.Controls(Me.ActiveControl.Name).ActiveControl. _
Object.BackColor = RGB(225, 225, 225)
 
USF.cibleFocus Me
End Sub
 
 
Private Sub USF_GetFocus()
Me.Controls(Me.ActiveControl.Name).ActiveControl. _
Object.BackColor = RGB(225, 225, 225)
End Sub
 
 
Private Sub USF_LostFocus(ByVal Txtbx As String)
Me.Controls(Txtbx).BackColor = RGB(255, 255, 255)
'
'
'
'
End Sub
 
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set USF = Nothing
End Sub

la source utilisée :
http://www.mrexcel.com/board2/viewto...er=asc&start=0
Masaru Kaji aka Colo [MVP]

bonne soirée
michel

29/06/2006, 23h34
zoumzoum59

Merci SilkyRoad

je vais tester tout ça.

Bonjour SilkyRoad

j'ai testé le code, ça fonctionne mais dans la userform comportant 4 frames comportant elles meme10 textbox 1 combobox. Le code ne se limite pas au textbox mais passe egalement sur les combobox.
est il possible de le limiter aux textbox?

Sinon consommation ressource est il plus gourmant que le code de 40 procedures comme celle qui suit:
Code:

1 2 3 4 5 6 7 8 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 TextBox1.Value = Format(c, "hh\H mm") End Sub
Car si ça comsomme moins de ressource mais que ça fait juste des ligne de programme en plus.
Ce code fonctionne alors !

Sinon quelqu'un peut me dire ou je peux trouver des infos sur module et module de classe (difference,a quoi ça sert et quand,utilité de l'une et de l'autre ...)

Merci

bonsoir

Citation:

est il possible de le limiter aux textbox?

dans ce cas tu peux ajouter un filtre supplémentaire sur les TextBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'---- dans un module de classe nommé Classe1
Option Explicit
 
Public Event GetFocus()
Public Event LostFocus(ByVal Txtbx As String)
Public nomObjActif As String
 
Public Sub cibleFocus(USF As MSForms.UserForm)
With USF
    If TypeName(.ActiveControl) = "Frame" Then
        If TypeName(.Controls(.ActiveControl.Name).ActiveControl) = _
                    "TextBox" Then
        nomObjActif = .Controls(.ActiveControl.Name).ActiveControl.Name
 
        On Error GoTo errorHandler
        Do
            DoEvents
            If .ActiveControl.Name <> nomObjActif Then
            If TypeName(.Controls(.ActiveControl.Name).ActiveControl) = _
                        "TextBox" Then
                If TypeName(.ActiveControl) = "Frame" Then
                RaiseEvent LostFocus(nomObjActif)
                nomObjActif = .Controls(.ActiveControl.Name).ActiveControl.Name
                RaiseEvent GetFocus
                End If
            End If
            End If
        Loop
       End If
    End If
End With
 
errorHandler:
Exit Sub
End Sub

bonne soiree
michel

02/07/2006, 21h58
zoumzoum59

bonsoir SilkyRoad

Ca fonctionne mais le dernier textbox n'est pas avec le code de base remis avec un fond blanc, la procedure LostFocus n'est donc pas utilisé sur ce dernier textbox.

Si tu as la correction du code, Merci

Car moi je le dechiffre par morceau mais le niveau est deja haut pour moi!

Bonsoir SilkyRoad

Je suis en train d'adapter le code que tu m'as présenté plus haut.
Mais j'ai une erreur incompatibilité de type sur la ligne en rouge et je ne vois pas ce qui cloche.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub USF_LostFocus(ByVal Txtbx As String) Dim c As Date Me.Controls(Txtbx).Value = TimeValue(Left(Application.Text(Me.Controls(Txtbx).Value, "00.00"), 2) _ & ":" & Right(Me.Controls(Txtbx).Value, 2)) c = Me.Controls(Txtbx).Value Me.Controls(Txtbx).Value = Format(c, "hh\H mm") Me.Controls(Txtbx).BackColor = RGB(255, 255, 255) ' ' ' ' End Sub
Merci