Demande d'aide macro vba

Fermé
superlusi Messages postés 1 Date d'inscription dimanche 23 mars 2014 Statut Membre Dernière intervention 23 mars 2014 - 23 mars 2014 à 02:53
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 5 déc. 2014 à 08:28
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
A voir également:

30 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
1 avril 2014 à 08:38
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+
2
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)
2
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
1 avril 2014 à 18:13
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 ???
2
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
2

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
2 avril 2014 à 09:47
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
2
Bonjour

Je sollicite à nouveau votre aide.
J'ai ajouté beaucoup de ligne sur la feuille de relevé et fait les modifications dans la macro.
Mais l'erreur 10004 'range de l'objet apparait.
dans un second temps une fois tous les mois créés, j'aurai besoin de votre aide sur la page d'accueil (je voudrai plutôt la faire sous forme de boite de dialogue, je vous en reparlerai apres le premier problème)
merci.

Fichier joint http://cjoint.com/?DDEccOmjlwW
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
30 avril 2014 à 09:11
Bonjour,

Je recupere votre fichier et vous tiens au courant
A+
0
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 +
2
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 30/04/2014 à 09:24
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+
2
RE,

Excusez moi, mais je ne vois pas à quel endroit on insert le caractère Plat8?

Sinon autre question , pensez vous qu'il est possible de faire modifier le mois de façon automatique dans la feuille relevé et enregistrer les valeurs dans un compteur selon le mois ex si on est en juillet alors on a écrit en auto mois de juillet dans la feuille de relevé et les valeurs sont s'enregistrés dans la feuille compteur juillet? (si trop compliqué pas la peine). Comme ca il n'y a qu'un feuille de relevé et plusieurs de compteurs

A+
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
4 mai 2014 à 20:13
Bonjour,

Fichier avec les plages nomees supplementaires

https://www.cjoint.com/?DEeul5VQWQI


Sinon autre question Tout peut etre automatise, je vais regarder la chose
0
Merci beaucoup

Mais je n'ai pas compris à quel endroit ont modifie les plages (pl)
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
5 mai 2014 à 17:28
Bonjour,

le plus simple, selectionnez une plage de cellules, menu formules, noms definis, definir un nom
0
Re,

J'ai rajouter une opération (voir ligne B78:B83) , j'ai modifier les lignes dans la macros et avec votre indication j'ai modifié le nom des plages. Et comme toujours je vous demande de l'aide, mais le point positif c'est qu' a force j'apprends beaucoup grâce à vous.
voici le lien : http://cjoint.com/?DEfwevg7I4n .
Sinon j'ai une autre question (encours!) pensez vous qu'il serait facile dans la page d'accueille, d'insert une "combox" qui ferait choisir dans quel mois ont veut aller voir notre relevé ou l'emplacement de la pièces (ex: je peut voir la ligne du barillet garnissage). Si un jour vous n'en pouvez plus de mes questions alors je comprendrai.

A+
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
6 mai 2014 à 08:07
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"
2
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
31 mars 2014 à 07:47
Bonjour,

Changement de semaine ????? quel rapport avec les compteurs semaine temps reel.
1
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
24 août 2014 à 10:53
Bonjour,

Jr recupere votre fichier et vous tiens au courant.

A+
0
Re

je ne souahite pas toucher au compteurs semaine temps réel, juste pouvoir compter le nombre total de rebut par jour.

A +
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
30 août 2014 à 19:16
Bonjour,

j'espere qu'il n'est pas trop tard, ai eu quelques travaux plus longs que prevu

fichier modifie avec total jour et N° jour sur feuille compteur mois en cours et gestion des changement de jour

https://www.cjoint.com/?DHEtqTtfXCp

A+
0
Bonjour,

Decidement vous êtes très fort ! J'ose vous demandé comment vous avez fait ?
(une macro qui enregiste la somme du relevé et la date ? ou plus complexe).
Je peux creer les onglets pour les autes mois ou je dois faire quelque chose de plus pour que cela fonctionne ?
Je vous enverais le fichier avec la suite (juste un peu de tuning). Le dernier tableau me permet de suivre l'ensemble des rebuts par jour avec un graphique .

Encore merci

A +
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 31/08/2014 à 08:54
Bonjour,

J'ai modife le code pour total/jour sur compteur mois car j'avais oublie qu'il y aurait plusieurs onglets mois. J'ai donc supprime le nom jour_mois et utilise directement les cellules. Normalement il n'y a rien de plus qu'avant pour creer les autres onglets

https://www.cjoint.com/?DHFiTd2F3gv


J'ose vous demandé comment vous avez fait ?

tres simple: lignes de code en gras et cellules nommees dans Saisie Données

Module2:

    'Changement de jour
If Range("Date_en_cours") <> Date Then
'copie Date et Compteur jour precedent

'init Date en cours et Comteur
Range("Date_en_cours") = Date
Range("Total_Jour") = 0
End If

With Worksheets("Compteurs " & Range("Mois_en_cours"))
For NM = 1 To 23
lig = .Range(PldComp(NM)).Find(What:=.Range("Sem_Cours"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Row
For Col = 5 To 12
.Cells(lig, Col).Value = .Cells(lig, Col).Value + Range("PlatT" & NM).Cells(1, Col - 4).Value
Next Col
Range("Total_Jour") = Range("Total_Jour") + Application.WorksheetFunction.Sum(Range("PlatT" & NM))
x = Range("Total_Jour") ' A supprimer
Next NM
.Range("O" & 49 + Day(Range("Date_en_cours"))) = Range("Total_Jour")
'Range("Jour_mois").Cells(Day(Range("Date_en_cours")), 1) = Range("Total_Jour")
End With

A+
0
Bonjour

Il y aurai juste une erreur à corriger. quand on rempli les données et qu'on fait changement equipe l'erreur 9 apparait, pouvez vous regarder svp? (je ne nais pas se qu'il faut faire )
Pouvez vous egalement changer le nom du bouton changement d'équipe je n'y arrive pas (appelez le enregistrement).

: http://cjoint.com/?DIcrOjIbpUN

Merci
0