Bonjour,

dans la case A1 je scanne un code barre qui s'affiche et çà tabule dans la case A2.
Je voudrais que dans B1 s'affiche 1.
Je voudrais faire çà sur plusieurs lignes.
j'ai essayé ce code qui me compte pas 1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Target, Range("A1")) Is Nothing Then
       Range("B1") = Range("B1") + Target
    End If
 
End Sub
Comment faire