Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox

NONO14 · 1 Octobre 2024

Bonjour à toutes et à tous,

Dans un formulaire, j'ai une ListBox qui s'affiche à son ouverture. Dans cette liste ("Lbx_Enregist") il y a 2 colonnes une qui contient un code et l'autre le Nom et Prénom.
Je souhaiterais que lorsque je clique sur une ligne de la liste, le NOM s'affiche dans la TextBox1 et le Prénom dans la TextBox2, en fait séparer le Nom du Prénom.
Les Noms et Prénoms sont également présent dans la feuille "Liste_agents" TS "t_Noms" colonne "Salarié".
J'ai cherché un peu partout, mais je n'ai pas trouvé pour cette situation.
Comment puis-je procéder et surtout est-ce possible ?
Je sais que cela va se compliquer s'il y a un Nom du style "De La Bouche en biais Marie-Thérèse".
Merci par avance pour votre aide.

TooFatBoy · 1 Octobre 2024

NONO14 à dit:
Mais ce n'est pas moi qui vais utiliser l'application et je ne sais pas comment ils vont saisir les données, je ne serais pas derrière leur épaule à surveiller

Tu n'as pas un UserForm pour la saisie des nouveaux employés ?

Staple1600 · 1 Octobre 2024

Bonsoir le fil

Les Noms et Prénoms sont également présent dans la feuille "Liste_agents" TS "t_Noms" colonne "Salarié".

NONO14 · 1 Octobre 2024

Jeannette à dit:
re-,
et en cherchant la première minuscule, comme l'avait fait Job75 dans ce post?

Bonsoir Jeannette
Merci pour votre contribution. Je suis allé voir ce post de Job75 et il est très intéressant.
Reste à savoir si je peux l'adapter à mon cas.
J'ai également trouvé ce post sur internet

[VBA-E] Séparer Nom Prénom placés dans une cellule unique - Macros et VBA Excel

Voir ici la réponse corrigée suite aux diverses interventions ou simplifications.

www.developpez.net

Il n'est pas mal non plus.

NONO14 · 1 Octobre 2024

patricktoulon à dit:
re

VB:

Sub test() x = Nom_Prenom("DE LA VILLARDIERE Jean Edhourd") MsgBox x(1) & vbCrLf & x(2) End Sub Function Nom_Prenom(chaine) Dim t(1 To 2),tx,i& tx = Split(chaine, " ") For i = 0 To UBound(t) If UCase(tx(i)) = tx(i) Then t(1) = Trim(t(1)) & " " & tx(i) Else Exit For Next t(2) = Trim(Replace(chaine, t(1), "")) Nom_Prenom = t End Function

en formule
pour le nom
=Nom_Prenom(A1)

pour le prenom
=INDEX(Nom_Prenom(A1);2)

la condition pour le lastname étant le ucase bien sur et sans dérogation

J'ai mis cette condition dans le TextBox, l'écriture en majuscule y est obligatoire et pour le Prénom, seule la première lettre est en majuscule

NONO14 · 1 Octobre 2024

TooFatBoy à dit:
Tu n'as pas un UserForm pour la saisie des nouveaux employés ?

C'est le même, il sert à la fois de saisie de nouveau mais également de modification juste après validation pour éviter de fermer et de réouvrir le formulaire.

NONO14 · 1 Octobre 2024

Staple1600 à dit:
Bonsoir le fil

Avec une base de donnée, classiquement normalisée, on devrait avoir deux colonnes sur la feuille Liste_Agents
NOM|Prénom
voire
NOM|NOM_USAGE|Prenom_1|Prenom_2|Prenom_3

Cela simplifierait la suite des opérations

Je suis d'accord, mais je n'y ai pas pensé au départ, c'est idiot...

NONO14 · 1 Octobre 2024

Je vous souhaite à toutes et à tous une très bonne soirée.
Je vais me reposer et je reprendrai mon travail demain.
Encore mille mercis pour vos participations et surtout votre patience.

Staple1600 · 1 Octobre 2024

Re

@NONO14
En passant...

NONO14 à dit:
Je vais tester ta version (certainement demain) et je reviens te dire ce qu'il en est.
Encore merci et bonne soirée à toutes et à tous

demain, c'était lundi, nous sommes mardi
et tu n'es pas reviendu

TooFatBoy · 1 Octobre 2024

NONO14 à dit:
C'est le même, il sert à la fois de saisie de nouveau mais également de modification juste après validation pour éviter de fermer et de réouvrir le formulaire.

Et dans ce UserForm, le nom et le prénom sont dans une même TextBox ?

NONO14 · 1 Octobre 2024

NONO14 · 1 Octobre 2024

Je viens de prendre conscience que j'aurais pu faire autrement. Quel crétin je fais

TooFatBoy · 1 Octobre 2024

Je viens d'aller voir ton classeur.
C'est le UserForm ufGestTemps qui est concerné ?

Pour moi tu as deux solutions :
- soit tu sépares nom et prénom dans ton TS (c'est une colonne à ajouter et du code à modifier),
- soit tu remplaces les éventuelles espaces "normales" par des espaces insécables lors de l'écriture dans le TS, et le tour est joué.

TooFatBoy · 1 Octobre 2024

NONO14 à dit:
Je viens de prendre conscience que j'aurais pu faire autrement.

Le GROS à dit:
On ne peut pas toujours penser à tout dès le départ !

NONO14 · 1 Octobre 2024

TooFatBoy à dit:
Je viens d'aller voir ton classeur.
C'est le UserForm ufGestTemps qui est concerné ?

Pour moi tu as deux solutions :
- soit tu sépares nom et prénom dans ton TS (c'est une colonne à ajouter et un peu de code à modifier),
- soit tu remplaces les éventuels espaces "normales" par des espaces insécables, et le tour est joué.

Je vais regarder demain pour ajouter une colonne, mais je crois que cela risque d'affecter d'autres codes.
Je verrai demain
Je te souhaite une bonne soirée et encore merci pour ta participation et ta patience

NONO14 · 1 Octobre 2024

TooFatBoy à dit:
Je viens d'aller voir ton classeur.
C'est le UserForm ufGestTemps qui est concerné ?

Pour moi tu as deux solutions :
- soit tu sépares nom et prénom dans ton TS (c'est une colonne à ajouter et un peu de code à modifier),
- soit tu remplaces les éventuelles espaces "normales" par des espaces insécables lors de l'écriture dans le TS, et le tour est joué.

Oui c'est cet Uf

Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

[VBA-E] Séparer Nom Prénom placés dans une cellule unique - Macros et VBA Excel

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

Discussions similaires