Bonjour le forum,
Je bute sur un truc (sûrement tout bête....) :
Sur un USF, j'ai un TextBox sur lequel je fais un contrôle de saisie :
Je pensais naïvement que le .SetFocus allait remettre le curseur dans mon Textbox..... Eh ben non ! Le focus passe au contrôle suivant (un Combobox). Donc je me suis dit que je pouvais tenter ceci avec mon Combobox :
Si mon Textbox est vide, alors je lui redonne la main... Eh ben, non plus !
Alors là, je sèche....
Donc, si une âme charitable pouvait me dire ce qui cloche, ça m'éviterait de mettre le feu à mon PC !!!
Je bute sur un truc (sûrement tout bête....) :
Sur un USF, j'ai un TextBox sur lequel je fais un contrôle de saisie :
VB:
Private Sub TB_Ref_BCF_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Not TB_Ref_BCF.Text = "" Then
If (Len(TB_Ref_BCF.Text) <> 6 And Len(TB_Ref_BCF.Text) <> 5) Or Not IsNumeric(TB_Ref_BCF.Text) Then
MsgBox "Mauvais code affaire"
With Soupapes.TB_Ref_BCF
.Text = ""
.SetFocus
End With
Exit Sub
End If
Application.EnableEvents = False
Range("Cde_BCF") = TB_Ref_BCF.Text
Application.EnableEvents = True
End If
End If
End SubJe pensais naïvement que le .SetFocus allait remettre le curseur dans mon Textbox..... Eh ben non ! Le focus passe au contrôle suivant (un Combobox). Donc je me suis dit que je pouvais tenter ceci avec mon Combobox :
Code:
Private Sub CB_Technicien_Enter()
If Me.TB_Ref_BCF.Text = "" Then Me.TB_Ref_BCF.SetFocus
End SubSi mon Textbox est vide, alors je lui redonne la main... Eh ben, non plus !
Alors là, je sèche....
Donc, si une âme charitable pouvait me dire ce qui cloche, ça m'éviterait de mettre le feu à mon PC !!!