Formule VBA Résolu

Question

Bonjour, 
 je suis entrain de créer un formulaire pour faciliter la saisie des données
J'ai déja effectué "la maquette" avec userform ( combobox , texbox , label , bouton commande..) mais je bute vraiment sur l'attribution des VBA. 
J'ai suivi beaucoup de tutos mais dés qu'il  s'agit de personnaliser les vba , j'ai des erreurs partout 
Je sollicite  cordialement votre aide
 
https://www.cjoint.com/?DEsw0EiUy9U

Merci beaucoup

Configuration: Windows 7 / Safari 5.1.7

via55 · Answer

Bonsoir

Plus simple (et plus facilement modifiable), mettre les données à afficher dans les Combo box dans une feuille et relier les combo aux plages correspondantes

Exemple à partir de ton fichier:
https://www.cjoint.com/?0EsxMUxZcZd

Cdlmnt

julia Namor · Answer

Merci de ton aide via55 . ce procédé sans vba est tres fonctionnel.

j'ai completé le fichier et je l'ai réduit  aussi

Peux tu voir pour les boutons commandes?

https://www.cjoint.com/?DEtapQumvdY

cordialement

julia Namor · Answer

Bonjour 
J'ai effectué  d'autres modifications sur le fichier ci-joint 
Je bute  toujours sur les boutons commmandes 

 Je me disais qui pourrait m'envoyer un fichier formulaire avec des boutons commandes actifs , ainsi je pourrai "étudier" les formules et peut etre m'en inspirer pour le mien.

Vous remerciant d'avance 
Cordialement

https://www.cjoint.com/?DEtnkNZzX7Y

julia Namor · Answer

Bonjour

Merci beaucoup de vous pencher sur mon cas

Inscrire chaque entrée dans une nouvelle ligne d'une feuille; ça c'est facile 
Oui c'est ça, mais étant donné qu'un agent peut avoir plusieurs types d'arrêts  à des dates différentes, 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 ( tableau croisé dynamique , prévalence....)
 Afficher dans l'Userform des données déjà existantes et éventuellement les modifier, ça c'est déjà plus complexe
En effet, je pense que pour renseigner un nouvel événement d'un agent déjà présent dans la base de données il faudrait passer par modifier  puis rajouter l'événement avant de valider 
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) ? 
1ére Colonne retirée, 
En fait Le fichier devra être renseigné  quotidiennement  en fonction des événements pour alimenter une base de données, elle-même  reliée  à un tableau de bord de suivi des arrêts grâce à des formules  macro d'extraction.

  A quoi sert le bouton Nouvel agent ? 
Je l'ai retiré pour privilégier le bouton modifier
Merci beaucoup via 55 
Je joins le fichier  modifié
Très cordialement



https://www.cjoint.com/?DEtpT29kQm3

julia Namor · Answer

Re..

Ta suggestion est très intéressante, Je suis preneuse. Ce qui fait qu'il faudra que je scinde ma BDD actuelle en deux 2BDD. 
La 1ére que j'appellerai  état civil : matricule, nom, fonction, statut...
La 2éme ou je mettrais les types d'arrêts. Par contre je ne comprends pas comment y intégrer les dates et les nombres de jours

Je retire les données confidentielles de ma BDD puis je te l'envoie 
https://www.cjoint.com/?3EtrUsGMQIR
Cdlmnt

julia Namor · Answer

AH oui effectivement , si je comprends bien , en mettant une seule ligne d'entrée avec choix des types d'arrets ( combobox) cela eviterait de se retrouver devant un  formulaire avec tous les types d'arret à remplir et du coup le formulaire serait plus fluide , moins chargé. Donc on simplifie l'UF

julia Namor · Answer

Oup's!!!! je pensais t'avoir répondu ok  plus haut. Donc en entrant les dates de naissance et d'entrée dans la structure dans  le formulaire , les calculs en année seront automatiques/
C'est super  
merci via55 
:

julia Namor · Answer

merci merci merci

julia Namor · Answer

Bonjour Via55 

Tu viens de faire une heureuse : Chapeau !!!!!'

Une question  suggestion : étant donné que l'affectation, la fonction et le statut (titulaire, stagiaire, contractuel) de l'agent peuvent  changer, on ne pourrait  pas ajouter un bouton modifier pour entrer les nouveaux changements de statut de l'agent ? De ce fait dans la BDD arrêts nous retrouverons en plus les 3 colonnes qui peuvent changer (fonction - affectation- statut) sans modifier pour autant le matricule qui reste inchangé. Est-ce jouable ?

Ps : Je n'ai pas de message erreur à la fermeture ; tant mieux
Bon travail

julia Namor · Answer

Excellent Via 55, merci eric pour la correction du bug



1) Tu vois dans mon 1er fichier de BDD  que j'avais joins plus haut, les  nombres de jours d'arrêts étaient présentés comme tels ex : (5+9+65+62+5). En fait cela me permet de calculer les fréquences et prévalences inf à 3jrs ou X jrs, ... Pour cela mon ancien fichier a déjà les macros (Merci ccm81) pour extraire les données. C'est vrai  que j'avais rentré les données manuellement (difficile de faire autrement !!!!!)  en mettant des + entre les chiffres. Est-ce possible d'avoir une présentation comme telle au fur et à mesure que je rentre un nouvel arrêt pour le même agent ?
2) Je me disais en faisant des tests de remplissages du formulaire pourquoi ne pas supprimer la commande « nombre de jours »  et faire directement une formule de soustraction des dates sur la BDD arrêts (=D-C). Cela soulagerait le formulaire d'une 5éme date à renseigner :Je dis peut être des bêtises ....  

Merci infiniment

julia Namor · Answer

Re...

1) La BDD agent conçue ressemble à quelques cellules prés à mon ancienne BDD. Sauf effectivement les nombres de jours  rajoutés avec des +. Je ne voudrais pas avoir l'air d'insister mais s'il te plait si c'est possible de les  mettre avec la présentation  ( 5+6+69+5+5) cela m'arrangerait beaucoup  car j'ai mis des semaines à établir les formules et autres macros et  sur plusieurs années(STRESS+++) Sinon  au pire je pourrai t'envoyer mes TDB anonymes en MP pour que tu regardes.  

2) Oui je comprends ta question, mais en milieu hospitalier le travail  est 7/7 ainsi de ce fait les arrêts sont comptabilisés : fin-début

Cordialement

julia Namor · Answer

Bonjour Via55
 Merci et merci  encore de consacrer du temps à mon projet 
J'ai commencé à rentrer une cinquantaine d'agents en  guise de test ; tout marche très bien
 pas de bug :
 Quelques suggestions fonctionnelles et ergonomiques
1)	Je me demandais s'il était possible de rajouter un bouton commande « supprimer » pour retirer par exemple un agent sorti des effectifs ou en cas d'erreur de données après validation 
2)	Après validation  serait-il possible d'avoir le pop-up de confirmation :
3)	La commande «  nombre de jours »  va être retiré du formulaire  et du coup le décompte se fera automatique sur la différence : date de fin - date de début (j'ai essayé de la supprimer mais j'ai eu des erreurs partout ; je ne suis pas douée c'est sur)
Encore merci Via55 
Bien cordialement

julia Namor · Answer

Alléluia !!!! Ou devrais-je dire Allévia55 !!!! 

tout simplement génial 

Je commence les tests dès que j'arrive à la maison.

Bien vu pour le 2). J'y avais pensé mais ça m'a échappé
Je greffe le formulaire  à mes tableaux de bord puis je réadapte les formules. 

MERCI bcp

julia Namor · Answer

Bonsoir Via55 Un petit bilan après une centaine d'essais J'ai décelé quelques bugs 1) Quand je supprime un agent par le formulaire, il est effectivement supprimé dans la BDD Agents mais toutes ses absences restent (Il faudrait peut-être que je les supprime par « effacer le contenu » ? 2) Ça ne le fait pas à chaque fois : Quand je rentre pour la 1ére fois un nouvel agent, je retrouve dans la BDD agent quelques fois un chiffre 2 ou 7 suivi de + puis du nombre de jours d'arrêt. Par contre le total est correct car il ne prend pas en compte le 2 ou le 7. Je donne un ex ; Ex : je rentre l'agent 007 dans le formulaire .il vient d'avoir 8jours d'arrêts maladies. Toutes les cases sont renseignées. Je vais voir dans la BDD Agents et là je trouve dans la colonne arrêts maladies 2+7. Le total des jours est correct par contre =8 3) L'ancienneté et la date de naissance ne sont pas calculées dans la BDD. 4) Si le signe + pose probléme , serait il possible de le remplacer par un autre quelconque j'ai la possibilité avec mon macro de le changer :voir macro ci-dessous Public Function nbtja(plage As Range, nmin As Long, nmax As Long) Dim cel As Range, total As Long, t, k As Long Application.Volatile total = 0 For Each cel In plage t = Split(cel.Value, "+") For k = 0 To UBound(t) If t(k) >= nmin And t(k) <= nmax Then total = total + t(k) Next k Next cel nbtja = total End Function Public Function nbja(plage As Range, nmin As Long, nmax As Long) Dim cel As Range, total As Long, t, k As Long Application.Volatile total = 0 For Each cel In plage t = Split(cel.Value, "+") For k = 0 To UBound(t) If t(k) >= nmin And t(k) <= nmax Then total = total + 1 Next k Next cel nbja = total End Function Merci beaucoup via55

julia Namor · Answer

bonjour via55
Quelques test depuis ce matin ...Pas de poblémes sauf pour

../.. 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.

Je te souhaite de bonnes recheches fructueuses. Tu arrives à la fin .... 

Car pour  renseigner plusieurs types d' arrets  pour un meme agent, je ferme le fichier (en enregistrant bien sur) . A la réouverture l'agent est présent dans la bande déroulante  matricule et là je peux enregistrer : Fastidieux 

Merci énormément

julia Namor · Answer

Bonjour Via55 , 
Plusieurs essais  qui sont révélés   sans problèmes :
Tout  fonctionne normalement : 
J'ai « greffé » mes tableaux de bord et appliqué les formules ; tout est harmonisé. 
Je renseigne  le formulaire et tous les calculs se font automatiquement ; même les graphiques, c'est magique !!!!!
1-)J'ai rencontré une petite difficulté mais je pense l'avoir résolu. En fait quand je supprimais  un agent du formulaire toute sa ligne dans la BDD était supprimée (A :V) et du coup il y avait comme un décalage et la formule (=nbja($L2:$M2;1;3) était aussi supprimée . J'ai étendu la suppression de la ligne jusqu'à la colonne DL  et ça fonctionne.  
Ex : dans le code de l'UF
' suppression de la ligne
Sheets("BDD Agents").Select
    Sheets("BDD Agents").Range("A" & ligneaeffacer & ":" & "DL" & ligneaeffacer).Select
     Selection.Delete Shift:=xlUp
    'et on effectue le tri des lignes 2 à 1500 par ordre croissant du matricule
 Sheets("BDD Agents").Select
 Columns("A:DL").Select

2-) C'est peut-être dû à la taille du fichier (4,7mo) mais j'ai remarqué que les calculs étaient lents. J'actionne F9 pour actualiser à chaque fois. T'en pense quoi ?
3-) Au niveau du formulaire, est-ce possible de faire une recherche par nom à l'aide d'une bande déroulante car dans les feuilles d'arrêts  de travail ; il n'y a pas les matricules ; 
4-) Dernière suggestion  (désolée d'abuser de votre bon coeur). En fait j'ai essayé de coller directement  ma liste des effectifs notamment  Matricule -Nom Prénom- Age - ancienneté ..... dans les colonnes correspondants de la BDD agents.  J'espérais pourvoir les récupérer dans le formulaire  ce qui me ferait en quelques sorte un formulaire pré rempli. Il ne manquerait que les évènements d'absences à rajouter et le tour est joué.   Est-ce que ce mode de liaison BDD vers formulaire est réalisable ?


Mes sincères remerciements et félicitations pour ce « good job »

Trés cordialement

julia Namor · Answer

Bonjour Via55

j'ai un problème sur la commande "intégrer un nouvel agent" au niveau de l'attribution du matricule  de la date de naissance et sexe..

Je me demandais : Est ce qu'il ne serait pas plus astucieux que les numéros de matricule s'attribuent automatiquement à chaque fois qu'un nouvel agent est entré dans nom et prénom.
 (Ex: m1-m2-m3-m4...ou 01-02-03-04.....ou a10-a11-a12-...)

Dans l'établissement ou je suis les matricules des agents sont composés de 6 chiffres et ne figurent que sur le bulletin de salaire. 

J'espère ne plus vous "embêter" après 
Merci bcp

julia Namor · Answer

La forme A1-A2... serait bien 
cordialement

julia Namor · Answer

Bonjour Via55

Apres moult et moult essais..et dans tous les sens (validation, intégration, suppression  d'un agent ...) le verdict est sans appel, tu es coupable de haut délit de ...bonté et de générosité.

Tout fonctionne à merveille.

Merci et merci encore.

PS. Je laisse le post ouvert encore 48h avant de mettre résolu.
Bien cordialement

julia Namor · Answer

Bonsoir
Je reviens vers vous pour  solliciter à nouveau votre aide.
J'ai voulu mettre une protection dans mes bases de données  constituées grâce à ce formulaire que via55 a eu la grande bienfaisance de m'offrir, mais voilà quand la base de donnée est protégée le formulaire n'arrive plus à y rentrer des données, ni à les retirer d'ailleurs.  
Je vous joins le formulaire Bonsoir
Je reviens vers vous pour  solliciter à nouveau votre aide.
J'ai voulu mettre une protection dans mes bases de données  constituées grâce à ce formulaire que via55 a eu la grande bienfaisance de m'offrir, mais voilà quand la base de donnée est protégée le formulaire n'arrive plus à y rentrer des données, ni à les retirer d'ailleurs.  

Je vous joins le formulaire 
https://www.cjoint.com/?3FswUwfAaOZ

J'aurais éventuellement deux « petites » demandes
1*) Est-ce que ce serait possible de rajouter une macro dans la feuille pour passer outre la protection et permettre par le formulaire de rajouter ou de supprimer des éléments dans la BDD ?
2) J'aimerai que dans la feuille BDD les colonnes NOM, Prénom, Matricule, Sexe, Date Naissance, Date d'entrée, Fonction, Affectation, Statut ne soient pas protégées.
Merci beaucoup de vous pencher sur mes demandes 
Cordialement

julia Namor · Answer

bonjour Via 55 

Merci de ta réponse 
j'ai bien suivi tes procédures  qui rejoignent complétement celles de eric . 
( protection des feuilles et des macros )
Tout marche à merveille.

Les formules et macros sont protégées et masquées des manipulations hasardeuses.
J'ai aussi bien sauvegardé une version non protégée au cas ou.....

je te souhaite un trés bon dimanche 
MERCI encore

Formule VBA

21 réponses

Votre réponse

Discussions similaires

Newsletters