Sub Inputbox_scan() ' Ctrl + S
Dim Scan As Variant
Scan = Inputbox("Code barre :", "Scan d'article")
' Si l'utilisateur n'a saisie aucune donnée et qu'il clique sur OK,
' ou si l'utlisateur clique sur Annuler, on quitte la procédure.
If Scan = "" Then
MsgBox "Aucune article n'a été scanné"
'Exit Sub
' Sinon inscrire dans R1
Else
Range("$R$1").Value = Scan
ActiveCell.Offset(0, 0).Activate
End If
Exit Sub
End Sub