Discussion :

[Franc]

Bonjour à tous,
Je voulais un code qui n'autorise que les chiffres dans un textbox de formulaire. Dans un tutoriel sur les classes, je récupère donc ce code de Emmanuel Tissot et qui fonctionne parfaitement.

Module de classe appelé NumBox

Code :

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

1
2
3
4
5
Public WithEvents TargetBox As MSForms.TextBox
 
Private Sub TargetBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

et dans le code du userform:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim NumBoxes As Collection             'Stocke les références à chaque instance
 
Private Sub UserForm_Initialize()
   Dim Ctl As MSForms.Control
   Dim MyNumBox As NumBox
   Set NumBoxes = New Collection
   For Each Ctl In Me.Controls
      If TypeOf Ctl Is MSForms.TextBox Then
         Set MyNumBox = New NumBox     'Crée une nouvelle instance
         Set MyNumBox.TargetBox = Ctl  'Connecte la variable à l'objet
         NumBoxes.Add MyNumBox         'Ajoute l'instance à la collection
      End If
   Next
End Sub

Maintenant je voudrais changer la couleur de fond et de police quand j'entre et sors d'un textbox.
Je me dis, facile, je n'ai qu'à intercepter les 2 évènements avec ce code dans la classe NumBox:

Code :

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

1
2
3
4
5
6
Private Sub TargetBox_Enter()
    With TargetBox
        .BackColor = &H80000002
        .ForeColor = &H80000005
    End With
End Sub

Code :

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

1
2
3
4
5
6
Private Sub TargetBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TargetBox
        .BackColor = &H80000005
        .ForeColor = &H80000008
    End With
End Sub

et là...rien ne se passe, pas d'erreur de compilation ni d'exécution mais les couleurs ne changent pas. Quelqu'un sait où est le problème ?

[Thumb down]

Bonjour,
Oui effectivement les évènements Enter et Exit n'existe pas dans WithEvents pour contrôle textbox.

[Philippe Tulliez]

Bonjour,
Il y a évidemment moyen d'obtenir le même résultat sans passer par ces deux événements.
Voir la réponse de Maxence Hubiche dans cette discussion Changer la couleur des TextBox et Combobox dans un USF

[umfred]

je testerais les événements GotFocus et LostFocus

[Franc]

je testerais les événements GotFocus et LostFocus

J'ai testé ces 2 évènements mais ils ne sont pas interceptés, il ne se passe donc rien.

[binarygirl]

Je voulais un code qui n'autorise que les chiffres dans un textbox de formulaire. Dans un tutoriel sur les classes, je récupère donc ce code de Emmanuel Tissot et qui fonctionne parfaitement.

Ça me paraît relativement injustifié d'utiliser un textbox pour cet usage.

Utilisez tout simplement le contrôle NumericUpDown. Il est conçu pour ça et se comporte comme un textbox.
Doc: https://learn.microsoft.com/en-us/do...orkdesktop-4.8

[Franc]

J'ai finalement trouvé un moyen de changer la couleur des textbox quand j'entre et je sors sans module de classe (trop compliqué pour moi).
Je crée une macro commune que j'appelle dans les évènements _Enter et _Exit, ce qui fait une ligne de code au lieu de réécrire chaque fois le même code dans chaque textbox. Je mets le code à des fins didactiques, on ne sait jamais que ça intéresserait quelqu'un.

Code :

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

1
2
3
Private Sub TextBox1_Enter()
    MacroCommune Me.TextBox1, True
End Sub

Code :

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

1
2
3
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    MacroCommune Me.TextBox1, False
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
Sub MacroCommune(tb As MSForms.TextBox, ByVal entering As Boolean)
    If entering Then
        ' Changer la couleur de fond lors de l'entrée
        tb.BackColor = RGB(255, 255, 0) ' Jaune
 
        ' Changer la couleur de police lors de l'entrée
        tb.ForeColor = RGB(255, 0, 0) ' Rouge
    Else
        ' Réinitialiser la couleur de fond lors de la sortie
        tb.BackColor = RGB(255, 255, 255) ' Blanc
 
        ' Réinitialiser la couleur de police lors de la sortie
        tb.ForeColor = RGB(0, 0, 0) ' Noir
    End If
End Sub

[jurassic pork]

Hello,
il y a une solution pour pouvoir utiliser les événements Enter et Exit dans un module de classe :
c'est l'utilisation de l'API Windows ConnectToConnectionPoint
C'est ce que nous propose notre ami japonais K.Tsunoda ici
La classe et un classeur exemple se trouve dans le fichier Bpca_Class_V40E.zip

clsBpca supports the following controls and events, and it works in x64.
-- Controls --
Label , TextBox , CommandButton , OptionButton
CheckBox , ComboBox , SpinButton , ToggleButton
Among standard controls, ListBox/Frame/TabStrip/ MultiPage/ScrollBar is excluded
from supported controls. It is the reason that is not placed much so that these controls
becomes Control-Array.


-- Events --
Enter , Exit , BeforeUpdate , AfterUpdate
Change , Click , DblClick , KeyDown , KeyPress , KeyUp
MouseMove , MouseDown , MouseUp
SpinDown , SpinUp , DropButtonClick
FakeExit

Ami calmant, J.P

[Franc]

Très intéressant, merci J.P

[Philippe Tulliez]

Bonjour,
Le lien de la conversation que j'ai donné fait exactement ce que tu attends, une couleur dans le TextBox à l'entrée de celui-ci et à la sortie la couleur disparait.