Bonjour tous
Programme pour gérer des pièces avec code barres au moyen d'une douchette.
voila j'ai un " tbx1Scan "dans un formulaire qui récupère les données de la douchette ,pour ensuite se positionne sur la ligne de cet enregistrement.
Lorsque j'utilise la douchette cela me positionne sur la ligne suivant.
Lorsque je tape ce code au clavier je tombe bien sur la bonne ligne .
Je ne vois pas merci
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
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
Sub Tbx1Scan_Change()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
Dim Ncarac As Long
Dim Lig As Long
Dim cel
Dim PasLi As Long
    PasLi = 0
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("Trier_Rechercher")
    Ncarac = Len(Tbx1Scan.Text)
    If Ncarac = 16 Then
       'Détermine la dernière ligne renseignée de la feuille de calculs
 
       DerLig = Split(FL1.UsedRange.Address, "$")(4)
        'Fixe le N° de la colonne à lire
         NoCol = 9
        'Utilisation du N° de ligne dans une boucle For ... Next
 
        For NoLig = 1 To DerLig
 
         Var = FL1.Cells(NoLig, NoCol)
 
           If Tbx1Scan = Var Then
 
 
              cel = "B" & NoLig - 1 'j'ai mis -1 avec le scan ça passe la ligne
              Unload SCAN
              Worksheets("Trier_Rechercher").Range(cel).Select
              PasLi = 1
           End If
 
         Next
 
                 If PasLi = 0 Then
                   Unload SCAN
                   MsgBox "Piéce iconnue", vbExclamation, "Piéce?"
                            'j'en ai mis deux avec le scan ça passe dessus
                   MsgBox "Piéce iconnue", vbExclamation, "Piéce?"
                 End If
 
    Set FL1 = Nothing
 
    End If
 
End Sub
Merci