CbCodArt ne se remplit pas.
Résolu
Bonjour à toutes et à tous,
Aucune des instructions tapées ne remplit le cbCodArt. D'avance merci à celle ou à celui qui va pouvoir me dépanner. Évidemment, une instruction pour remplir le tbNomArt me sera très utile. Les codes proposés seront-ils valables pour tous les NAM ou seulement pour le DMR ? À toutes fins utiles, et si cela est possible, j'opterai pour une instruction avec WorksheetFunction.VLookup.
https://www.cjoint.com/c/KHwkeANuAUo
BUDGETS
Aucune des instructions tapées ne remplit le cbCodArt. D'avance merci à celle ou à celui qui va pouvoir me dépanner. Évidemment, une instruction pour remplir le tbNomArt me sera très utile. Les codes proposés seront-ils valables pour tous les NAM ou seulement pour le DMR ? À toutes fins utiles, et si cela est possible, j'opterai pour une instruction avec WorksheetFunction.VLookup.
https://www.cjoint.com/c/KHwkeANuAUo
BUDGETS
7 réponses
-
Bonjour a vous deux,
BUDGETS:
A quoi bon vous faire ce que vous demandez, si vous n'utilisez pas le fichier modife!
https://forums.commentcamarche.net/forum/affich-37313055-remplissage-du-cbcodart-a-partir-du-cbcodectg-ou-du-lbnomdes#p37314328-
-
@BUDGETSRe,
Le lien ne s'ouvre pas d'une part
Z'etes sur?
c'est un nouveau fichier avec l'utilisation de WorksheetFunction.VLookup
Peut-etre, mais il est sur que vous avez repris la meme structure de code qui ne marche pas du fichier precedent.
L'instruction WorksheetFunction.VLookup est pour tbNomNAM.Value donc rien a voir avez la combobox [cbCodeArt]. -
@f894009Si j'ai fait une erreur, merci de me dire où elle se trouve et de la corriger ou de me mettre sur la voie pour que j'essaie de la corriger moi-même. Deboggage, pas à pas détaillé, pour les instructions suivantes, cela me sort Feuille_LT01 = nothing. Cela veut dire quoi et est-ce une erreur ou pas ? Si erreur, c'est quoi comme erreur ?
'Initialisation des variables modules pour indiquer la référence de Feuille
Set Feuille_LT01 = FL03_LT01
Set Feuille_LT02 = FL04_LT02
Set Feuille_LT03 = FL05_LT03
Set Feuille_LT04 = FL06_LT04
Set Feuille_Bd_articles_menus = FL02_BDAM
Set Feuille_Jours_fériés = FL07_JF
Oui, je suis sûr que le lien ne s'ouvre pas. J'ai ouvert ce fichier à partir d'Excel et je confirme qu'il est différent de Menus ccm. -
@BUDGETSRe,
Fichier du 15/08:
https://www.cjoint.com/c/KHxpcSNYk4f (j'ai utilise Cijoint car mon-partage est en rade)
Plus ici, la modif pour TbNomConditionnement
https://forums.commentcamarche.net/forum/affich-37318517-tbnomconditionnement-ne-se-remplit#p37318654
Maintenant question: qui a reelement ecrit le code de votre fichier? -
@f894009Merci.
C'est une personne de ce site comme vous et un xlnaute (Excel downloads).
-
-
Bonjour,
Juste au passage, il serait bien que vous fassiez un pas à pas sur le code (macro) qui est en charge de renseigner votre combobox [cbCodeArt] afin de découvrir se qui ne vas pas… et dit apporter la correction... !
Note, un minimum serait d'indiquer sur quelle exécution de programme se produite le problème
-
Bonjour,
Eh bien la c'est dommage pour vous surtout si vous construisez un code et que vous n'arrivez pas à le contrôler son exécution.
Alors, sur quelle exécution de programme se produite le problème-
Bonjour Le Pingou,
J'ai essayé ta méthode. Pour les instructions suivantes, en passant la souris, cela me sort Feuille_LT01 = nothing. Cela signifié quoi et est-ce une erreur ? Si erreur, laquelle ?
'Initialisation des variables modules pour indiquer la référence de Feuille
Set Feuille_LT01 = FL03_LT01
Set Feuille_LT02 = FL04_LT02
Set Feuille_LT03 = FL05_LT03
Set Feuille_LT04 = FL06_LT04
Set Feuille_Bd_articles_menus = FL02_BDAM
Set Feuille_Jours_fériés = FL07_JF
-
-
Bonjour,
Je viens de voir le message de f894009 (salutations) et dans ce sens je me retire du poste
-
Bonjour BUDGETS, bonjour à tous,
@Le Pingou, @f894009
Difficile de suivre notre ami BUDGETS n'est-ce pas ?
@BUDGETS
Ma parole, j’hallucine, tu recommences un autre fichier sans même terminer le précédent. Les différentes propositions ne te convenaient pas ?
Tu trouves que :tbNomNAM.Value = WorksheetFunction.VLookup(cbCodeNAM.Value, Feuille_LT04.ListObjects("LNAM").Range, 2, False)
qui pourrait s’écrire plus simplement :tbNomNAM.Value = WorksheetFunction.VLookup(cbCodeNAM.Value, Range("LNAM"), 2, False)
est plus compréhensible que :tbNomNAM.Value = Range("LNAM[NNAM]").Item(N)?
Il y a des tas d’autres façons de faire, avec la méthode .find, avec les méthodes Index et Match, avec une boucle de recherche, … Tu veux toutes les tester ?
Pour le cbCodArt, je te mets sur la voie, l’appel de la procédure Initialise_Articles est mal placé !
Cordialement-
Bonjour f894009,
J'ai un fichier dans lequel WorksheetFunction.Vlookup est abondamment utilisé, c'est pour cela que j'ai voulu le tester dans mon propre fichier. Quant à l'appel de la procédure Initialise_Articles, dans ledit fichier il est placé dans UserForm_Initialize, donc j'ai fait de même; dans ce fichier, il y a d'autres appels à des procédures qui le précèdent : est-ce la raison du non fonctionnement ? -
cbCpdArt : appel de la procédure mal placé. J'ai suivi le raisonnement suivant : à l'ouverture du formulaire, on choisit le NAM; le NAM choisi, que voit-on : c'est le code des articles. Je me suis dit, dans la procédure cbcodeNam_Change, à la fin, si on demandait gentiment, poliment de se rendre sur Initialise_Articles, peut-être que la procédure serait contente, heureuse. Aussitôt pensé, aussitôt écrit. Premier essai : Nam01 : résultat : code article : DMR01; Nom article : Pomme. Maintenant je vais continuer à coder les select case. J'ai gardé WorksheetFunction.Vlookup en instruction et pas en commentaires, mes quatre feuilles. J'ai modifié les privates en dim, les feuilles en feuille_liste (excepté pour la bd et les jours fériés).
-
-
Bonjour,
Aucune des instructions tapées ne remplit le cbCodArt
Ben, tout se passe normalement!!
Je parle du fichier Menu.
Suite:
Je viens de voir que vous avez cree une autre demande le 24/08/2021.
Je recupere le fichier BUDGETS-ALS35-V11 (8).xlsm -
Bonsoir LE PINGOU,
Je ne suis pas assez expert pour comprendre le pas à pas. Je n'ai jamais rien compris à ces différentes manoeuvres
