Saisie inventaire VBA
Bonjour à tous,
Dans le cadre de mon travail, je doit faire des petits inventaires.
Pour cela j'utilise une tablette tactile avec une douchette lecteur de code barre, qui envoie une information "REFERENCE + TOUCHE ENTREE"
Voici ce que j'ai déjà fait :
Private Sub CommandButton1_Click()
derligne = Sheets("Inventaire").Range("B4000").End(xlUp).Row + 1
Sheets("Inventaire").Cells(derligne, 2) = SaisieSAP.TextBox1.Value
Sheets("Inventaire").Cells(derligne, 4) = SaisieSAP.TextBox3.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_AfterUpdate()
On errror GoTo 1
If WorksheetFunction.CountIf(Sheets("Données").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "Numéro SAP non valide", vbInformation + vbOKOnly
Unload Me
End If
With Me
Me.Label4.Caption = Application.WorksheetFunction.VLookup(CDbl(Me.TextBox1), Range("A2:N3000"), 2)
Me.Label5.Caption = Application.WorksheetFunction.VLookup(CDbl(Me.TextBox1), Range("A2:O3000"), 3)
End With
1
End Sub
En gros :
1. Lecture du code barre avec la douchette, la douchette lis la réference, l'ecris dans textbox1 et appuie sur entree.
2. Dès MAJ de la TextBox1, faire une recherche dans la feuille "Données" si la réference existe. Si non erreur + quitter. Si oui on continue.
3. Ecriture dans Label 14 et 15 la description et la quantité en stock selon la reference textbox1
4. on rentre manuellement la quantité réele textbox 2 puis clique sur valider
5. Les données sont copié dans la feuille "Inventaire" céllule B10, ainsi de suite.
En gros ça fonctionne pas ...
Merci de votre aide!
Bonjour et bienvenu sur Excel Pratique
Un fichier est TOUJOURS le bienvenu
A+ François
Bonjour,
Merci pour votre réponse. Ci-joint le fichier :)
Salut,
Voici un exemple.
Je n'ai pas coder la question 2 car je pense qu'il ne faut pas fermer le formulaire mais scanner un nouveau code.
Salut Jean-Paul !
SUPER !!
2 petites améliorations de practicité :
- Vider les textbox dès qu'on clique sur Valider.
- Possible de mettre le curseur sur quantité dès que le code article est rentré?
Le but étant de limiter les interaction avec la tablette
Merci !
Re,
Il faut juste modifier les tabulations, voilà qui est fait.
Merci pour vos réponses et solutions, je rentre de congés et j'ai mis en pratique vos solutions, niquel le gain de temps !