Discussion :

[stargates]

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 :

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

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

[stargates]

merci,


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

could not find the specified object

ton code

Code :

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

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

[SilkyRoad]

bonjour

tu peux essayer la procédure suivante

Code :

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

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 :

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

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

[SilkyRoad]

et si les TextBox sont dans des Frames:

Code :

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

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 :

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

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

[SilkyRoad]

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

Code :

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

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

[stargates]

merci


mais event n'est pas reconnu dans excel 97


ceci est en rouge

Code :

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

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

[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