Lancer une macro avec un scan de code barre

Bonjour à vous,

J'ai un logiciel qui est complétement programmé et qui fonctionne avec des boutons,

Le problème est qu'il faut que je lance mes macros grâce à une douchette en scannant un code-barres mais je ne trouve aucune possibilités.

Merci d'avance pour votre aide.

Cordialement

Bonjour,

En scannant avec la douchette ...

Est-ce que l'information se retrouve dans une cellule d'une feuille ?

Ou dans un textbox d'un formulaire ??

ric

Merci de ton aide Ric,

L'information se retrouve dans une cellule d'une feuille

Cordialement

Bonjour,

En VBE > rends-toi dans la feuille concernée ...

Supposons que la cellule où est insérée l'information de la douchette est la cellule A1 ...

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

''' " suite du code "
'''

End Sub

ric

Merci d'être là pour m'aider, mais malgré 30 minutes de recherche avec le début de ton code je stagne.

Exemple: je voudrais que quand ma douchette scan le code-barres "248" cela s'affiche en "A1" et donc exécute ma macro "prépa248"

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Range("A1").Value = 248 Then Call prépa248
End Sub

ric

Bonjour,

Étant donné que je présume que tu auras plusieurs codes de scan différents ...

Des "Case ..." > tu peux en ajouter au besoin avant le "Case Else" ...

Si l'info placée dans A1 est de type numérique > le numéro ne doit pas être encadré de guillemets ...
Exemple   Case 248  ...

Si l'info placée dans A1 est de type alpha-numérique > l'info alpha-numérique doit être encadrée entre guillemets ...
Exemple :   Case "DLT741GS"    ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

    Select Case Range("A1").Value
    Case 248
        Call prépa248
    Case 250    ' < autre numéro valide succeptible d'appeler une macro
        Call prépa250
    Case "DLT741GS"    ' < autre numéro valide succeptible d'appeler une macro
        Call prépaDLT741GS
    Case Else
        ' traitement à faire si le numéro scanné n'est pas dans la liste ci-haut
    End Select
Range("A1").Clearcontents  ' < vide A1 pour recevoir le prochain code 
End Sub

ric