Douchette et Textbox

Version imprimable

Bonjour,

J'ai une question concernant une douchette et une textbox:

je voulais savoir si il était possible de récupérer un événement qui différencierait une entrée manuelle d'une entrée par la douchette?

En effet j'ai un autotab sur mon textbox une fois qu'il contient 10 caractères: Le code scanné par la douchette contient bien plus de caractères et c'est les 10 derniers qui m'intéressent.
or comme je ne veux pas perdre l'autotab du textbox, je me demandais si je pouvais récupérer l'évènement de la douchette ou alors une info qui ferait la différence entre une entrée manuelle d'une entrée automatique afin que je puisse traiter l'entrée automatique en amont?
Car actuellement si je scanne mon code, l'userform se ferme directement et je ne sais pas pourquoi...
il y a un évènement sortie de textbox qui est le suivant:

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
42
43
44
45
46
47
48
49
Private Sub TextBox_Lot_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox_Lot.Value = "" Then
    X = MsgBox("Le format du numéro de lot saisi n'est pas valide", vbExclamation)
    Cancel = True
End If
Me.MultiPage1.Enabled = True
With ThisWorkbook.Worksheets("Test")
    .Range("B3:B200").NumberFormat = "0"
    If .AutoFilterMode = True Then .AutoFilterMode = False
    Set C = .Range("B3:B200").Find(TextBox_Lot.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    '____________________________________
    ' Si le lot est déjà dans la liste
    If Not C Is Nothing Then
        n = C.Row
        TextBox_Lot.ForeColor = &HC000&
        '____________________________________
        ' Affichage des données stérilité
        If .Cells(n, 14).Value <> "" And .Cells(n, 15).Value <> "" Then
            TextBox_JF_Ste.Value = Left(.Cells(n, 14).Value, 5)
            TextBox_HF_Ste.Value = FormatDateTime(TimeValue(.Cells(n, 14)), vbShortTime)
            ComboBox_Visa_Ste.Value = .Cells(n, 15).Value
        End If
        TextBox_Comment_Ste.Value = .Cells(n, 16).Value
        '____________________________________
        ' Affichage des données activité
        If .Cells(n, 21).Value <> "" And .Cells(n, 22).Value <> "" Then
            TextBox_JF_Act.Value = Left(.Cells(n, 21).Value, 5)
            TextBox_HF_Act.Value = FormatDateTime(TimeValue(.Cells(n, 21)), vbShortTime)
            ComboBox_Visa_Act.Value = .Cells(n, 22).Value
        End If
        TextBox_Comment_Act.Value = .Cells(n, 23).Value
        '____________________________________
        ' Affichage des données acceptation
        If .Cells(n, 24).Value <> "" And .Cells(n, 25).Value <> "" And .Cells(n, 26).Value <> "" Then
            If .Cells(n, 24).Value = "O" Then CheckBox_Doss_C.Value = True
            If .Cells(n, 24).Value = "N" Then CheckBox_Doss_NC.Value = True
            TextBox_JF_Acc.Value = Left(.Cells(n, 25).Value, 5)
            TextBox_HF_Acc.Value = FormatDateTime(TimeValue(.Cells(n, 25)), vbShortTime)
            ComboBox_Visa_Acc.Value = .Cells(n, 26).Value
        End If
        TextBox_Comment_Acc.Value = .Cells(n, 27).Value
        '____________________________________
        ' blocage des champs si pas activité/stérilité
        If .Cells(n, 10).Value = "N" Then Me.MultiPage1.page2.Enabled = False
        If .Cells(n, 17).Value = "N" Then Me.MultiPage1.page1.Enabled = False
    End If 'end if si lot déjà dans la liste
fin:
End With
End Sub

Merci d'avance et bonne journée

20/10/2016, 15h44
Jean-Philippe André

Salut,

si je ne dis pas de betise, la lecture de code barre ne declenche pas certains evenements, au contraire de l'insertion par clavier. Tu pourrais utiliser une variable de type boolean pour gerer l'activation ou non par douchette.
20/10/2016, 15h51
bboy-eazy

Bonjour et merci pour ta réponse,

justement c'est ce que je pense faire une variable de type boolean mais du coup sur quoi s'appuyer pour la mettre à true ou false? c'est là tout mon problème...

est ce que l'ajout par douchette ajoute comme un clavier chiffre après chiffre ou Est-ce qu'elle ajoute tout d'un seul bloque comme un copier-coller?
20/10/2016, 15h56
Jean-Philippe André

A toi de mettre des bouts de code sur les evenements Change et AfterUpdate par exemple + KeyDown.

Des msgbox ou des debug.print, qui devraient te donner matiere a en deduire tout cela.

Attention au cas ou apres le keydown tu as une longueur de texte = 0 => reinitialisation de ta variable =]
20/10/2016, 16h02
Philippe Tulliez

Bonjour,

Citation:

je me demandais si je pouvais récupérer l'évènement de la douchette ou alors une info qui ferait la différence entre une entrée manuelle d'une entrée automatique afin que je puisse traiter l'entrée automatique en amont?

Ce qu'une douchette envoie est programmable non pas par VBA mais au niveau de la douchette (par exemple envoyer un Carriage Return LineFeed).
Ensuite comme l'a très bien expliqué Jen-Philippe que je salue au passage, tu interceptes l'événement à l'aide du VBA
20/10/2016, 16h08
Invité
Bonjour,
La douchette ce comporte comme ton clavier.

Sur contrôle l'vêtement keypressed tu testes le chr(13) fin de ligne!
Code:

1 2 Private Sub textbox_KeyPress(KeyAscii As Integer) If KeyAscii =13 then
21/10/2016, 09h25
bboy-eazy

Bonjour à tous et merci infiniement

J'en apprends tous les jours grâce à vous :)

Je sais grâce à Phillipe ce que signifie vbcrlf par exemple :)

Merci également à Robert pour les keyascii dont je n'avais jamais travaillé dessus :)

bonne journée à tous
21/10/2016, 09h56
Invité

bonjour,
pour information:
vbCrLf= [Retour Chariot] & [Fin de ligne]
[Retour Chariot]= chr(10)
[Fin de ligne] = chr(13)
21/10/2016, 10h34
Philippe Tulliez

Bonjour,
Cela ne nous rajeunit pas.

Citation:

Le retour chariot désigne originellement le mécanisme physique permettant au chariot d'une machine à écrire de revenir en butée à gauche (soit, du point de vue du rédacteur, de revenir au début de la ligne).
Par extension, le terme désigne usuellement le retour à la ligne sur les traitements de texte : un passage à la ligne suivante.

Et pour compléter la réponse de Robert que je salue au passage

Citation:

En informatique, le retour chariot (en anglais carriage return, CR) est l'un des caractères de contrôle des normes de codage de caractère ASCII et EBCDIC, il indique en tout ou en partie, une fin de ligne. Le code ASCII du retour chariot est 13. Ce caractère non affichable est souvent représenté par le symbole « ^M » (notation caret) dans les éditeurs de texte, tels que Emacs et Vi.

Dans le système d'exploitation Mac OS (avant Mac OS X), le retour chariot marque à lui seul la fin d'un paragraphe, tandis que Windows l'utilise conjointement au caractère « retour à la ligne ».

Dans la syntaxe Word et Excel, le retour chariot est noté ^p [accent circonflexe suivi de la lettre P minuscule]. Par exemple, pour remplacer tous les signes - d'une zone donnée en un retour chariot, dans la commande "Remplacer", entrer - à remplacer par ^p.

Les deux textes sont extraits de Wikipédia