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

sylvanu à dit:

Bonjour Nono,
Le problème des noms/prénoms ont fait l'objet de nombreux sujets avec toujours la même problématique :
Il est impossible de séparer les deux avec 100% de réussite. Par exemple avec :
Dupont Marie Thérèse : Vous ne pouvez pas savoir si le nom est Dupont ou Dupont Marie, et le prénom si c'est Thérèse ou Marie Thérèse.
Un exemple en PJ avec cette fonction :

VB:

Function Séparation(Texte, NomPrénom)
    Dim T, L%
    T = Split(Texte, " ")
    If NomPrénom = 0 Then
        Séparation = T(UBound(T))
    Else
        L = Len(T(UBound(T)))
        Séparation = Left(Texte, Len(Texte) - L)
    End If
End Function

La syntaxe est :
=Séparation(B6;1) pour le nom et =Séparation(B6;0) pour le prénom.
Comme vous le voyez ça ne marche pas toujours.
( sauf si le prénom est toujours orthographié avec un tiret entre les deux mots composés et jamais d'espace )
Et je ne connais pas de solution miracle.🙁

Addon : J'ai rajouté un exemple par macro en appuyant sur le bouton.

Cliquez pour agrandir...

FullName = "Dupont d'Isigny Marie Thérèse"

Cliquez pour agrandir...

sylvanu à dit:

🙂
Ca ne marche pas mieux.
Il suffit que le nom ait deux mots pour que ça plante :

donnera :
Regarde la pièce jointe 1204344
donc pas mieux... mais en plus compliqué.🙂

Cliquez pour agrandir...

sylvanu à dit:

Sans fichier difficile de faire mieux, mais cela pourrait ressembler à ça :

Code:

Private Sub Lbx_Enregist_Click()
Dim FullName$, FirstName$, LastName$, Code, TempsTravail
'On identifie FullName
    FullName = Me.Lbx_Enregist.Value
'On extrait le Nom de famille avant l'espace
    LastName = Séparation(FullName, 1)
'On extrait le Prénom
    FirstName = Séparation(FullName, 0)
' Récupération ligne si Name en colonne A
    Ligne = Application.Match(FullName, [A:A], 0)
' Récupération Code si en colonne B
    Code = Cells(Ligne, "B")
' Récupération temps travail si en colonne C
    TempsTravail = Cells(Ligne, "C")
'On affiche les résultats dans des TextBoxs
    Me.TextBox1.Value = LastName
    Me.TextBox2.Value = FirstName
    'Rajouter rangement Code et TempsTravail
Application.ScreenUpdating = False
End Sub
Function Séparation(Texte, NomPrénom)
    Dim T
    T = Split(Texte, " ")
    If NomPrénom = 0 Then
        Séparation = T(UBound(T))
    Else
        Séparation = Left(Texte, Len(Texte) - Len(T(UBound(T))))
    End If
End Function

Cliquez pour agrandir...

Private Sub Lbx_Enregist_Click()
Dim FullName$, FirstName$, LastName$, Code, TempsTravail
'On identifie FullName
    FullName = Me.Lbx_Enregist.Value
'On extrait le Nom de famille avant l'espace
    LastName = Séparation(FullName, 1)
'On extrait le Prénom
    FirstName = Séparation(FullName, 0)
' Récupération ligne si Name en colonne A
    Ligne = Application.Match(FullName, [A:A], 0)
' Récupération Code si en colonne B
    [B]Code = Cells(Ligne, "B")[/B]
' Récupération temps travail si en colonne D
    TempsTravail = Cells(Ligne, "D")
'On affiche les résultats dans des TextBoxs
    Me.TextBox1.Value = LastName
    Me.TextBox2.Value = FirstName
    Me.TextBox3.Value = Code
    Me.TextBox5.Value = TempsTravail
    'Rajouter rangement Code et TempsTravail
Application.ScreenUpdating = False
End Sub

sylvanu à dit:

il vous suffit de vérifier que les noms sont toujours en premier et qu'il n'y a aucun espace dans les prénoms composés.

Cliquez pour agrandir...

' Récupération ligne si Name en colonne A

Cliquez pour agrandir...

Private Sub Lbx_Enregist_Click()
Dim FullName$, FirstName$, LastName$, CodeT, TempsTravail
On Error GoTo NonTrouvé
'On identifie FullName
    FullName = Me.Lbx_Enregist.Value
'On extrait le Nom de famille avant l'espace
    LastName = Séparation(FullName, 1)
'On extrait le Prénom
    FirstName = Séparation(FullName, 0)
' 'On affiche les résultats dans des TextBoxs
    With Sheets("Imp_Pointage")
        Ligne = .Application.Match(FullName, [B:B], 0)  ' N° de ligne
        Me.TextBox1.Value = Séparation(FullName, 1)     ' Nom
        Me.TextBox2.Value = Séparation(FullName, 0)     ' Prénom
        Me.TextBox3.Value = .Cells(Ligne, "A")          ' Code
        Me.TextBox5.Value = .Cells(Ligne, "G")          ' Tps travail
    End With
Application.ScreenUpdating = False
Exit Sub
NonTrouvé:
    MsgBox " Les nom et prénoms " & FullName & " n'ont pas été trouvés."
End Sub

sylvanu à dit:

@nono,

Cela signifiait que c'est un exemple et qu'il faut adapter.🙂

Si la feuille concernée est bien "Imp_Pointage", et en supposant que Nom Prénom sont ien présent dans votre feuille ( ce qui n'est pas le cas dans votre fichier ) alors on peut faire :

Code:

Private Sub Lbx_Enregist_Click()
Dim FullName$, FirstName$, LastName$, CodeT, TempsTravail
On Error GoTo NonTrouvé
'On identifie FullName
    FullName = Me.Lbx_Enregist.Value
'On extrait le Nom de famille avant l'espace
    LastName = Séparation(FullName, 1)
'On extrait le Prénom
    FirstName = Séparation(FullName, 0)
' 'On affiche les résultats dans des TextBoxs
    With Sheets("Imp_Pointage")
        Ligne = .Application.Match(FullName, [B:B], 0)  ' N° de ligne
        Me.TextBox1.Value = Séparation(FullName, 1)     ' Nom
        Me.TextBox2.Value = Séparation(FullName, 0)     ' Prénom
        Me.TextBox3.Value = .Cells(Ligne, "A")          ' Code
        Me.TextBox5.Value = .Cells(Ligne, "G")          ' Tps travail
    End With
Application.ScreenUpdating = False
Exit Sub
NonTrouvé:
    MsgBox " Les nom et prénoms " & FullName & " n'ont pas été trouvés."
End Sub

Non testé je n'ai pas compris le fonctionnement de vos userforms.

Cliquez pour agrandir...