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.