Formule VBA

Tout dépend de ce que tu veux faire après :

- Inscrire chaque entrée dans une nouvelle ligne d'une feuille; ça c'est facile
- Afficher dans l'Userform des données déjà existantes et éventuellement les modifier, ça c'est déjà plus complexe !

Pour chaque arrêt ou congé que doit comporter la 1ere colonne ? ce n'est pas indiqué
Le fichier est-il annuel ou destiné à servir sur plusieurs années (auquel l'âge et l'ancienneté ne sont pas pertinents puisqu'ils varient chaque année, il vaudrait mieux la date de naissance et la date d'entrée) ?
A quoi sert le bouton Nouvel agent ?
Je n'ai pas l'impression que le projet et le rendu final soient très clairs pour toi. Il faut préciser tout cela avant d'aller plus loin

Cdlmnt

Re

Ok on y voit déjà un peu plus clair MAIS :

1 ) tu ne répond pas à ma question concernant la date de naissance et la date d'entrée que je crois préférable à l'âge et l'ancienneté (qui peuvent eux après se calculer en fonction des dates précédentes)

2) il faudra à chaque fois rajouter les nouvelles données (type d'arrêt- dates et nombre de jours) dans le formulaire mais au niveau de la base de données renseignée tous ces événements successifs doivent rester sur la ligne de l'agent pour une meilleure exploitation Comment conçois tu la BDD , toutes les infos sur l'agent ne pourront pas être sur la même ligne ! Il aura une ligne par absence; ce qui peut être fait c'est trier le tableau par matricule que toutes les lignes concernant le même agent soient les unes au dessous des autres
En fait il faudrait 2 BDD :
- l'une concernant les agents avec comme colonnes: une colonne matricule, une nom, une date de naiss, une date d'entrée, une sexe, une statut, une fonction et une affectation
Dans l'UF de saisie l'entrée du matricule lancerait une recherche dans cette BDD et afficherait les renseignements correspondants. Si nouvel agent rien ne s'afficherait et il faudra entrer les infos (ou les choisir dans les listes déroulantes)
- l'autre concernant les absences et congés avec colonnes : une pour le matricule, les autres pour les différents types d'abs ou congés chacune subdivisées en 3 pour les 2 dates et le nbre de jours, la validation del'UF inscrirait la nouvelle abs sur une nouvelle ligne.

3) Puisque l'entrée des données doit se faire quotidiennement, il n'y aura pas pour le même agent 2 absences ou congés à rentrer en même temps donc l'UF de saisie peut largement être simplifiée en remplaçant toutes les dernières lignes de saisie par une seule avec un combo box pour choisir le type d'absence ou de congé et une zone d'entrée de la date de début, une pour la date de fin et une dernière pour le nombre de jours.

Qu'en pense-tu ?

Cdlmnt

Tu as déjà cette BDD, justement elle n'est pas claire en ce qui concerne les arrêts on a juste des nombres de jours, dans une même cellule, donc pas de cumul simple possible
Ce sera mieux avec 2 BDD, je vais essayer de te faire un exemple
MAIS tu n'a pas répondu à ma question concernant la simplification de l'UF en ne mettant qu'une ligne d'entrée avec choix du type d'absence par combo box ?
Il faut d'abord régler cette question avant de se lancer dans les macros

Ah et puis ta BDD comporte aussi la distance domicile travail, elle n'apparait pas dans l'UF faut il l'intégrer ?

Et j'attends toujours de savoir si on met l'âge ou la date de naissance; pour moi l'âge est une aberration puisqu'il faudra le changer chaque année

OK mais quid de la question essentielle de l'âge ou de la date de naissance ? et de l'ancienneté ou de la date d'entrée ? (les dates permettant je le répète, une entrée des données une fois pour toute sans avoir à mettre à jour chaque année ce qui peut être fastidieux et source d'erreur

Bon je te prépare un petit modèle sur ces bases
Tu l'auras demain je pense

Bonjour

Voilà un premier essai : https://www.cjoint.com/?0EukmxgNRmR

A faire fonctionner pour voir si tout fonctionne correctement

Il y a un léger bug dont je ne comprends pas l'origine pour l'instant mais qui n'empêche pas le fonctionnement, à savoir quand on a rentré un nouveau matricule et validé, si on veut quitter ensuite l'UF se ferme bien mais un message d'erreur de date apparaît sans raison qu'il faut fermer aussi

Cdlmnt

Bonjour à tous,

Il y a un léger bug
Si tu remplaces Unload Me par Me.hide c'est bon.

eric

Bonjour Eric

Merci, je vais faire la modif en conséquence, mais ça ne m'explique pas le bug, pourquoi sur ce textbox et pas sur les autres de date avec la même structure lancée par un before update et sans avoir entré de valeur dans le textbox !

Cdlmnt

J'ai l'impression qu'il le fait uniquement sur le 1er rencontré.
Mais pourquoi, je l'ignore. Même un enabledevents=false ne lui coupe pas la chique...
@julia: autre message de via plus bas.

eric

@ eric
Je ne comprends pas mieux la "démarche" d'Excel ! Bon à partir du moment où avec Hide on n'a plus de message intempestif on ne va pas se plaindre! Mais ça m'agace un tantinet de ne pas saisir le pourquoi du comment !
A+

Bonjour Julia

Tout est possible, je regarde ça

Cdlmnt

Re

Voilà, fonction, affectation, statut et date d'entrée sont modifiables directement dans l'UF (pas utile de rajouter un bouton)
https://www.cjoint.com/?0EuqPqCY4ni

A tester pour déceler des bugs éventuels

Cdlmnt

1) Quels calculs veut tu faire exactement, ils peuvent sans doute être faits à partir des 2 BDD existantes, donnes moi un exemple précis (calcul sur un agent, calcul sur un service, et ou calcul d'un type d'absence ) etc
car comme les bases sont conçues désormais :
dans BDD Arrêts tous les nombres de jours apparaissent les uns en dessous des autres, on peut faire une extraction et un total par matricule et/ou par période de temps et/ou par fonction et/ou par affectation etc...
et dans la BDD Agents sont reportés pour chaque agent les totaux par type d'arrêt avec total général pour avoir une vue d'ensemble par agent mais le détail se trouve dans l'autre BDD
A voir si c'est utilisibale en l'état pour ce que tu veux en tirer où s'il faut les modifier mais je ne suis partisan des +, on peut sans tirer mieux autrement avec possibilités de sortir n'importe quelles statistiques à partir de BDD Arrêts
2) J'avais déjà pensé à un calcul automatique du nombre de jours, mais je pensais que tu voulais garder la main sur le nombre de jours exact à rentrer.Si le nombre de jours est toujours la différence entre le début et la fin on peut le faire calculer automatiquement mais n'y a t' il pas des cas où le décompte sera différent ? par exemple une personne qui est arrêtée pour maladie un vendredi et qui reprend le mercredi suivant c'est 5 jours d'arrêts ou c'est 3 jours seulement non travaillés si elle ne travaille pas le WE comme il y a samedi dimanche au milieu ?

Dans l'attente de toutes ces précisions

Re

Pour le 2 c'est facile

Pour le 1 faut reconstruire la BDD autrement ou du moins les macros puisque pour l'instant chaque arrêt est comptabilisé à part par ligne dans la feuille arrêt et ce sont les totaux qui sont répercutés dans la feuille Agents
Je devrais avoir un peu de temps demain pour regarder ça

Bonjour julia

Dernières modifications :

1) Intégration des + par macro dans les cellules mais c'est loin d'être l'idéal (voir après)
et mise en place du calcul automatique du nombre de jours dans l'UF

2) Pour la suppression d'un agent modification faite, j'ai même fait mieux, j'ai mis un bouton aussi pour intégrer un nouvel agent sans avoir à rentrer une absence pour lui (ce qui n'était pas possible avant)

Par compte pour supprimer la dernière entrée ce serait possible s'il ne fallait que supprimer la dernière ligne dans BDD Arrêts mais il faudrait aussi annuler le + xx inscrit par la macro dans BDD agent et là ça coince un peu (je t'ai dis que les + c'était loin d'êtrele top, tant pour les décomptes que pour le reste, car c'est du texte mis dans la cellule et non un nombre), faudrait par macro repérer le dernier nombre entré, en évaluer le nombre de caractères, repérer dans la ligne de l'agent dans la BDD et la colonne correspondant au type d'arrêts puis retirer du texte dans la cellule adéquate ce nombres de caractères plus 3 (le + et les espace)... ouf

J'ai préféré pour l'instant mettre simplement un message de confirmation d'enregistrement pour éviter une validation intempestive

3) Message d'enregistrement effectué opérationnel

4) Je t'ai mis aussi dans la BDD Arrêts un petit module d'affichage ciblé des résultats pour te montrer comment à partir de la BDD et quelques formules on peut tirer toutes les infos voulues en fonction de critères au choix (bien plus pratique que gérer les décomptes avec tes + !)

A tester dans tous les sens pour déceler les éventuels bugs

https://www.cjoint.com/?0EwrrpB5JIg

Cdlmnt

Un autre bug qui survient quand j'enregistre les agents dans le formulaire
En fait l'enregistrement du premier agent apres l'ouverture du formulaire ne pose pas de probléme. Par contre au moment d'enregistrer le 2éme , je rentre le matricule , puis le nom mais arrivée à l'étape date de naissance tout se fige ... je ne peux plus rien entrer. Dans ce cas là je ferme le formulaire, je le réouvre, je reprend l'enregistrement et tout marche . l'agent 1 est bien présent dans la bande déroulante matricule ..
En fait c'est comme si la mise à jour de l'entrée précedente était activée par la case date de naissance .
Qu'en penses tu,?

Bonsoir Julia

1) La plupart des bugs (les 2 +, les calculs d'age ..) venaient je pense du fait que pour les suppressions j'avais fait effacer la ligne au lieu de la supprimer , c'est rectifié
(donc je ne pense pas que le + posait problème pour ça)
2) J'ai intégré dans la macro de suppression la suppression des lignes correspondant à l'agent dans Arrêts
3) Le fait de supprimer des lignes foutait en l'air la fonction DECALER dans la plage dynamique du matricule; j'ai donc été obligé de faire partir la plage du titre, c'est pourquoi le mot matricule apparait désormais en tête de liste de choix dans l'UF
Par contre la modification (nouveau matricule par ex) n'est pas prise en compte immediatement, le nouvel agent est bien enregistré mais son matricule n'apparait pas de suite dans la liste déroulante, je ne sais pas pourquoi, je bloque sur ce point, mais je continue à chercher
4) J'ai vu un autre problème que j'ai réglé aussitôt, on pouvait rentrer plusieurs fois le même matricule !! ce n'est plus possible et il y a désormais un message d'erreur
5) Je bloque aussi sur l'histoire du blocage qui se produit de temps en temps après l'entrée du nom, je n'arrive pas à comprendre pourquoi ni d'où ça vient, comme ce n'est pas tout le temps; pour l'instant pas besoin de fermer et ouvrir l'UF pour débloquer la situation il suffit d'appuyer plusieurs fois sur la touche Echap

https://www.cjoint.com/?0EybkHiaOvi

Bon courage pour les nouveaux essais !

Bonjour julia

Plusieurs modifications apportées qui semblent régler les problèmes
Je te laisse faire les tests et me dire

https://www.cjoint.com/?0Ezdd3EyDJR

Cdlmnt

PS:
pour la 4-)
J'ai refait un test copié collé ..ça marche .Je retrouve toute la BDD dans le formulaire .
Juste que la recherche des agents par nom serait plus simple

merci bcp

Bonjour Julia

https://www.cjoint.com/?0EArYz5qqJo

Modification pour recherche (et entrée ) par noms
Attention aux modifications dans les feuilles (j'ai indiqué ce qui change)

Pour la macro tu as semble-t-il fait la modif qu'il fallait, oui il faut faire attention à ne pas écraser les formules

La taille du fichier aggrave la lenteur c'est certain, comme toutes les formules sont recalculées à chaque modification. Ce que tu peux faire c'est enlever le calcul automatique le temps que tu rentres des données (Bouton Excel en haut à gauche Options Excel Formules Décocher calcul automatique et cocher manuel) et ne pas oublier de le remettre après

Cdlmnt

Bonjour Julia

OK je vais regarder ça
Pas de problème pour une attribution automatique, il faut simplement que tu me dises exactement sous quelle forme , 01, 02 ? ou autre puisque cela sera dans la macro

Cdlmnt

Je m'aperçois que je me suis trompé de fichier et que ne t'avais pas envoyé la dernière version modifiée!!
La voici pour que tu testes une peu: https://www.cjoint.com/?0EBnKerSTe1
de mon côté je fais les modifications pour le matricule automatique
Cdlmnt

Voilà la version avec le matricule automatique
https://www.cjoint.com/?0EBn71InfXl
Bons tests
Tiens moi au courant

Cdlmnt

Bonjour Julia
Bien content que tout fonctionne
Bonne suite
A+

Bonjour Julia

Désolé de te répondre qu'aujourd'hui mais je n'avais plus de connexion Internet ces derniers jours !

Voilà le fichier avec feuilles protégées et deprotection et reprotection dans les macros
https://www.cjoint.com/?0FvpiicSZ4C

Les deux feuilles BDD sont protégées à l'ouverture du classeur avec le mot de passe julia pour l'instant (aller dans l'Editeur et This workbook) , pour changer de mot de passe il faut le changer uniquement dans la 1ere ligne de Private Sub Workbook_Open() mp = "julia"

Comme tu l'as demandé les 1eres colonnes de BDD Agents ne sont pas protégées

J'ai masqué la feuille contenant les données

Pour être complet il faudrait aussi empêcher l'accès aux macros en mettant un mot de passe pour l'ouverture de l'éditeur VBA : Dans l'éditeur aller sur l'onglet Outils Protection de VBA
puis onglet Protection Cocher Verrouiller pour l'affichage et entrer 2 fois le MP (à ne pas égarer ensuite comme celui des feuilles d'ailleurs; je te conseille de garder de toutes façons une version de base sans aucun mot de passe en sécurité)

Cdlmnt