CbCodArt ne se remplit pas.

Résolu
BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

7 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    3
    1. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour f894009,

      Le lien ne s'ouvre pas d'une part et d'autre part, c'est un nouveau fichier avec l'utilisation de WorksheetFunction.VLookup
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      Re,

      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].
      0
    3. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Si 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.
      0
    4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      Re,
      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?
      0
    5. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Merci.
      C'est une personne de ce site comme vous et un xlnaute (Excel downloads).
      0
  2. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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

    1
  3. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    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
    0
    1. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      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
      0
  4. Le Pingou Messages postés 12276 Date d'inscription   Statut Contributeur Dernière intervention   1 478
     
    Bonjour,
    Je viens de voir le message de f894009 (salutations) et dans ce sens je me retire du poste
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. ALS35 Messages postés 1034 Date d'inscription   Statut Membre Dernière intervention   147
     
    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
    0
    1. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      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 ?
      0
    2. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      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).
      0
  7. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  8. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
     
    Bonsoir LE PINGOU,

    Je ne suis pas assez expert pour comprendre le pas à pas. Je n'ai jamais rien compris à ces différentes manoeuvres
    -1