Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Bonjour Forum ,
j'ai besoin de faire un inventaire avec douchette
j'ai scan le code a barre,il faire copier et coller le code dans le tableau et si le code répéter plusieurs fois il donne toujour le nombre a chaque fois dans la même ligne
c'que j'ai fait marche très bien avec une saisie au clavier ; j'sais pas si ça marchera avec une douchette ; comme j'en n'ai pas (et qu'j'ai pas besoin d'en acheter une), j'ai pas essayé. 😉 mais j'pense quand même que ça pourra te servir, ne serait-ce que si c'est juste en tant que piste ; note bien qu'au départ, les colonnes A et B sont vides (à part les en-têtes "Code" et "Nombre") ; saisies successives en J2, et résultats correspondants :
ne tape pas 01) à 14) : c'est juste le n° de l'étape dans la procédure à suivre.
tu l'auras compris, il y a ces 2 cas différents :
a) quand la référence n'est pas dans la liste :
ça l'ajoute avec à droite une quantité de 1
b) quand la référence existe déjà dans la liste :
ça augmente la quantité correspondante de 1
si la configuration de la douchette est telle que ça scanne un code barre en J2 puis que ça y ajoute automatiquement un code de touche Entrée, ça devrait marcher ! 🙂
Code de la feuille "Inventaire" :
VB:
Option Explicit
Dim cel As Range, chn$, lig&
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Cells(1).Address(0, 0) <> "J2" Then Exit Sub
chn = .Value: Set cel = Columns(1).Find(chn, , -4163, 1, 1)
If cel Is Nothing Then
lig = Cells(Rows.Count, 1).End(3).Row + 1
Cells(lig, 1) = chn: Cells(lig, 2) = 1
Else
With Cells(cel.Row, 2): .Value = .Value + 1: End With
End If
End With
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD