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

[NONO14]

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]

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]

Bonsoir le fil

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

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

 

[NONO14]

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]

re

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]

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]

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]

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]

Re

@NONO14
En passant...

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]

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]

Non

 

[NONO14]

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

 

[TooFatBoy]

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]

Je viens de prendre conscience que j'aurais pu faire autrement.

On ne peut pas toujours penser à tout dès le départ !

 

[NONO14]

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]

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