InputBox vs Tabulation - Saisie avec douchette d'un datamatrix

Version imprimable

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:

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.

Salut,

peux tu nous dire ce qui s'affiche dans la fenêtre d'exécution sur cette ligne stp ?
Code:

1 2 3 strinput=Application.InputBox("Veuillez, s'il vous plaît, scanner le DataMatrix du carton de cellules ...", "Scan du DataMatrix", Type:=2) Debug.Print strinput 'code = Replace(strinput, vbTab, ";")
Je pense que tu n'as pas forcément un vbTab

12/07/2018, 07h37
LuisFilipe1986

2 pièce(s) jointe(s)

Bonjour,

Merci pour votre réponse.

Je pense vraiment que c'était des vbTab car lorsque je fait le même scan sous Word, j'obtiens la capture d'écran ci-dessous (il y a même un saut de ligne à la fin ; cela pourrait-il être l'origine du problème ?) ... je me suis aussi demandé si le nombre de caractères de mon datamatrix n'était pas trop important pour l'inputbox, ici 462 (espaces compris) ... mais je n'ai pas trouvé l'info du nombre max de caractères pour la fonction inputbox.

Pièce jointe 395850

Ci-dessous une capture d'écran en suivant vos instructions (en espérant avoir bien compris):

Pièce jointe 395857

Merci encore.

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub teste()
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"PressePapier =Application.InputBox("Veuillez, s'il vous plaît, scanner le DataMatrix du carton de cellules ...", "Scan du DataMatrix", Type:=2)
Range("A2").PasteSpecial xlPasteAll

End Sub
Public Property Let PressePapier(Value)
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Value
        .PutInClipboard
    End With
End Property
*
Public Property Get PressePapier()
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PressePapier = .GetText
    End With
End Property

13/07/2018, 07h16
LuisFilipe1986

Bonjour,

Merci pour votre réponse dysorthographie ...
J'ai fait un copié-collé de votre proposition dans un module d'un nouveau classeur pour voir comment se présente votre macro ...
Le débogueur me met "Erreur de compilation / Erreur se syntaxe" ...

Ai-je fait une erreur en plaçant le code dans un module ?
Merci.

Bonjour,
Oui une légère absence !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
sub teste()
PressePapier =Application.InputBox("Veuillez, s'il vous plaît, scanner le DataMatrix du carton de cellules ...", "Scan du DataMatrix", Type:=2)
Range("A2").PasteSpecial xlPasteAll
 
End Sub
Public Property Let PressePapier(Value)
    With CreateObject(DATAOBJECT_BINDING)
        .SetText Value
        .PutInClipboard
    End With
End Property
 
Public Property Get PressePapier()
    With CreateObject(DATAOBJECT_BINDING)
        .GetFromClipboard
        PressePapier = .GetText
    End With
End Property

17/07/2018, 07h37
LuisFilipe1986

2 pièce(s) jointe(s)

Bonjour,

Merci pour vos efforts pour répondre à mon problème.
J'ai inscris votre code dans le module d'un nouveau classeur pour voir les effets de votre macro avant de l'intégrer à la mienne ...
Malheureusement cela ne fonctionne pas ... seule une valeur s'affiche dans B2 ...

Pièce jointe 397041 Pièce jointe 397045

Merci encore.
26/07/2018, 10h24
LuisFilipe1986

Bonjour,

Quelqu'un aurait-il une autre idée pour la résolution de mon problème ?
Par avance merci beaucoup.

Cordialement.