Microsoft 365 Besoin d'aide pour optimiser un code(boucle pour combobox et textbox)

[lalimace]

Bonjour à tous,
Avant toutes choses je tenais à remercier les personnes qui interviennent sur ce forum qui est une mine d'or pour un débutant comme moi.

Je travail depuis quelques jours sur un fichier de gestion de stock pour une association.
J'ai essayé de le simplifier (en vain) en utilisant des boucles pour mes combobox mais je n'y arrive pas car elles n'ont pas le même nom.
Dans les faits le fichier fonctionne mais le code est "très lourd" et vraiment pas optimisé dû à ma faible connaissance en VBA.
Sur mon ordinateur aucun problème mais ceux que possède l'association ne sont pas très récent j'ai donc peur d'un temps d'attente excessive lors des ajouts.

Je m'aide d'un userform pour ajouter chaque entrée et sortie de stock dans un tableau sur une feuille excel.
Il y'a une cinquantaine de combobox et une centaine de textbox, les textbox se remplissent automatiquement en fonction du choix dans les combobox.
Un onglet miroir est présent pour incrémenter la date, le type de mouvement et le fournisseur dans chaque ligne à chaque fois qu'une combobox est remplie.
Pour ajouter une ligne dans le tableau, la macro va chercher chaque contrôle non vide de 1 à 8 en fonction de leurs noms.

Mes questions sont les suivantes :
- Comment utiliser des boucles pour simplifier mon code qui est très répétitif ?
- Est-il possible d'alimenter les combobox références en fonction du combobox fournisseur via la feuille stock (exemple : si dans fournisseur je sélectionne "don", les combobox n'afficheront que les références du stock qui ont pour fournisseur "don") ?


Je ne sais pas si j'ai réussi à être clair dans mes explications mais normalement avec la PJ vous devriez être en mesure de saisir un peu mieux le problème.
Le fichier ci-joint est un fichier modèle commenté de mon userform en beaucoup plus léger.
Je vous remercie d'avance pour le temps que vous passerez sur ces problématique et continue de chercher de mon côté en espérant trouver une solution.

 

[JM27]

Bonjour
qu'entends tu par stock initial et stock théorique

Ci joint un exemple de ce que cela peut donner
Donne moi ton avis
Sachant que cela n'est pas encore fonctionnel
Principe:
Soit on entre dans le stock
soit on sort du stock

Si on sélectionne un fournisseur , on a les produits qui lui sont associés
Quand on entre la sélection dans le panier , on rajoute une ligne dans la list box
A la fin de la saisie on transfère le panier dans la feuille mouvement et on met le stock à jour

Donne moi ton avis avant de poursuivre

 

[lalimace]

Bonjour JM27,

Le stock théorique se calcule à l'aide d'une formule et non avec une macro VBA.
Stock théorique = stock initial + entrée - sortie (renseignées dans la feuille "mouvements")

 

[JM27]

en fait le stock théorique est le stock réel disponible
et le stock initial est le stock à la création de la référence
C'est cela ?

si c'est cela le stock initial ne sert à rien , seul le stocks réel est intéressant

 

[lalimace]

Tout d'abord merci pour le temps que tu accordes à mon sujet, ton userform est vraiment d'un autre niveau!

Pour la quantité serait-il possible de l'ajouter directement dans le textbox et non via le scroller ?(nous recevons parfois des quantités astronomiques d'aide alimentaire)

En fonction de l'entrée ou de la sortie serait-il possible d'afficher uniquement certaines propositions ? (exemple : quand on fait une entrée seul les fournisseur sont disponible et pour les sorties seul des critères de distribution qui seront renseignés au préalable sur la feuille donc rajouter un combobox en plus peut-être ?)

 

[JM27]

bonsoir
a tester
il peut rester quelques bugs

 

[lalimace]

Bonsoir JM27,

Je ne sais comment te remercier, c'est encore mieux que ce que j'imaginais!
Pour l'instant je n'ai pas rencontré de bugs, je ferais un retour si c'est le cas.

Merci beaucoup !

 

[JM27]

bonsoir
si tu veux des explications sur le code ; n'hésites pas à le demander

 

[lalimace]

J'étais justement entrain d'essayer de le comprendre et j'ai plusieurs questions :
-Est-il possible de faire accepter 3 chiffres après la virgule quand on ajoute une entrée et une sortie (exemple: 0.375), il s'affiche dans la listbox mais sur la feuille cela affiche un arrondi

-Pour ajouter les éléments dans le tableau tu as décidé de passer par une listbox que tu alimentes en fonction des données dans les combobox ce qui est vraiment génial pour le coup et beaucoup plus pratique, peux tu m'expliquer la partie de ce code ainsi que celui qui exporte les données vers le tableau ?

 

[JM27]

bonjour
Pour avoir les chiffres décimal, j'ai changé le clng( entier) par du double (cdbl)( acceptant les chiffres après la virgule)
ci joint correctif et commentaires dans les macros

 

[ChTi160]

Bonjour lalimace
Bonjour JM
je n'ai trouvé nulle part dans la feuille "Mouvement" de Colonne ou il est collé des Sommes (Cdbl)
apparemment ce serait la Colonne "H" (entête Quantité) est ce normal ?
Bonne journée
jean marie

 

[JM27]

bonjour
@ChTi160

 'J'indique en colonne G la quantité entrée ou sortie
            .Range("H" & LigneDestination) = Round(CDbl(Me.ListBoxPanier.List(I, 4)), 3)

 

[ChTi160]

Re
JM , j'ai bien vu cette ligne de Code !
c'est plus dans la feuille ! la Colonne "H" a pour entête "Quantité" donc ce sont les Quantités qui sont en Cdbl()
bien reçu Lol
Bonne journée
jean marie

 

[lalimace]

Bonjour à tout les deux,

Encore une fois je me répète mais merci beaucoup JM pour le temps que tu as passé sur mon problème, tu m'as vraiment retiré une grosse épine du pied!
Je vais me pencher sur ton code pour essayer de le comprendre et pourquoi pas en utiliser quelques parcelles pour améliorer certains de mes userform!

Bonne journée à tout les deux

 

[ChTi160]

Re
Pas de réponse à mon interrogation lol
Jean marie