Saisie Userform pour base de données

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2023

• #2

Bonsoir.
Pouvez-vous partir de ce fichier ?

 

Pièces jointes

• CLsCAsContacts.xlsm

  141.7 KB · Affichages: 7

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 12 Novembre 2023

• #3

Bonjour Dranreb,

Merci de m'avoir répondu.
Après avoir envoyé, le message hier soir, j'ai continué mes cherches et je suis justement tombé sur les messages du 11 Octobre 2023 échanges avec Caso.
Je mettais téléchargé le modèle afin de voir si c'était possible de faire une adaptation à mes besoins.

Alors OUI, je veux bien, et je vous en remercie par avance.

Tout y est dans le modèle que j'ai adressé au Post #1.
Juste que je ne mettais pas encore penché sur la numérotation automatique et les Checkbox. Si vous pouviez également m'aider pour ça.
Autre demande :
Dans la Frame "Lettre d'engagement" Label " - Etat du Dossier" - TextBox16, qui est relier à la colonne AA avec une formule : si dossier complet alors "OK" et la ligne d'écriture passe en noir sinon "En attente" est la ligne d'écriture reste en rouge. Serait il possible que la TextBox16 fasse de même. Si "OK" l'écriture est noir, si "En attente" l'écriture de la TextBox16 passe en Rouge.

Dans l'attente de votre retour
Un grand Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2023

• #4

Bonjour.
Donnez des noms mnémoniques à vos contrôles pour vous y retrouver plus facilement.
Faites les commencer par un trigramme pris de cette liste:

 

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 12 Novembre 2023

• #5

Comme ceci ?
En espérant avoir compris

 

Pièces jointes

• 16.Tableau_essai_onglet_Admin_Modifier_Nom.zip

  709.3 KB · Affichages: 7

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2023

• #6

Ben non, dans votre classeur joint ils s'appelleent toujours TextBox1, TextBox2 etc. qui ne veut rien dire.
Et puis vous n'êtes par reparti de mon classeur CLsCAsContact.
Ah si, excusez moi, dans l'UserForm ils ont été renommés. J'avais commencé par regarder le code.
Bon et bien il ne vous reste plus qu'a copier le code de mon UFmContact dans votre UFmAdmin et à l'adapter …

 

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 12 Novembre 2023

• #7

Ok, je vais essayé

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2023

• #8

Séparez donc aussi le Nom et le Prénom dans votre base puisque c'est très bien géré par l'objet ComboBoxLiées
N'oubliez pas de copier aussi le module standard de service MSujetXBx et les 10 modules de classe. Je me demande s'il n'y aurait pas mieux valu transformer le tableau de mon CLsCAsContact en celui qu'il vous faut …

 

Dernière édition: 12 Novembre 2023

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 12 Novembre 2023

• #9

Je me suis également posé la même question.
Le soucis étant que je n'ai fait qu'une extraction de mon fichier, en suppriment une partie de la base de données (404 enregistrement) et je n'ai pris qu'une petite partie est modifié les coordonnées dans le fichier pour exemple.
Dans le fichier original, il y a d'autres Userform qui sont reliés déjà relié avec le Nom Prénom en un seul bloc.
Tout modifié serait, pour moi, un gros soucis, n'y connaissant pas grand choses en VBA, je galère énormément.

Pour les case à cocher, comment dois-je écrire le code en sachant que lorsque c'est coché, je voudrais que se soit un "X" qui apparaît dans la colonne.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2023

• #10

Mon objet ControlsAssociés sait gérer les CheckBox. Par défaut il met pour True un =UNICAR(HEXDEC("2714")) soit "✔". Mais si c'est absolument indispensable, il devrait être possible de lui imposer un autre caractère en mettant "X;(vide)" en 3ème paramètre du CAs.Add.

 

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 12 Novembre 2023

• #11

Dranreb à dit:

Mon objet ControlsAssociés sait gérer les CheckBox. Par défaut il met pour True un =UNICAR(HEXDEC("2714")) soit "✔". Mais si c'est absolument indispensable, il devrait être possible de lui imposer un autre caractère en mettant "X;(vide)" en 3ème paramètre du CAs.Add.

Cliquez pour agrandir...

Bonsoir Dranreb,

Je suis désolée, mais je n'y arrive absolument, j'ai n'est mal à la tête. Demain est un autre jour.
Bonne soirée

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Novembre 2023

• #12

Pour avancer laissez pour le moment au CAssoCkx son fonctionnement par défaut en ne spécifiant rien comme 3ème argument du CAs.Add

 

Vote positif 0 Vote négatif

p56

XLDnaute Occasionnel

• 13 Novembre 2023

• #13

Bonsoir à tous,

Alors voici une proposition de codage. A noter :

* dans le fichier initial il y a un conflit d'intérêt entre la RowSource (en dur) du combo pour le choix des noms et l'insertion d'une ligne dans le TS T_Admin (ça générait alors un bug en cas de nouvelle fiche)
Dans le code proposé ici, la liste du combo est donc initialisée à l'ouverture de l'USf et après la sauvegarde d'une fiche. Ce qui fait que dès l'enregistrement d'une nouvelle fiche, le nouveau nom s'inclut dans la liste.

* les 2 boutons "Ajouter" et "Modifier" ont été remplacés par un seul "Valider" qui fait les 2

* perso, le nom des contrôles m'importe peu, j'utilise plutôt une numérotation dans les tags.

* et sinon je suis reparti d'un nouveau fichier car celui proposé était devenu un peu trop lourd.

Est-ce que ça peut aider?
P.

 

Pièces jointes

• Tableau_essai_onglet_Admin.xlsm

  41.9 KB · Affichages: 21

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 14 Novembre 2023

• #14

Bonjour P56, Bonjour Dranreb,

Fantastique !!!

Un grand Merci !!!!!! à tous les deux

Je vous souhaite une belle journée
Merci merci merci

 

Vote positif 0 Vote négatif

T

TAL

XLDnaute Occasionnel

• 14 Novembre 2023

• #15

Bonjour P56,

Juste une petite demande, je voudrais insérer une ligne au dessus du tableau, sur quel code dois-je modifier pour que l'enregistrement commence à la ligne 3.

Merci beaucoup

 

Vote positif 0 Vote négatif