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

NONO14 · Mardi à 11:34

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.

patricktoulon · Mardi à 19:39

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

TooFatBoy · Mardi à 20:15

sylvanu à dit:
Le problème est l'espace, non les majuscules,.
Il sera impossible de trouver avec DUPONT Marie Thérèse sauf à mettre DUPONT Marie thérèse.
Le seul moyen de vous en sortir est le tiret : DUPONT Marie-Thérèse.
Cela me semble pourtant simple à comprendre. Utiliser juste l'espace comme séparateur ne permettra jamais de couvrir 100% des cas.

Une possibilité est d'utiliser des espaces insécables dans les noms et les prénoms, en lieu et place des espaces normales.

TooFatBoy · Mardi à 20:20

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 · Mardi à 20:23

Bonsoir le fil

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

NONO14 · Mardi à 20:28

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 · Mardi à 20:30

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 · Mardi à 20:32

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 · Mardi à 20:33

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 · Mardi à 20:35

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 · Mardi à 20:35

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 · Mardi à 20:46

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 · Mardi à 20:47

NONO14 · Mardi à 20:50

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

TooFatBoy · Mardi à 20:52

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 · Mardi à 20:53

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 !

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

NONO14

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

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

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires