Discussion :

[etorria]

Bonsoir au forum !

Je suis nouveau et c'est donc mon premier post !

Je viens vers vous pour essayer d'avancer dans mon programme.
Pour résumé, c'est une application que je dois mettre en place afin gérer le temps de travail du personnel ouvrier de mon établissement.

N'y connaissant pas grand chose à VBA, je fais appel à votre savoir !

Je joins un fichier vous expliquant mes soucis de programmation.

J'attends vos premières réactions.

Merci encore,

Etorria
http://cjoint.com/?detJjb6Vvz
ou

[fring]

Bonjour,

J'ai beau tourner le fichier dans tous les sens, je ne vois pas d'explications quant aux problèmes que tu rencontres.

Peux-tu les énumérer ? Ce que tu as au départ, ce que tu souhaites obtenir, en passant par quelles opérations, etc...

Plus les explications seront précises, mieux les réponses seront adaptées

[etorria]

Bonsoir fring !

C'est vrai je me suis un peu trop emballé ! Je m'en excuse...
Dans le fichier que tu as ouvert, j'ai volontairement inscrit dans certains TextBox des valeurs, histoire de comprendre la finalité de l'application.
Une partie de ces chiffres sont à saisir une fois le prog terminé, biensûr !
Dans la partie supérieure, on doit saisir dans la série de TB, des heures (en centième d'heure) et en dessous ce sont des codes qui sont saisis.
Dans la partie inférieure, on trouve une autre série de TB ; dans la 1ère colonne (N°), un numéro s'affiche à chaque code "RE" ou "MA" saisie, s'en suit alors, pour chaque code, l'écart entre deux horaires.
Par exemple, si je saisie : 4.00 (début horaire de travail), 5.25 (code "RE") la différence est de 1.25, que je retrouve donc dans les TB précédemment décrits.
Suis-je cohérent ?
Voilà !

Je suis dispo pout toutes questions.

Cdt
Etorria

[etorria]

Bonsoir ucfoutu !

Il me semble que la partie du haut est assez facile à comprendre, non ?
Mais je me trompe peut-être...
Un ouvrier commence son travail à 4h (c'est ici un exemple, cela aurait pu être 12h ou 20h !), il doit ensuite saisie les différents temps à chaque changement de code machine. De 4h à 5h25 = RE, soir un écart de 1h25 puis de 5h25 à 9h75 = MA soir un écart de 4h50 etc...
Dans dans la série de TB du milieu, à chaque "MA" et "RE" un n° est créé, les écarts calculées plus haut sont répercutées dans les TB respectifs.

Voilà, ai-je été un peu plus clair ?

Je l'espère !

Etorria

[fring]

Re,

Je pense avoir compris le fonctionnement et ce que tu souhaitais obtenir mais...faut-il absolument traiter toutes ces opérations via le UserForm ? Parce que là ça ne va pas être coton pour arriver à bricoler quelque chose

En plus, en y réfléchissant d'un peu plus près, si pour une raison X le UserForm se ferme, toutes les données encodées sont perdues.

Je verrais bien un USF composé uniquement des encodages de codes et d'heures du dessus et le reste s'enregistrerait et se calculerait, à chaque validation, sur une feuille (nettement plus facile à gérer qu'une multitude de textbox).

Tu (me) nous dis quoi

[etorria]

Tu dois avoir sûrement raison, tu en as plus l'habitude que moi. Tu as de l'expérience dans la programmation !
J'avais pensé qu'il serait également possible de sauvegarder chaque saisie en créant un onglet. Car il est prévue que chaque saisie soit effectuée quotidiennement. D'où l'idée de la création d'onglets par date !
Maintenant, si cela doit devenir une "usine à gaz" autant simplifier "la chose".
A toi de voir...
Tiens moi au courant !

Cdt
Etorria

[fring]

J'avais pensé qu'il serait également possible de sauvegarder chaque saisie en créant un onglet. Car il est prévue que chaque saisie soit effectuée quotidiennement. D'où l'idée de la création d'onglets par date !

Ok, là je verrais plutot un onglet par semaine à la limite voir même un onglet par mois, si tu crées un onglet par jour, ça va t'en faire grossomodo 250 en tenant comptes qu'il y en a pas le we...

Maintenant, si cela doit devenir une "usine à gaz" autant simplifier "la chose".
A toi de voir...

Comme c'est parti là avec les 10ène de textbox ça va carrément devenir une centrale nucléaire

Bon...je me prend un verre, une cloppe, je réactive mon neurone et j'essaye de te proposer un bricolage convivial

[etorria]

Bonjour Fring !

Je te remercie pour les efforts consentis !

Je suis impatient de voir un premier résultat !

Cdt

Etorria

[fring]

Bonjour,

Voici un premier jet qui permettra d'avoir une base de travail, à partir de là (presque) tout est possible
Pièce jointe 26585

[alsimbad]

............................ just for fun

Un ouvrier commence son travail à 4h (c'est ici un exemple, cela aurait pu être 12h ou 20h !), il doit ensuite saisie les différents temps à chaque changement de code machine. De 4h à 5h25 = RE, soir un écart de 1h25 puis de 5h25 à 9h75

alors évidement, là avec des ouvriers comme ça, on comprend que ce soit pas facile a calculer. bon courage
ps: je sais ce que sont les centièmemes d'heure, c'est l'énoncé qui est marrant

[etorria]

............................ just for fun

alors évidement, là avec des ouvriers comme ça, on comprend que ce soit pas facile a calculer. bon courage
ps: je sais ce que sont les centièmemes d'heure, c'est l'énoncé qui est marrant

No comment !

Allez...on le balance dans la cave !

[etorria]

Bonjour,

Voici un premier jet qui permettra d'avoir une base de travail, à partir de là (presque) tout est possible
Pièce jointe 26585

Bonsoir fring !

Je te remercie pour le temps que tu as passé à l'élaboration de ce début de projet !
Je vais de suite tester la "bête" !
Je reviens plus tard si j'ai des questions.

Cdt
Etorria

[etorria]

Me revoilou !

Eh ben c'est du bon boulot !
Tu n'es pas encore un MVP Microsoft Excel ??!!!

J'ai quelques questions (!!!) :
1) Comment as tu procéder pour ouvrir le userform avec la combinaison des touches "Ctrl + W" ?
2) Peut-on changer le format de la date dans le userform ?
du style : mercredi 5 Mars 2008
3) A l'ouverture du userform, je voudrais que l'utilisateur ne puisse pas voir les onglets. Possible ?
4) Changer le format de "heure de début" "00.00" et non "0.00". Si je saisie "20", l'affichage est "20" et non "20.00"
5) Lorsque je remplie l'userform, puis que je valide, les données sont copiées dans le tableau, ça c'est parfait, mais c'est seulement pour une faction...comment procéder pour plus de factions ? en effet dans mon établissement il y a un roulement de 3 factions (matin, après-midi et nuit) ?
6) J'ai ajouté quelques textbox dans l'userform : tu le verras par toi-même, j'aimerais qu'apparaisse l'heure instantané. Pour le reste je pense y arriver !

C'est tout !!!

Si t'as des questions, je suis là !

Encore merci,

Etorria

[fring]

Tu n'es pas encore un MVP Microsoft Excel ??!!!

euuh c'est gentil mais n'exagérons rien, je suis nul par rapport à certains Ténors qui hantent ce site

1) Comment as tu procéder pour ouvrir le userform avec la combinaison des touches "Ctrl + W" ?

J'ai simplement créé une petite macro dans un module standard qui lance le UserForm, ensuite pour affecter une touche de raccourci à une macro >> Alt+F8 / on sélectionne la macro / Options / on indique la lettre qui fera la combinaison avec Ctrl
Remarque : il faut éviter d'affecter une lettre courament utilisée par Windows telles que Ctrl+a, Ctrl+s, Ctrl+p, Ctrl+c, Ctrl+v, etc...

2) Peut-on changer le format de la date dans le userform ? du style : mercredi 5 Mars 2008

Oui...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Label1.Caption = Format(Date, "dddd") & " - " & Date

3) A l'ouverture du userform, je voudrais que l'utilisateur ne puisse pas voir les onglets. Possible ?

Oui...
Différentes possibilités, soit tu peux d'office manuellement masquer les feuilles, soit on pourrait envisager la chose suivante :
A l'ouverture du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Label1.Caption = Format(Date, "dddd") & " - " & Date
UserForm1.Show
End Sub

Lorsqu'on clic sur le bouton "Quitter" du UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton2_Click()
Application.Visible = True
Unload Me
ActiveWorkbook.Close SaveChanges:=True
End Sub

Les 3 autres points, j'y répondrai un peu plus tard

[etorria]

Le fichier modifié :

[fring]

Pour répondre à tes 3 autres questions :

4) Changer le format de "heure de début" "00.00" et non "0.00". Si je saisie "20", l'affichage est "20" et non "20.00"

Là à mon avis il va falloir bricoler un bout de code vu qu'on ne peut pas directement imposer un format dans un TextBox, je vais voir ce que je peux faire

5) Lorsque je remplie l'userform, puis que je valide, les données sont copiées dans le tableau, ça c'est parfait, mais c'est seulement pour une faction...comment procéder pour plus de factions ? en effet dans mon établissement il y a un roulement de 3 factions (matin, après-midi et nuit) ?

Faire 3 fiches de prestations par jour peut être ? Tout dépend de ce que tu veux obtenir au final. Tu pourrais aisément utiliser le même code en y ajoutant une condition, par exemple : si faction du matin c'est la fiche journalière 1 qui se complète, si faction de l'après midi c'est la fiche 2 et la fiche 3 si faction du soir.

6) j'aimerais qu'apparaisse l'heure instantané

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Label10.Caption = Format(Now, "hh:mm")

Fais signe si tu coinces quelque part

[etorria]

bonsoir fring !

Je t'ai laissé un message privée à l'instant.

A+
etorria