Bonjour à tous,
J'utilise actuellement sur mes formulaires ce type de raccourci clavier :
Pour que cela soit efficace il faut que je duplique ce code pour chaque contrôle.
Comme c'est surtout des textbox, je cherche depuis peu, à utiliser un module de classe.
J'ai écrit ceci :
Dans un module de classe (Classe 1).
J'ai placé ceci dans mon userform :
Hors dès que je saisie n'importe quoi dans une de mes textbox, la macro m'indique une erreur de compilation (membre de méthode ou de données introuvables) en m'indiquant cette partie du code :
Je ne vois pas comment remplacer l'instruction.
Merci d'avance.
A+, Matt.
J'utilise actuellement sur mes formulaires ce type de raccourci clavier :
Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 123 Then 'F12
CommandButton1_Click
End If
End Sub
Pour que cela soit efficace il faut que je duplique ce code pour chaque contrôle.
Comme c'est surtout des textbox, je cherche depuis peu, à utiliser un module de classe.
J'ai écrit ceci :
Code:
Option Explicit
Public WithEvents GroupTxt As MSForms.TextBox
Private Sub GroupTxt_Keydown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 123 Then
Userform1.CommandButton1_Click
End If
End Sub
Dans un module de classe (Classe 1).
J'ai placé ceci dans mon userform :
Code:
Option Explicit
Dim GTxt(100) As New Classe1
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim N As Byte
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
N = N + 1
Set GTxt(N).GroupTxt = Ctrl
End If
Next Ctrl
End Sub
Hors dès que je saisie n'importe quoi dans une de mes textbox, la macro m'indique une erreur de compilation (membre de méthode ou de données introuvables) en m'indiquant cette partie du code :
Code:
Userform1[B].CommandButton1_Click[/B]
Je ne vois pas comment remplacer l'instruction.
Merci d'avance.
A+, Matt.