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

XL 2016 Bug liste déroulante dans UserForm

yannick64

XLDnaute Junior
Bonsoir à tous,
J'ai adapté un fichier Excel pour gérer le magasin élèves du lycée pro dans lequel je travaille.
J'ai des UserForm qui permettent à l'élève au magasin de gérer les entrées/sorties, pour cela on utilise une "douchette" lecteur de codes barres, ce qui nous permet de gagner du temps sur la saisie des éléments. Seulement voilà lorsque je scanne un code barre pour indiquer l'élément qui doit sortir (ou rentrer) du magasin dans mon UserForm, et admettons que ce code barre commence par un 3, Excel me donne toujours le premier item qu'il rencontre dont le code barre commence par un 3. J'ai essayé de changer les paramètres de la boite mais rien ni fait.

Si vous souhaitez jeter un petit coup d'œil vous pouvez aller dans l'onglet "Emprunter / Restituer un matériel" puis "Emprunter un matériel" et dans la boite "référence" si on saisie le premier chiffre du code barre ça bloque la sélection sur le premier qu'il rencontre avec le premier numéro correspondant. (je ne sais pas si c'est très clair).

J'avoue que là je suis perdu, si quelqu'un à une idée de la raison de ce bug je suis preneur.
Merci d'avance
Yannick
 

Pièces jointes

  • Gestion magasin Moto Champo.xlsm
    160.7 KB · Affichages: 21
Trier par date Trier par votes

Oneida

XLDnaute Impliqué
Bonjour,

TooFatBoy, ca roule?​

yannick64​


Ben oui, Me.ComboRefEmprunter.Value n'est pas dans votre code, il faut introduire une ligne de code avec une msgbox pour l'afficher a l'ecran!
Faites une ligne de code en ajutant une textbox et affiche le code scanne pour la position du curseur dans la textbox. Ceci pour savoir s'il y a un ou deus caracteres en bout du code type CrLf ou autre
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
yannick64 à dit:
de toute façon par défaut cette valeur devrait être vide et passer à une valeur correspondant à mon code barre au moment du scan
Cliquez pour agrandir...
C'est bien ce qu'on voudrait vérifier.


yannick64 à dit:
(sachant que la colonne" Référence" est normalement avec la police 3de9 qui affiche un code barre qui me sert à étiqueter les outils et les revues).
Cliquez pour agrandir...
Sur ta capture d'écran les "nombres" de la colonne "Référence" sont affichés en entier.
En revanche, chez moi ils sont affichés en format scientifique car ce sont des nombres et non du texte.


Salut Oneida
 
Vote positif 0 Vote négatif
P

Phébus

XLDnaute Nouveau
Bonjour

il faut aussi changer le style de ta combobox de list à combo.

bine à toi
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
yannick64 à dit:
Désolé, je ne suis pas sur de comprendre, j'ai essayé de rajouter cette instruction mais du coup quand je scanne un code barre ça me plante la macro... Je n'ai pas du faire ce qu'il fallait
Cliquez pour agrandir...
Essaye ceci dans ton UserForm :
VB: 
Private Sub ComboRefEmprunter_Change()
'
'**********************************************************************************************
'    Sheets("FeuilleDeTravail").Range("A1").Value = Me.ComboRefEmprunter.Value
    x = Me.ComboRefEmprunter.Value
    MsgBox (x & " - " & Len(x) & " caractères")
'**********************************************************************************************

    Me.ComboDésignationEmprunter.ListIndex = Me.ComboRefEmprunter.ListIndex
    Me.TxtStocksActuel = Sheets("Stocks").Range("C" & Me.ComboDésignationEmprunter.ListIndex + 4)
    NomDeLaPhoto = Sheets("Stocks").Range("E" & Me.ComboDésignationEmprunter.ListIndex + 4)

    On Error Resume Next
    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & NomDeLaPhoto & ".jpg")
    On Error GoTo 0

    Me.ComboSiteEmprunt1.SetFocus
'    TxtQuantitéEmpruntée.SetFocus

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
435
cathodique
  • Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
459
ChTi160
C
  • Résolu(e)
XL 2021 Emprunt de ressource
Réponses
3
Affichages
420
Compte Supprimé 979
C
E
  • Question
Microsoft 365 Mettre code couleur quand un texte en dessous d'un autre
Réponses
3
Affichages
341
Erakmur
E
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
366
LuckyShuri
L
  • Question
XL 2021 Barre de progression dans une listview - Tableau structuré avec barre de donnée dans la listview
Réponses
2
Affichages
491
AHK
  • Résolu(e)
XL 2016 Quoi de moins simple que de déterminer le RECT d'une fenêtre ? Fichier pour test...
2 3 4
Réponses
56
Affichages
708
patricktoulon
S
  • Question
Microsoft 365 Bug Me.Controls dans mon Userform
Réponses
4
Affichages
415
Jacky67
  • Résolu(e)
XL 2016 VBA - Question complexe ! Activer la Feuille ou le UserForm selon la position du curseur de la souris
Réponses
5
Affichages
828
Dranreb
P
  • Résolu(e)
Autres suivi de collecte
Réponses
3
Affichages
521
Patrice52
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…