aide pour Export vers fichier (VBA)

Binbing

XLDnaute Nouveau
Bonjour à tous,
J’ai besoin d’aide sur VBA car je n’arrive pas à trouver… Dans le classeur ( base nouveau ) sur la feuille SAP j’ai 2 tableaux en colonne AA le premier en haut cumule par type d’article + diverse information : Nb camion, Nb palettes etc.. une charge de travail que j’extraie à la journée. Ce tableau est ensuite copier dans un autre classeur ( MGH 2018 ) feuille SYNTHESE en rapport avec la date présente dans les cellules correspondantes. Là où je bloque c’est pour le 2ème tableau qui fonctionne lui heure par heure. Il faut que je fasse pareil mais avec la somme de chaque type : MP+PSO+EDC+ETQ (cela correspond à un Nb pal) ainsi que le tps traitement requis pour chaque heure différente afin de les copier dans le classeur ( MGH 2018 feuille SYNTHESE ) dans les cases correspondantes.
Elles commencent en colonne AK et AL avec le libellé RECEPTION (remplissage couleur verte) et comporte pour chaque heure différente une cellule Nb pal + temps. Les autres libellés ZREA – DIVERS sont pour d’autres informations, il ne faut rien faire dedans.

Le code se trouve dans la Macrotest bouton enregistrement, il faudrait le mettre à la suite de celui existant.

Merci à tous
 

Pièces jointes

  • base nouveau.xlsm
    380.7 KB · Affichages: 45
  • MGH 2018.xlsm
    257.5 KB · Affichages: 25

Noel Bedard

XLDnaute Occasionnel
Bonjour Binbing,

Je crois avoir saisie ce que vous demandez.

J'ai ajouté un bouton ( Bouton 5 ) sur la feuille peut-être difficile à voir il est entre deux lignes.

J'ouvre votre classeur ( MGH 2018 ) et calcule MP+PSO+EDC+ETQ qui est placé à la colonne Nb Pal et je place le temps juste à coté et cela pour chacune des heures.

Pour trouver la bonne ligne je me suis basé sur votre code Macrotest qui lui trouve la ligne avec Z5.

Par contre peut-être parce que je suis du Québec le code interprétait 2018-02-01 pour 2018-01-02 ce qui me donnais la ligne 5 au lieu de 28, j'ai donc installé ce formatage pour contourner le désagrément dans le code.

LaDate = Format(CDate(LaDate), "d mm yyyy"), si vous avez le problème inverse supprimez cette ligne dans les deux SUB Macrotest, Macrotest1.

Si vous n’aimez pas l’ajout d’un autre bouton, simplement insérer les 6 lignes que j’ai ajouté à votre CODE Macrotest entre les lignes vertes ('*********************) mes 6 lignes sont entre les lignes vertes dans le code Macrotest1. Après l’insertion supprimez Macrotest1. Et le bouton 5.

Voilà c’est tout.

Bonne journée.

Noël
 

Pièces jointes

  • base nouveau.xlsm
    385.2 KB · Affichages: 43
  • MGH 2018.xlsm
    285.4 KB · Affichages: 27

Discussions similaires

Statistiques des forums

Discussions
312 185
Messages
2 086 009
Membres
103 089
dernier inscrit
johnjohn1969