fichier inventaire permanant à amélioré (réad Résolu/Fermé

Question

Bonjour, 

Bonjour a tous les pro de excel et vba

J'aurais besoin de vos service pour améliorer un fichier excel et je suis un peu perdu dans le vba. Comme dit le titre, il faudrait amélioré les boites de dialogue.

Le context : c'est un fichier qui permet de connaître en temps réel le nombre de chutes aluminium qu'il y a en stock. Grace a des boites de dialogue il peut rentré ou sortie des chutes du fichier grace a une douchette (le truc de caissière pour scanner les codes barre) ou rentré manuellement les informations. 

Le problème : Il se passe un niveau de scanner le code barre. En ce moment quand il scanne le code, les informations rentrent de la maniére suivante (ACCD;3004S;2000) donc le nom du profils, sa couleur, et la longueur
et aprés il doit valider pour rentrer ou sortir la chutes. 

A réaliser : Je ne sais pas si c'est possible, mais je vous dis ce qui serais sympa à faire. Il faudrais annuler la validation afin que qd il scan le code barre, la chute rentre automatiquement.

je vous passe le fichier pour que vous compreniez mieux.
http://cjoint.com/?3GsoP42KFPs
En espérant que le line marche
je continue mes recherches de mon coté bon courage a tous

Maxime 

Configuration: Windows 2003 / Internet Explorer 7.0

pijaku · Answer

Bonjour,

1- Bonjour a tous les pro de excel et vba 
Aucun pro ne t'aidera gratuitement, donc considère qu'ici tu es aidé par des bénévoles amateurs...

2- Pour faire ce que tu veux, il faut que le code qui se déclenche au bouton valider, se déclenche quand le contenu du textbox change.
Le principe, couper le contenu du code du bouton, le coller dans l'événement TextBox_Change, et ajouter quelques lignes à la fin pour vider le textbox et lui donner le focus.

Par contre, c'est difficile pour moi de tester, donc je te l'ai fait dans le fichier ci-joint, uniquement pour les entrées.
Dis moi si cela fonctionne.

pijaku · Answer

il y a une erreur
Laquelle? Quel est le code erreur? Qu'elle ligne est surlignée lorsque tu clic sur Débogage?

je pence qu'il faudrai demandé de retiré les informations des deux premiers point virgule quand les prochains arrive et dir ce qui a retiré comme info de l'éffacer 
Alors là... pas tout compris...

pijaku · Answer

Essaye ce fichier
L'événement choisit est TextBox_Exit.
Ne sachant pas comment réagit l'événement Change avec une douchette...

Tu scannes un produit et appuies sur Tab pour quitter le textbox.

erreur sur Chr(13)... incompréhensible.
Quant à :
sinn oublie ce que j'ai dit avant avec les point virgules et tous, j'ai peus être une autre idée 
est-il possible de dir a la texbox de rentré les informations dans le fichier quand la text box se retrouve avec deux point virgule. car il faut savoir que quand je scan le modele reste toujour le même donc nom du profils ; la couleur ; la longueur et c'est grace au point virgule que l'on peu dissosié le nom, la couleur et la longueur pour quel rentre chacune dans les colones qui leur convienne

C'est ce que fait le code...

maximus306 · Answer

re,
j'ai une erreur en cliquant sur le boutton donc l'erreur c'est : erreur de compilation // la décalration de la procédure ne correspond pas a la description de l'évènement ou de la procédure du même nom.

sinon tu a raison, quand je scanne le code barre, cela me donne ce que je t'es dit audessus

pijaku · Answer

Alors la!!!!!!
Je ne comprends pas pourquoi la procédure Exit refuse de fonctionner...

Tant pis pour elle, on utilisera AfterUpdate qui n'est pas trop loin...
Regarde ce nouveau fichier et dis moi...

pijaku · Answer

Bonjour,
Bon le but du jeu de ce jour est de permettre à l'utilisateur de scanner 10, 20, 32000 codes et de valider après en une seule fois. C'est ça?

Bon. Je t'ai bricolé un code, à partir de ton fichier initial (celui qui fonctionnait bien...) avec une variable tableau. Celle ci va enregistrer jusqu'à 32000 saisies.....
Ne l'utilises pas sur plus de 10-15 codes car après, le traitement des erreurs est différent... Par message, normalement, tu devrait obtenir le numéro du code scanné faux, dans l'ordre de scan des codes.
Voici le fichier

En clair :
- tu prépares 10 codes à scanner,
- tu scannes le premier, le code apparait 1 seconde à l'écran puis disparait : il est enregistré dans la variable tableau
- tu scannes le 2ème 
etc etc...
Quand tu as fini de scanner tes articles, tu clic sur le bouton valider.
Les erreurs apparaitront sous forme de message mais ne s'enregistrent pas! Les codes sans erreur seront enregistrés dans ton fichier.

Je n'ai fait que la BoiteEntrée. Si ça te va je ferais les autres (l'autre...)

pijaku · Answer

Aïe!   
On ne va décidémment pas y arriver.   
Je reviens dans 5 minutes.........   
Tout cela doit venir de la fonction Sleep.   
Je change de slip et reviens donc...

pijaku · Answer

T'inquiète...
Voilà le truc...
Dis moi si ça va mieux sans slip ;-)

pijaku · Answer

C'est étonnant non?
Je n'ai pas du tout touché à cette partie, elle fonctionne sur un de tes fichiers, mais pas sur l'autre???????????????????????????????????????????????????????????

Bon essaie en remplaçant les Chr(13) par l'une ou l'autre des constantes suivantes :
1- Chr(10) ==> marchera certainement pas mieux...
2- vbCr ==> pas tout à fait le même effet,
3- VbCrLf ==> déjà mieux!

Si cela ne fonctionne pas, tant pis pour tes passages à la ligne, on essaie ceci :
à la place de :
If Ch(0) = "" Or Ch(1) = "" Then
            MsgBox "ATTENTION: " & Chr(13) & _
               "Nom de Profil " & Chr(13) & _
               Chr(9) & Chr(9) & "ou/et" & Chr(13) & _
               "Couleur INEXISTANT(S)!!!!!!" & Chr(13) & _
               "Passez en encodage manuel pour le code n° " & i + 1
            GoTo Suivant
            'TexCB = ""
            'Exit Sub
            'TexCB.SetFocus
        End If

Mets :
If Ch(0) = "" Or Ch(1) = "" Then
            MsgBox "ATTENTION: Nom de Profil ou/et Couleur INEXISTANT(S) Passez en encodage manuel pour le code n° " & i + 1
            GoTo Suivant
            'TexCB = ""
            'Exit Sub
            'TexCB.SetFocus
        End If

pijaku · Answer

Je te le répète donc, cela semble fonctionner chez moi. Remarque que je n'ai pas de douchette...
Nulle part dans le code, j'ai pourtant fait toutes les pages, il n'est fait appel à la fonction code128...
Est ce automatique avec la douchette?

pijaku · Answer

Il nous manque certainement des choses, genre des macros .xla placées ailleurs. Cela fait partie d'un pack que tu as acheté? Si oui, tu sais je ne pourrais pas faire grand chose pour toi.....
ce qui es bizard le code128 est pour la partie manuelle pour rentré une chute cela me permet de genere une étiquette avec un code barre, et cela reproduit le code de la machine que nous utilisons 
Nulle part, dans le code du fichier que tu as fournit, il n'est fait appel à code128...
J'en conclus que son appel est extérieur au fichier, mais je ne vois pas du tout comment.....
Malheureusement, sans nouvelle donnée, je ne peux pas t'aider davantage....

pijaku · Answer

Pour essayer tout de même...
La fonction plante sur :
For i% = 1 To Len(chaine$)
      Select Case Asc(Mid$(chaine$, i%, 1))
      Case 32 To 126, 203
      Case Else
        i% = 0
        Exit For
      End Select
    Next
ajoute un MsgBox avant la ligne qui plante :
For i% = 1 To Len(chaine$)
MsgBox chaine$
      Select Case Asc(Mid$(chaine$, i%, 1))
      Case 32 To 126, 203
      Case Else
        i% = 0
        Exit For
      End Select
    Next
et dis moi, quand ça se déclenche?, qu'elle action lance cette fonction? pourquoi? quand? comment? et qui a t'il dans le message?

Fichier inventaire permanant à amélioré (réad

12 réponses

Discussions similaires