redonner le focus à un textbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

Si tu considères qu'un double-clic est difficilement compréhensible, tu peux laisser tomber...
Une autre manière de faire, la touche Esc permet la sortie et active la combobox directement.
Si l'utilisateur n'est pas trop ... stupide, il comprendra là?

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
35
36
37
38
39
40
41
Private SortieAutorisee As Boolean
 
Private Sub piece_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If piece.Value <> "" Then
        ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
        Label2.Visible = True
        Label2.Caption = "pièce N°:" & ThisWorkbook.Worksheets("bdd 1").Range("a1") & " enregistré"
        piece.Value = ""
        focus
    End If
End Sub
'redonne le focus
Private Sub piece_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not SortieAutorisee Then
    If piece.Value = "" Then Cancel = True
End If
End Sub
Private Sub piece_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 27 Then
        SortieAutorisee = True
        STATION.SetFocus
    End If
End Sub
Private Sub focus()
    piece.SetFocus
    SortieAutorisee = False
End Sub
Private Sub Validation_Click()
    If IsNumeric(piece) Then
        ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
        SAISIE_FUITES.enregistrement_dans_la_base
        piece.Value = ""
        saisie_de_piece_identique = ""
    End If
End Sub
Private Sub STATION_Change()
    focus
End Sub
Private Sub UserForm_Initialize()
    STATION.RowSource = "'bdd 1'!C2:C6"
End Sub

21/09/2020, 11h21
monfiston

c'est aussi un moyen, je préfère la dernière méthode, merci

je vais utilise ta fonction de sortie avec esc

et mettre un texte sur l'userform qui explique comment procéder pour changer le combobox
21/09/2020, 15h48
Philippe Tulliez

Bonjour,

Citation:

Je ne peux pas le faire sur une feuille, car j ai bien trop d information à injecter dans une base access, ,car plusieurs personne enregistre les données en même temps

La gestion d'un scan est bien plus simple pour moi au départ d'une feuille que depuis un UserForm. De plus, la gestion de recherche est simplifiée du fait de l'utilisation des fonctions natives d'excel et le nombre d'opérations ne joue pas.
De plus il est plus simple également d'utiliser des contrôles ActiveX ou formulaire se trouvant sur la feuille.

Vous évoquez Access alors je me demande pourquoi vous ne programmez pas directement depuis une application Access qui est réellement mutli-poste
21/09/2020, 16h08
monfiston

Parce que ma boite interdit access
J utilise juste les bases de données pilotés par des fichier Excel

Voir 40 message(s) de cette discussion en une page