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:
Je vais regarder demain pour ajouter une colonne, mais je crois que cela risque d'affecter d'autres codes.

Remplacer les éventuelles espaces 32 par des espaces 160 serait sûrement beaucoup plus simple au niveau des modifications (quasiment aucune).

Explication :

Au moment de la validation de la saisie du nom, je suppose que c'est la que tu passes le nom en majuscules, donc tu ajoutes une ligne dans laquelle tu REPLACE les éventuelles espaces 32 par des espaces 160.

Au moment de la validation de la saisie du prénom, je suppose que c'est la que tu passes l'initiale du prénom en majuscules et le reste en minuscules, donc tu ajoutes une ligne dans laquelle tu REPLACE les éventuelles espaces 32 par des espaces 160.

Ensuite quand tu écris le nom et le prénom dans ton TS, je suppose que tu concatènes le nom, une espace 32, et le prénom, donc là tu ne changes rien.

Pour retrouver le nom et le prénom, il suffit de splitter au niveau de la seule espace 32.
Et le tour est joué.

Verstanden ?

ps : 32 et 160 sont les codes ASCII des deux caractères.

TooFatBoy · 1 Octobre 2024

Avec le remplacement des espaces 32 par des espaces 160, normalement tu n'as que les trois macros suivantes à modifier, tu n'as plus besoin de la macro Séparation, et ça marche à tous les coups.

VB:

Private Sub TextBox1_Change()
' Validation de la saisie du nom

    Me.TextBox1.Text = Replace(UCase(Me.TextBox1), Chr(32), Chr(160))

End Sub

VB:

Private Sub TextBox2_Change()
' Validation de la saisie du prénom

    Me.TextBox2.Text = Replace(WorksheetFunction.Proper(Me.TextBox2.Value), Chr(32), Chr(160))

End Sub

VB:

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)
    LastName = Split(FullName, Chr(32))(0)

    ' On extrait le prénom après l'espace
'    FirstName = Séparation(FullName, 0)
    FirstName = Split(FullName, Chr(32))(1)

    ' 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 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

End Sub

dysorthographie · 1 Octobre 2024

Bonsoir,
Ce code VBA permet de diviser une chaîne de texte contenant un nom complet en un prénom et un nom de famille. Il utilise une structure personnalisée (NpN) pour stocker ces deux éléments. La fonction DiviseNpN détermine si elle doit retourner le prénom ou le nom en se basant sur des données stockées dans un fichier Excel, identifiant ainsi les prénoms et les particules. La séparation est effectuée par la fonction CynderNomPn, qui gère les particules et vérifie les prénoms à l'aide de requêtes.

NONO14 · 2 Octobre 2024

Staple1600 à dit:
Re

@NONO14
En passant...

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

Bonjour Staple1600,
De quel test parles-tu ? Pas sur ce problème. Il doit s'agir d'une autre discussion car j'ai testé beaucoup de version et je ne sais plus où j'en suis.
Toutes mes excuses si je t'ai offusqué, ce n'est pas mon intention.

NONO14 · 2 Octobre 2024

dysorthographie à dit:
Bonsoir,
Ce code VBA permet de diviser une chaîne de texte contenant un nom complet en un prénom et un nom de famille. Il utilise une structure personnalisée (NpN) pour stocker ces deux éléments. La fonction DiviseNpN détermine si elle doit retourner le prénom ou le nom en se basant sur des données stockées dans un fichier Excel, identifiant ainsi les prénoms et les particules. La séparation est effectuée par la fonction CynderNomPn, qui gère les particules et vérifie les prénoms à l'aide de requêtes.

Bonjour dysorthographie,
Merci pour votre participation et cet exemple. N'est-ce pas trop de code pour ma petite application ?
Cependant j'apprécie le travail que vous avez réalisé.
je vais tester la proposition de TootFatBoy et je verrais cque cela donne.
Encore merci pour votre participation

NONO14 · 2 Octobre 2024

TooFatBoy à dit:

Avec le remplacement des espaces 32 par des espaces 160, normalement tu n'as que les trois macros suivantes à modifier, tu n'as plus besoin de la macro Séparation, et ça marche à tous les coups.

VB:

Private Sub TextBox1_Change()
' Validation de la saisie du nom

    Me.TextBox1.Text = Replace(UCase(Me.TextBox1), Chr(32), Chr(160))

End Sub

VB:

Private Sub TextBox2_Change()
' Validation de la saisie du prénom

    Me.TextBox2.Text = Replace(WorksheetFunction.Proper(Me.TextBox2.Value), Chr(32), Chr(160))

End Sub

VB:

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)
    LastName = Split(FullName, Chr(32))(0)

    ' On extrait le prénom après l'espace
'    FirstName = Séparation(FullName, 0)
    FirstName = Split(FullName, Chr(32))(1)

    ' 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 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

End Sub

Bonjour TootFatBoy,
J'ai recopié ton code et fais les modifications nécessaires, mais j'ai une incompatibilité de type au niveau du code et du temps de travail.

TooFatBoy · 2 Octobre 2024

NONO14 à dit:
J'ai recopié ton code et fais les modifications nécessaires, mais j'ai une incompatibilité de type au niveau du code et du temps de travail.

Aucun rapport puisque, comme je l'ai expliqué et comme tu peux le voir dans le code, je n'ai modifié que les nom et prénom.

Quelles modifications ?
Une fois que tu as remplacé les trois macros, il n'y a rien à modifier.

NONO14 · 2 Octobre 2024

Bonjour
J'ai mis le code en place en remplaçant la colonne des Noms et Prénom qui est en C c'est tout et bien sûr les TextBox avec Replace. Mais j'ai ce message d'incompatibilité

TooFatBoy · 2 Octobre 2024

NONO14 à dit:
J'ai mis le code en place en remplaçant la colonne des Noms et Prénom qui est en C c'est tout et bien sûr les TextBox avec Replace.

Désolé, je ne comprends pas.

Comme dit en #54, tu as juste à mettre les trois macros de #49 à la place des trois macros déjà présentes dans ton classeur.

Sauf si je me suis trompé cette nuit, je n'ai normalement modifié que le nom et le prénom, donc il ne devrait y avoir aucune incidence sur le reste.

NONO14 · 2 Octobre 2024

Je n'ai rien fait de plus. Je ne comprends pas non plus

TooFatBoy · 2 Octobre 2024

Poste ton classeur.

NONO14 · 2 Octobre 2024

Je l'ai mis il me semble avec ma réponse

TooFatBoy · 2 Octobre 2024

NONO14 à dit:
Je l'ai mis il me semble avec ma réponse

Effectivement...

Désolé ! Je ne suis pas bien réveillé, je ne vois pas grand chose sur mon tél, et je suis un peu débile...

NONO14 · 2 Octobre 2024

Non je ne le crois pas

TooFatBoy · 2 Octobre 2024

NONO14 à dit:
Non je ne le crois pas

C'est gentil, mais moi je le sais.

Je viens d'allumer mon PC. Je vais regarder ton classeur.

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

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Pièces jointes

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

Discussions similaires