Discussion :

[LuisFilipe1986]

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.

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LuisFilipe1986]

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.




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




Merci encore.

[Invité]

Bonjour,

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 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

[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.

[Invité]

Bonjour,
Oui une légère absence !

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
 
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

[LuisFilipe1986]

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 ...



Merci encore.

[LuisFilipe1986]

Bonjour,

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

Cordialement.