Valeur d'InputBox dans une cellule variable

Bonjour à tous,

Je suis en train d'effectue un Excel pour gérer un stock avec un Gun Scan pour lire les codes barres.

Dans le worksheet "Historique - Nouvelle Entrée", la colonne B est là où l'on scan les codes barres.

Je suis entrain de mettre en place une macro VBA pour ajouter le nombre de chaques produits (pour éviter de scanner 40 fois la même chose).

J'ai donc indiqué dans ma macro : Quand une cellule dans B est remplie, une InputBox se met en place demandant le nombre d'échantillons du même produit. Je veux que ce nombre apparaisse dans la colonne H à la même ligne que l'endroit où l'on a scanné.

Ma macro est très simpliste, et pour le moment le nombre que j'inscris dans l'InputBox se copie dans TOUTE la colonne H, et non pas dans la cellule de la colonne H correspondant à la ligne de la cellule scanné.

Ci-Joint la macro en question.

Merci par avance de votre aide.

Cordialement,

bonjour,

à tester,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
 resultat = InputBox("Combien d'exemplaires avez-vous de ce produit ?", "Nombre du même produit")  
 Cells(Target.Row, 8).Value = resultat
End If
End Sub

aussi peut s'écrire

Cells(Target.Row, "H").Value = resultat

Bonjour,

Cela marche nickel. Merci beaucoup de ton aide.

Passes une excellente journée.

Cordialement,