Bonjour,
Tout d’abord, je suis « extra novice » dans la programmation des macros dans VBA … (ça ne commence pas très bien pour vous )
Je travaille dans le secteur des batteries, et les cellules que nous intégrons arrivent par carton de 22pcs. Sur chacun de ces cartons est apposée une étiquette avec QR code/datamatrix.
Ce dernier est composé des informations suivantes : numéro de série + « é » + tension (ex : C021802010042é3,7115).
Aujourd’hui, j’ai écrit une macro de manière à demander à l’opérateur de scanner le datamatrix dans une inputbox, afin de mettre les 22 données dans les cellules « B2-W2 » de ma feuille « Scans ».
Le problème : dans le datamatrix, chacune des 22 données est séparée par des tabulations horizontales !!! (ex : C021802010042é3,7115 C021802010043é3,7127 C021802010127é3,7168 C021802010045é3,7139 C021802010044é3,7154 …etc.).
Alors au moment du scan, seule la dernière valeur est prise en compte par mon inputbox et est insérée dans « B2 ».
J’ai alors essayé de remplacer les tab par des « ; » … sans succès
Ci-dessous, une ébauche de ma macro …
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 Sub QR() Dim datefab As Date datefab = InputBox("Veuillez, s'il vous plaît, indiquer la date de fabrication des cellules sous la forme jj.mm.aaaa", "Introduction de la date de production") Sheets("Général").Select Sheets("Général").Unprotect Range("C" & 2).Value = datefab Dim code As String code = Replace(Application.InputBox("Veuillez, s'il vous plaît, scanner le DataMatrix du carton de cellules ...", "Scan du DataMatrix", Type:=2), vbTab, ";") Sheets("Scans").Visible = True Sheets("Scans").Select Range("B2").Value = code Sheets("Général").Select Sheets("Général").Protect AllowFiltering:=False End Sub
Pourriez-vous s’il vous plaît m’éclairer ?
Vous remerciant par avance.
Partager