[vba-E97] focus sur textbox

Version imprimable

bonjour,

je voudrais que lorsque l'utilisateur navigue d'un textbox à l'autre que la couleur d'arrière plan du textbox activé change

je sais qu'on peut le faire avec l'évement enter du textbox

je voudrais le faire avec une boucle

j'ai tenté une première approche mais en vain
voici le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub colorietxt() Dim ctrl As Controls For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Then If ctrl.SetFocus = True Then ctrl.BackColor = &H80FFFF End If End If Next ctrl End Sub
une idée de mon erreur merci

10/02/2007, 14h44
stargates
merci,

j'ai essayé ton code telquel mais il me retourne une erreur

could not find the specified object

ton code
Code:

1 2 3 4 Sub entree(Nom) FrmInventaire.ActiveControl(Nom).BackColor = &H80FFFF End Sub
en deboguant il me donne comme Nom"fraInventaire" qui est un frame

merci

bonjour

tu peux essayer la procédure suivante

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
'---  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). _
        Object.BackColor = RGB(200, 200, 200)
 
    USF.cibleFocus Me
End Sub
 
 
Private Sub USF_GetFocus()
    Me.Controls(Me.ActiveControl.Name). _
        Object.BackColor = RGB(200, 200, 200)
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

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
'---- 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)
'source
'http://www.mrexcel.com/board2/viewtopic.php?t=
'69331&postdays=0&postorder=asc&start=0
 
With USF
        If TypeName(.ActiveControl) = "TextBox" Then
            nomObjActif = .ActiveControl.Name
            On Error GoTo errorHandler
            Do
                DoEvents
                If .ActiveControl.Name <> nomObjActif Then
                    If TypeName(.ActiveControl) = "TextBox" Then
                        RaiseEvent LostFocus(nomObjActif)
                        nomObjActif = .ActiveControl.Name
                        RaiseEvent GetFocus
                    End If
                End If
            Loop
            End If
End With
 
errorHandler:
Exit Sub
End Sub

bon après midi
michel

et si les TextBox sont dans des Frames:

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(200, 200, 200)
 
    USF.cibleFocus Me
End Sub
 
 
Private Sub USF_GetFocus()
    Me.Controls(Me.ActiveControl.Name).ActiveControl. _
        Object.BackColor = RGB(200, 200, 200)
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

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

... et s'il y a plusieurs types d'objets dans les Frames

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
'---- 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

michel

merci

mais event n'est pas reconnu dans excel 97

ceci est en rouge
Code:

1 2 3 4 5 6 7 8 9 10 Public Event GetFocus() Public Event LostFocus(ByVal Txtbx As String) - - - RaiseEvent LostFocus(nomObjActif) - RaiseEvent GetFocus
une idée

10/02/2007, 16h29
SilkyRoad

rebonjour

Une version pour Excel97 est aussi proposée dans le lien indiqué en annotation:

http://www.mrexcel.com/board2/viewtopic.php?t=69331

bon après midi
michel