Exporter avec l'aide d'un USF modifier

Résolu/Fermé
marcelio Messages postés 56 Date d'inscription lundi 9 avril 2007 Statut Membre Dernière intervention 10 mars 2021 - 9 oct. 2013 à 17:05
marcelio Messages postés 56 Date d'inscription lundi 9 avril 2007 Statut Membre Dernière intervention 10 mars 2021 - 10 oct. 2013 à 18:01
Bonjour le Forum,

Avec un USF j'exporte du matériel sur différente zone.
Après avoir exporter dans la nouvelle zone j'ai entre parenthèse le stock du produit ainsi que la zone d'où vient le produit
Ex :Clous 80 cm (PARIS ZONE NORD : 494)

Pour amélioré le fichier, mon supérieur ma demander d'ajouter 3 colonnes.
Le code
Stock2 (car le 1° est plein)
et le calibrage pour certain article.

Je suis arriver à modifier le code VBA principale, mais j'arrive pas à mettre la parenthèse à la bonne place.
et il va valoir ajouter le stock2 au stock1 pour le calcul du transfert.

Je vous joint un fichier exemple pour que vous compreniez mieux.

Sur la feuil2
Mon ancien code que vous pouvez tester pour comprendre avec l'USF2

Sur la feuil1
Mes colonnes ajouter avec l'USF2

Merci de votre aide

Marcelio

https://www.cjoint.com/?0JjreoEwLgA
--
A voir également:

4 réponses

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
9 oct. 2013 à 17:30
Bonjour,

Avec l'ajout des colonnes :
- col_source n'a plus un modulo de 6 mais de 9
- tu dois ajouter 1 à col_destin (à cause de l'ajout de la première colonne 'Code')

Sinon, le fichier est très bizarre. Ce ne serait pas plus facile à gérer s'il n'y avait qu'une ligne par type de produits avec saisie uniquement des quantités en stock (1 et 2) sur chaque site ??

A+
0
marcelio Messages postés 56 Date d'inscription lundi 9 avril 2007 Statut Membre Dernière intervention 10 mars 2021
9 oct. 2013 à 18:02
Bonjour,

A quel niveau doit on mettre le 1 à col_destin, car j'ai modifier plusieurs fois, fais plein d'essai, tester et le fichier ne fonctionnais toujours pas.
J'ai bien mis le col_source 9 dans le code de l'USF1
Et que voulez vous dire par "qu'une ligne par type de produits".
Si c'est pour les stocks1 et 2 je suis obliger de les avoirs.

Merci de votre aide
--
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
9 oct. 2013 à 18:22
ColDestin = Ws.Rows(2).Find(what:=Me.ComboBox4, LookIn:=xlValues, lookat:=xlWhole).Column +1 (sinon tu mets ton texte entre parenthèses dans la colonne code)
Que se passe-t-il si le sac de clous est déplacé deux fois ? Clous (...)(...) ???


J'ai bien mis le col_source 9 dans le code de l'USF1
Je pensais que UsF 1 était celui d'origine... Oui, c'est bien modifié

Pour la ligne unique : cf. Feuil3 dans https://www.cjoint.com/?CJjsuWrRGIu
0
marcelio Messages postés 56 Date d'inscription lundi 9 avril 2007 Statut Membre Dernière intervention 10 mars 2021
9 oct. 2013 à 18:36
Je viens de tester : CloDestin et celui me décale d'un cran à droite.
Pour le tournevis plat voila ce que ça me donne : 101 (PARIS ZONE NORD : 111) dans la colonne produits.
Sinon tout les produits sont déplacé 1 fois.
Pour la ligne unique c'est gentil mais c'est pas du tout ce que je voudrais.
J'aimerais rester telle mon fichier exemple.
A+
--
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
10 oct. 2013 à 09:20
Bonjour,

Désolé pour ColDestin. Je viens de lire le code plus attentivement. Pour résoudre le problème des parenthèses et celui de la somme de stock1 et stock2, je crois qu'il suffit de changer une ligne :
Ws.Cells(LgSource, ColSource + 1) = Ws.Cells(LgSource, ColSource + 1) & " (" & Me.ComboBox1 & " : " & (Ws.Cells(LgSource, ColSource + 3) + Ws.Cells(LgSource, ColSource + 4)) & ")" 
0
marcelio Messages postés 56 Date d'inscription lundi 9 avril 2007 Statut Membre Dernière intervention 10 mars 2021
10 oct. 2013 à 18:01
Bonjour le Forum,
Bonjour Zoul67,

Je vous remercie beaucoup pour ce code qui fonctionne correctement.
Vous êtes super génial.

Bonne soirée à vous et au Forum.

Encore merci

Marcelio
--
0