demande d'aide macro vba

Question

Boujour, je souhaite obtenir de l'aide sur une macro.

En quelque mot l'utilisateur devra remplir un tableau de relevé avec plusieurs caractéristique.
exemple ; pièce 1 caractéristique A repérer 3 fois etc. avec la date qui s'affiche en auto (ca je l'ai déjà fais), j'ai insérer également la date de départ (voir si ca sert). Il devra appuyer sur un bouton (ca aussi c'est fait) qui enregistre les valeurs dans une autre feuille. Se que je ne sais pas faire c'est continuer à compter dans la même casse tant que la caractéristique et la date ne change pas et des que la date change (exemple d'un jour) alors cela passe automatiquement à la ligne suivante . Cela me permettra de compter à la fin d'une semaine le nombre de pièce et de caractéristique. voici un lien sur le site ci-joint =http://cjoint.com/?0CxcZGrVQcb.

Merci

f894009 · Accepted Answer

Re,

fichier modifie pour changement mois automatique, j'ai cree mai et juin. Les cellules modifiees sont en jaune (formules), a vous de creer les autres mois (clic droit sur nom onglet, deplacer ou creer, creer une copie, en dernier). Renommez les onglets crees en fonction du mois et changez la date de debut de mois c'est tout. 


https://www.cjoint.com/?DEgiS7sY0iO


Pour page d'accueil rien de fait, manque infos

A+

f894009 · Answer

Bonjour,

Se que je ne sais pas faire c'est continuer à compter dans la même casse tant que la caractéristique et la date ne change pas et des que la date change (exemple d'un jour) alors cela passe automatiquement à la ligne suivante 
Oui, mais nous aimerions comprendre ce que vous comptez et ou !!!!!!

superlusi · Answer

bonjour

Déjà merci de m'avoir répondu.
Le numéro de semaine change à chaque semaine(et aussi en fonction de la date), nos sommes le lundi 14 /03 de la semaine 12 . Et oui c'est dans le tableau compteur que je souhaite avoir mon incrémentation.
Cela me permettra de dire pour chaque pièce quel genre de problème ont été relevé et combien. Par la suite cela me permettra d'établir des graphiques à la semaine et avec les cause principales (ca je sais faire). Cela nous sert pour avoir des relevé de situation . Pour les explications je pense que c'est en fonction es questions, il me semble difficile d'expliquer comme ca, ce n'est pas pour faire mal.

Par avance merci

f894009 · Answer

Re,

Le numéro de semaine change à chaque semaine(et aussi en fonction de la date)---> ce n'est pas le cas sur le fichier que vous avez donne.

Que ce passe-t-il, pour votre fichier, a la semaine 19

superlsui · Answer

Vous avez raisons, car je l'ai juste fais pour le mois d'avril (semaine 14 à semaine 18) ou chaque ligne correspond à une semaine, je ne sais pas si cela est intéressant ou si les semaines peuvent incrémenter de façon automatique jusqu' a la fin de l'année et après je redémarre dans une nouvelle feuille pour une nouvelle année.

f894009 · Answer

Re,

Vous voulez avoir des releves au mois et un fichier par mois ou ......

Les utilisateurs de ce fichier travail en equipe 3x8 ou ..... (a cause du changement de jour a minuit)

superlusi · Answer

Je souhaite des relevés qui s'effectue à la journée (en effet en 2x8, matin et après midi),ou le relevé s'enregistrera en fonction du jour ou l'on est. Puis à la fin d'une semaine pouvoir faire un bilan (donc se que j'ai prévue par ligne en indiquant le numéro des semaines. Exemple le relevé du lundi 1/04 sera comptabilisé dans la même semaine et ce jusqu'au vendredi 4. Puis dans un second temps faire un fichier par mois avec l'addition de chaque semaine (a mon avis avec une simple addition de différente ligne, exemple esthétiques 20 rebut en S14,3 en S15 etc. on peut dire à la fin du mois,23 rebut d'esthétique. Un fichier par mois me semble une bonne stratégie d'analyse.

f894009 · Answer

Bonjour,

pour un fichier par mois

un debut: seulement Platine 1

feuille Releve protegee sans mot de passe, saisie autorisee plages "vieux rose"

date du mois a saisir et semaines (automatique) sur Compteur

https://www.cjoint.com/c/DCzjS01BvLj

superlsui · Answer

Bonjour 

Super travail !

Par contre je ne sais pas si ont peut insérer le bouton qui remettra d'enregistrer les valeurs de la feuille de relevé  dans la feuille compteur ? 
Une fois que l'operateur a fait son relevé, il appuie sur le bouton et cela enregistre les valeurs dans le tableau compteur et les valeurs dans la feuille relevé revienne à zéro. En tous qu' ca fait déjà une énorme avancé

Je suis très enthousiaste à plus tard

f894009 · Answer

Bonjour,

qui remettra d'enregistrer les valeurs de la feuille de relevé dans la feuille compteur ?  Ben, ca se fait automatiquement, il n'y a pas besoin de bouton pour "enregistrer. Des que l'utilisateur modifie une cellule ("vieux rose"), ca se copie en temps reel dans Compteur sur la ligne de la semaine en cours. La RAZ des cellules se fera au changement de jour ou precise comment (changement equipe -->alors un bouton) car cela change la mise a jour de l'onglet Compteur si il y a RAZ en cours de jour.

superlusi · Answer

bonjour

Si possible un bouton au changement d'équipe sera utile. D'autre part quand on remets les valeurs de la feuille relevé à zéro (vieux roses) cela remets également les valeurs dans le compteur à zéro. Hier j'ai fait le teste en mettant des valeurs dans la feuille  relevé, effectivement elle se mettent en auto dans le compteur , mais aujourd'hui en effaçant les valeurs de relevé en manuel, elle se sont également effacé dans le compteur.
Sinon réfléchit à une manière de te remercier, car une fois fini tu m'aura rendu un super service.

f894009 · Answer

Re,

Si vous faites une RAZ au changement d'equipe, il faut revoir l'incrementation des compteur par semaine car logique tres differente. Je revois la chose

f894009 · Answer

Re,

une proposition: un bouton changement equipe qui additionne les cellules Totaux au cellules Compteur/fonction semaine et RAZ Zones releves, par contre les compteurs Semaine ne sont plus en temps reel (c'est faisable, mais un peu plus de programme)

https://www.cjoint.com/c/DCArO5WD6pt

superlusi · Answer

bonjour

J'espère ne pas vous donner trop de fil à tordre. J'ai une idée à vous donner.Peut on imaginer d'écrire tous les numéros de semaine à l'avance et juste faire incrémenter dès qu'on change de  semaine peut être plus simple. 

A bientot

f894009 · Answer

Bonjour,

Changement de semaine ????? quel rapport avec les compteurs semaine temps reel.

superlusi · Answer

bonjour

Aucun, c'était juste une idée :-)  que je souhaitait partager.

f894009 · Answer

Re,

Les numeros de semaine change avec la date, donc pas de soucis. Que faisons nous maintenant, j'attends une reponse sur ce que j'ai mis a dispo

superlusi · Answer

Bonjour

Une erreur " Variable objet ou variable bloc With non définie (erreur 91) " dans le module 2 ( lig = .Range(PldComp(NM)).Find(What:=.Range("Sem_Cours"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Row
            For Col = 4 To 11) interviens, de plus quand on mets 1 dans chaque case (rebut, esthétique etc.) de façon à obtenir en total 5 pour chaque cause et chaque pièce, quand on appuie sur el bouton les valeurs dans le compteur ne sont pas toutes juste (certaines =1 au lieu de 5) surtout au niveau des totaux balanciers.
Sinon m'autorisez vous à débloquer l'accès au cellule j'aimerais changer ma mise en page. Pensez vous qu'il me sera difficile par la suite de créer le même fichier dans différente feuille pour chaque mois ?

En tout cas je vous remercie pour tout le temps que vous avez déjà passé sur se dossier, et sans vous j'en serai encore à galérer avec Vba pour les nuls. Avec ce dossier nous allons gagner un temps considérable sur les relevé de problèmes d'atelier et pouvoir mettre les solutions adéquates en places.

f894009 · Answer

Re,

Sinon m'autorisez vous à débloquer l'accès au cellule Ben, c'est votre fichier, donc vous faites ce que vous voulez. La protection c'etait pour vous montrer qu'il faut laisser l'acces uniquement aux cellules de saisie.

Pensez vous qu'il me sera difficile par la suite de créer le même fichier Non. Il y a deux facons de voir, soit un fichier avec tous les mois et c'est par programme que les infos vont au bon endroit au bon moment soit vous faites un fichier par mois et vous devrez mettre le bon fichier au bon moment en service.

Une erreur " Variable objet ou variable bloc With non définie (erreur 91) C'est normal, puisque aujourd'hui nous sommes a la 14eme semaine et le mois de mars (cette annee) est sur 6 semaines pas 5. Il ne faudrait pas mettre le 01/03/2014 mais 03/03/2014 si vous ne travaillez pas les samedi et dimanche

superlusi · Answer

Re

J'avais même pas osé essayer (considérant que c'est votre travail).
Des que le fichier est abouti je vous ferais parvenir une copie en avant première.

superlusi · Answer

Quand on mets 1 dans chaque case (rebut, esthétique etc.) de façon à obtenir en total 5 pour chaque cause et chaque pièce, quand on appuie sur le bouton les valeurs dans le compteur ne sont pas toutes juste (certaines ligne =1 au lieu de 5) . Pouvez vous regardez svp ?
Si je rajoute une ligne pour insérer une semaine supplémentaire, cela ne pas vas créer de conflit avec les macros ?

f894009 · Answer

Bonjour,

Quand on mets 1 dans chaque case--->fichier corrige:

https://www.cjoint.com/?DDbiIx8NeMG

Si je rajoute une ligne pour insérer une semaine---> Il y aura des anomalies de mise a jour a cause des plages de cellules. Essayez de faire les modif, si vous n'y arrivez pas faites signe

A+

superlusi · Answer

Re

J'ai effectué ma mise en page définitive, j'ai eu à modifier une peu les adresse dans la macro numero de ligne ect et nom des feuilles. Je ne sais pas comment modifier les paramettres ( lig = .Range(PldComp(NM)).Find(What:=.Range("Sem_Cours"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Row ).

Pouvez vous m'aider , voici un lien avec la dernière version.
http://cjoint.com/?3Dbqdi2cjkk 

Vous pourrez m'expliquer svp ? (si cela ne vous dérange pas)

f894009 · Answer

Re,

Si vous supprimez une plage nommee et que le nom des plages est utilise dans une boucle  PlatT1 a PlatT7

        For NM = 1 To 7            lig = .Range(PldComp(NM)).Find(What:=.Range("Sem_Cours"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Row            For Col = 4 To 11                .Cells(lig, Col) = .Cells(lig, Col) + Range("PlatT" & NM).Cells(1, Col - 3)            Next Col        Next NM

il faut renommer les plages pour que le code ne se plante pas.

Regardez dans le Sub Change_Equipe() et comparez avec le fichier qui est chez vous

https://www.cjoint.com/?DDbsmJnpbyF

Et pour la sixieme semaine ???

superlusi · Answer

Re,

J'ai fais un essai avec le mois de Juin où il y a 6 semaine
J'ai fait les modifications mais l'erreur reste la même, (aucune mauvaise volonté bien sur). Quand vous parlez de plage qu'Est-ce? (on ne rie pas )
Voici le lien

http://cjoint.com/?DDbvZVqT7UP

f894009 · Answer

Bonjour,

J'ai fait les modifications mais l'erreur reste la même, (aucune mauvaise volonté bien sur). C'est toujours ce qui est dit...... Le numero de semaine en cours est celui de la date en cours (ceci pour incrementation semaine auto), donc vous avez beau mettre le mois de Juin, nous sommes toujours en Avril. Rassurez vous votre code marche avec vos modifs

Quand vous parlez de plage qu'Est-ce? (on ne rie pas )  Ben, c'est cette etendue de sable ou galet tres prisee en ete par les vacanciers

superlusi · Answer

Je vous remercie 

Je vous ferais parvenir le fichier tel qu'il sera utilisé dans notre atelier.
Pour info vous m'avez fortement aidé à aboutir sur un projet qui était en sommeil dans notre société( une des plus grande marque de luxe horlogère dans le monde) ca commence par Car et fini par tier.

A +

f894009 · Answer

Re,

Erreur tout a fait normale, il faut definir de nouveaux nom de plage pour les totaux que vous avez rajoutees, exemples

plage G53:N53 definir nom en Plat8 et ainsi de suite pour toutes les autres

A+

f894009 · Answer

Re,

Choix du mois, d'accord. Mais, ex: je peut voir la ligne du barillet garnissage la probleme, existe pas !!!!!!! Veuillez preciser ce que vous voulez "voir"

f894009 · Answer

Bonjour,

Jr recupere votre fichier et vous tiens au courant.

A+

Demande d'aide macro vba

30 réponses

Discussions similaires

Newsletters