Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fichier inventaire

  • Initiateur de la discussion Initiateur de la discussion kanakm
  • Date de début Date de début

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 !

K

kanakm

Guest
Bonsoir à tous,

J'ai besoin de faire évoluer le fichier joint
Dans les grandes lignes, ce fichier utilise une base de donné en feuille 2 et en feuille 1 c'est le fichier de résultat d’inventaire.
Actuellement quand on appelle un gencod par écrit ou par scan la ligne s'affiche.
Le petit plus que je voudrais c'est que si j'ai plusieurs produit à scanné, il faudrait que le cumul se fasse mais sur la même ligne et non ajouter des lignes.
en clair si je scanne un deuxième code différent la ligne doit apparaitre et le prochain scanne si la ligne existe déjà il faudrait que le scanne se cumul sur la même ligne .
C'est chaud ce que je demande, j’espère que quelqu'un aura la solution....
A très vite j’espère.....
 
Re : Fichier inventaire

Bonjour kanakm, job75 🙂, staple1600 🙂, le forum,

Ci dessous quelques versions de ce que j'ai pu comprendre 🙂.
A adapter au fichier final 🙂.

Nota: J'ai emprunté la fonction en colonne A à JB sur son excellent site. qui à mon sens est tout aussi précieux que ce forum, car tous deux nous permettent d'avancer 😉

Cordialement
 

Pièces jointes

Re : Fichier inventaire

Re,

Bon allez, un p'tit coup de VBA dans la feuille BDD (clic droit sur l'onglet et Visualiser le code) :

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Or Target.Column <> 8 Or Target = "" Then Exit Sub
Dim i As Variant
Cancel = True
With Sheets("Scan")
  i = Application.Match(Target, .[H:H], 0)
  If IsError(i) Then i = .Range("H" & .Rows.Count).End(xlUp).Row + 1
  Target.EntireRow.Copy .Rows(i)
  MsgBox "Transfert sur ligne " & i 'facultatif
  Application.Goto .Cells(i, 1), True 'facultatif
End With
End Sub
Double-clic sur un Gencod.

A+
 

Pièces jointes

Re : Fichier inventaire

Bonsoir job75 ton fichier ne correspond pas à ce que je cherche, je dois absolument me servir d'un scan ou pouvoir ecrire. pas de mode recherche.

Bonsoir Anette pas mal du tout.... 🙂
la v3 me convient par contre je ne peut pas faire un copier collé du résultat pour mettre sur une autre feuille. il semblerait que le fichier soit protégé.
Il faudrait également que la colonne J (position) = A03) apparaisse sur la v3 une fois renseigné en feuil1 et que l'on puisse écrire dans les cellules de cette colonne.
 

Pièces jointes

Re : Fichier inventaire

Bonsoir kanakm, job75, le forum,

Votre fichier en retour avec modification 🙂.

Bonne soirée

Cordialement

bonsoir,

j'ai copié votre fichier sur mon Pocket pc motorala MC55 avec un scan intégrer mais quand je veux l'ouvrir il me mentionne que le fichier est protégé ou en lecture seule

merci d'avance pour votre aide

cordialement
 
Re : Fichier inventaire

slt Anette,

Le fichier est top mais un probleme est apparu
Dans l'onglet V3 je suis limité en nombre de ligne et je n'arrive pas à aller au dela.
Peux tu me le modifier s'il te plait

Patrick
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
6
Affichages
73
Réponses
23
Affichages
469
Réponses
2
Affichages
186
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…