Saisies multiples
Bonjour à tous,
J'ai créer un formulaire pour ajouter un personnel dans ma base de données.
Mon souhait est le suivant : à partir de mon USF, comment saisir plusieurs personnels en une seule fois ?
C'est à dire, je saisis 20 noms et prénoms avec la même unité, le même grade, le même corps et la même date (DES) en fait je veux juste pouvoir saisir plusieurs noms et prénoms avant de valider et d'aller transférer les données dans la feuille de destination.
Tout le code pour ajouter une seule personne est entièrement fonctionnel.
Ceci afin d'éviter une saisie individuelle alors qu'il n'y a que les noms et prénoms qui changent.
Merci d'avance pour vos conseils.
Bon week-end à tous.
Bonjour,
Dans ton formulaire faudrait mettre un comboBox à la place du TextBox pour les noms/Prénoms
Mais pour te donner un exemple faudrait au moins que ton classeur contienne quelque choses !!
Et aussi les feuilles concernées.
Ce que tu montre n'explique rien de ce que tu veux faire.
A+
Bonjour
Bonjour lermite
Une idée en passant
Modifies la fin de ta macro "Validation_Click"
Me.Nom = ""
Me.Prénom = ""
'Me.Unité = ""
'Me.Grade = ""
Me.OptionButton1 = False
Me.OptionButton2 = False
'Me.DES = ""Bonjour lermite, banzai,
@ lermite : je te mets quelques lignes en exemple.
Voir nouveau fichier-joint.
@ banzai : bien vu mais dans ce cas il faudrait 2 USF : 1 pour la saisie d'un personnel et 1 pour la saisie multiple mais pourquoi pas.
Merci à tous les deux en attendant.
Bonjour
Si cela te gène d'effacer les contrôles lorsque tu veux seulement entrer une personne à la fois
Regardes le fichier
Re,
Merci banzai pour ton retour : l'idée est bonne cela peut éviter de créer un deuxième formulaire pour une saisie simple ou multiple.
Cependant, j'attends la proposition de lermite pour comparer car je préférerais saisir tous les noms et prénoms en une seule fois avant de valider si possible.
@+ et encore merci pour ta patience.
Re,
Une idée en passant : dites-moi si cela est réalisable.
Un TextBox pour le nom et un autre pour le prénom : on stocke le nom et prénom dans la ListBox.
Une fois toutes les saisies effectuées, les données sont ventilées dans la feuille lors de la validation.
Par contre j'ai peur qu'à la ventilation des données, cela pose un problème de re-séparer les noms et les prénoms, non ?
Merci pour votre soutien.
Cordialement.
Bonjour
Juste une remarque, le fait de passer par une ListBox avant de recopier dans la feuille ne te dispensera pas d'appuyer sur ajouter à chaque saisie du nom et prénom, et dans ce cas tu auras un appui supplémentaire pour la recopie de la ListBox
Re Banzai,
Ok, je prends en compte ta remarque pertinente mais cela m'importe peu puisque le but du jeu est que la ventilation des noms et prénoms de fasse en seule fois dans la feuille, si tu vois ce que je veux dire.
Si mon souhait n'est pas réalisable, j'opterais pour ta première solution.
Merci et bonne fin de journée.
Re,
Bonjour Banzaï,
Ma version...
Pas de listbox
Pas de contrôle supplémentaire
Mode d'emploi sur la feuille.
A tester...
Tu dis
A+
Note : j'ai repris le fichier de Banzaï.
Re,
Bonsoir lermite et merci pour ta contribution.
Grâce à vous deux, je vais pouvoir arriver à mes fins et vous avez raison : pourquoi chercher plus compliqué en rajoutant des contrôles supplémentaires.
Je pense que je vais essayer de faire un mix de vos 2 propositions juste pour laisser à l'utilisateur de choisir le mode de saisie : unique ou multiple et dans ce dernier cas le prévenir de la marche à suivre : qu'en pensez-vous ?
Merci encore et bonne soirée.
@+.
Re,
Par exemple, en laissant le CheckBox de Banzai => si unique, on laisse le formulaire de départ et si multiple on active les codes de lermite (par exemple si unique, désactiver Entrée et n'autoriser que TAB et si multiple on inverse).
Est-ce réalisable ou serait ce sources d'erreurs ou trop lourd à mettre en place ?
Si on ne peut pas, ce n'est pas grave je ferais avec mais je pense à ceux qui sont censés utiliser le fichier (hormis moi bien sûr) et qui ne connaissent pas les formulaires VBA.
Merci encore.
@+.
Re,
Bien entendu c'est toi qui décide, une remarque tout de même, sans rien modifier à mon exemple tu peu très bien remplir l'UF pour une seule entrée et valider avec le bouton, rien ne change à ta première version, rien à expliquer. Juste expliquer pour une saisie multi.
Après tout, pourquoi faire simple... quand ont peu faire compliquer
A+
Re,
Merci pour ta réponse qui tombe sous le sens : désolé de vouloir être trop exigeant surtout qu'il n'y a pas lieu.
Merci encore et bonne soirée.
Re,
Pas de MP pour les questions techniques Svp.
Tu veux du plus compliquer.. Et beh tu va être servi..
Avec contrôle de la validité de la date en bonus..
Voir V3.
A+
Bonsoir lermite,
Désolé pour le MP mais comme j'avais marqué le fil comme résolu...
Ce n'est pas trop pour moi que je veux faire compliqué : tu l'auras bien compris
Je vais regarder ton fichier avec assiduité, m'en imprégner et ne manquerais pas de te tenir informé.
Merci pour ton retour et bonne soirée.
Bonne continuation et @+.
Re lermite, à tous,
Alors là chapeau bas cher Monsieur.
Mes premiers tests sont plus que concluants et je t'en remercie. Par contre, je vais en avoir pour 2 jours à déchiffrer tous les codes
Non, sans blague, c'est une tuerie : tu me combles.
Je vais tester tous les cas de figures en profondeur mais c'est déjà un sacré boulot (enfin pour moi, peut-être pas pour toi : combien de temps as-tu passé dessus si cela n'est pas indiscret ?).
En attendant, je te souhaite une excellente soirée Monsieur le Professeur.
@+.
Tu vas dire que je suis perfectionniste mais est-il possible de rajouter le focus sur le Nom quand tous les autres champs ont été renseignés et que le FrNom apparaît ? Je n'ai pas réussi après plusieurs essais à des endroits différents de ton code.
Sinon pour le reste, rien à dire sauf merci : tout est fonctionnel pour un utilisateur lamda.
Encore merci et bonne soirée.
Re,
Suite a ton nouveau MP
If Smulti Then
FrNom.Visible = B
LabMess.Visible = Not B
'AJOUTER CETTE LIGNE
If B Then Nom.SetFocus
ElseA+
Bonjour lermite,
Merci pour ta réponse.
Je te souhaite un bon après-midi.
@+.